VB.NET讀取EXCEL時,標題欄位換行之處理- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1835

會員總數：245253
討論主題：189111

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> VB.NET讀取EXCEL時,標題欄位換行之處理

[]

[我要回覆]

VB.NET讀取EXCEL時,標題欄位換行之處理
價值 : 50 QP 點閱數:378 回應數:11

樓主

小妏子

0	107
1211	162

發送站內信

VB.NET讀取EXCEL時,如果標題欄位有換行時應如何處理
假如某標題欄位[聯絡人姓名]有設定換行,聯絡人及姓名分屬兩行,下面程式應怎麼改?
謝謝

搜尋相關Tags的文章： [ EXCEL ] , [ 換行 ] ,
本篇文章發表於2019-03-16 22:59


別忘捐VP感謝幫助你的人	新手會員瞧一瞧

1樓回應 P陳	讀進來後再Replace 即可 header1= replace(header,vbcrlf,"") header1= replace(header,vblf,"") header1= replace(header,vbcr,"") 本篇文章回覆於2019-03-17 06:28 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓作者回應小妏子	不好意思,我可能沒表達清楚. 我的問題是資料根本讀不進來.標題欄位[聯絡人姓名]在EXCEL中是分成兩行,SELECE中用[聯絡人姓名]或[聯絡人]都讀不到資料, 除非把標題改為一行本篇文章回覆於2019-03-17 10:34 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應 P陳	您程式及資料可以丟上來看一下嗎? 然後我在猜不是沒有讀進來，是你沒有看到而已本篇文章回覆於2019-03-17 15:52 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓作者回應小妏子	程式有點亂,大概如下,但檔案怎麼上傳? If strFILE2 = "" Then MessageBox.Show("請選擇通訊一覽表!") Exit Sub End If connectString2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFILE2 & ";Extended Properties='Excel 8.0;HDR=YES;IMEX=1;'" Dim conn2 As OleDbConnection = New OleDbConnection(connectString2) '取出通訊一覽表[聯絡人姓名及電話]資料包含(07) str1 = "SELECT * FROM [sheet1$A3:K65535] where 聯絡人姓名及電話like '%(07)%'" Dim adp_R As OleDbDataAdapter = New OleDbDataAdapter(str1, conn2) Try adp_R = New OleDbDataAdapter(str1, conn2) adp_R.Fill(myDS, "AAA_R") Catch ex As Exception End Try '關閉資料庫的連結 conn2.Close() MsgBox(myDS.Tables("AAA_R").Rows.Count) 本篇文章回覆於2019-03-17 22:59 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓作者回應小妏子	在MsgBox(myDS.Tables("AAA_R").Rows.Count) 會出現NullReferenceException訊息本篇文章回覆於2019-03-17 23:06 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
6樓回應 P陳	Catch ex As Exception 【這裏是空的】<<----不正常 msgbox (ex.message) <----請先改成這樣試一下 End TRY 除非把標題改為一行 <--- 這樣就讀得到 ??? ------------------------------------ 如果沒有錯誤訊息的話檔案不用了我自已產生即可本篇文章回覆於2019-03-17 23:26 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓作者回應小妏子	確定把標題改為一行這樣就讀得到. 謝謝本篇文章回覆於2019-03-17 23:35 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
8樓最有價值解答 P陳	您的程式經我測試結果是可以執行的也可以讀資料進來 1.程有一個地方小錯 (Like 前沒有空一格) str1 = "SELECT * FROM [sheet1$A3:K65535] where 聯絡人姓名及電話like '%(07)%'" 2.當欄名為 ABC 或 DEF 時，讀入TABLE 後就是 ABC DEF，但【ABC換行DEF】，欄名會自動加【__】變成 ABC_DEF 本篇文章回覆於2019-03-18 07:33 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
9樓回應 P陳	有發站內信給您了，請收本篇文章回覆於2019-03-18 07:39 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
10樓作者回應小妏子	感謝P陳大大,在欄名中加【__】就可以了,謝謝本篇文章回覆於2019-03-18 23:12 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
11樓回應 P陳	已作出來就好了本篇文章回覆於2019-03-19 20:22 == 簽名檔 == --未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.

1樓回應 P陳	讀進來後再Replace 即可 header1= replace(header,vbcrlf,"") header1= replace(header,vblf,"") header1= replace(header,vbcr,"") 本篇文章回覆於2019-03-17 06:28 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓作者回應小妏子	不好意思,我可能沒表達清楚. 我的問題是資料根本讀不進來.標題欄位[聯絡人姓名]在EXCEL中是分成兩行,SELECE中用[聯絡人姓名]或[聯絡人]都讀不到資料, 除非把標題改為一行本篇文章回覆於2019-03-17 10:34 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應 P陳	您程式及資料可以丟上來看一下嗎? 然後我在猜不是沒有讀進來，是你沒有看到而已本篇文章回覆於2019-03-17 15:52 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓作者回應小妏子	程式有點亂,大概如下,但檔案怎麼上傳? If strFILE2 = "" Then MessageBox.Show("請選擇通訊一覽表!") Exit Sub End If connectString2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFILE2 & ";Extended Properties='Excel 8.0;HDR=YES;IMEX=1;'" Dim conn2 As OleDbConnection = New OleDbConnection(connectString2) '取出通訊一覽表[聯絡人姓名及電話]資料包含(07) str1 = "SELECT * FROM [sheet1$A3:K65535] where 聯絡人姓名及電話like '%(07)%'" Dim adp_R As OleDbDataAdapter = New OleDbDataAdapter(str1, conn2) Try adp_R = New OleDbDataAdapter(str1, conn2) adp_R.Fill(myDS, "AAA_R") Catch ex As Exception End Try '關閉資料庫的連結 conn2.Close() MsgBox(myDS.Tables("AAA_R").Rows.Count) 本篇文章回覆於2019-03-17 22:59 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓作者回應小妏子	在MsgBox(myDS.Tables("AAA_R").Rows.Count) 會出現NullReferenceException訊息本篇文章回覆於2019-03-17 23:06 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
6樓回應 P陳	Catch ex As Exception 【這裏是空的】<<----不正常 msgbox (ex.message) <----請先改成這樣試一下 End TRY 除非把標題改為一行 <--- 這樣就讀得到 ??? ------------------------------------ 如果沒有錯誤訊息的話檔案不用了我自已產生即可本篇文章回覆於2019-03-17 23:26 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓作者回應小妏子	確定把標題改為一行這樣就讀得到. 謝謝本篇文章回覆於2019-03-17 23:35 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
8樓最有價值解答 P陳	您的程式經我測試結果是可以執行的也可以讀資料進來 1.程有一個地方小錯 (Like 前沒有空一格) str1 = "SELECT * FROM [sheet1$A3:K65535] where 聯絡人姓名及電話like '%(07)%'" 2.當欄名為 ABC 或 DEF 時，讀入TABLE 後就是 ABC DEF，但【ABC換行DEF】，欄名會自動加【__】變成 ABC_DEF 本篇文章回覆於2019-03-18 07:33 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
9樓回應 P陳	有發站內信給您了，請收本篇文章回覆於2019-03-18 07:39 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
10樓作者回應小妏子	感謝P陳大大,在欄名中加【__】就可以了,謝謝本篇文章回覆於2019-03-18 23:12 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
11樓回應 P陳	已作出來就好了本篇文章回覆於2019-03-19 20:22 == 簽名檔 == --未登入的會員無法查看對方簽名檔--