Re: [VB6 ] 讀excel檔

看板Visual_Basic作者phterry (小風)時間17年前 (2008/07/29 16:23)推噓2(2推 0噓 5→)

留言7則, 3人參與討論串2/3 (看更多)

※ 引述《dragon19 (小臣)》之銘言： : 對不起喔!再次發言! : 我已經有到VB研究小站看了一段時間了 : 已經會讀到文字檔(*.txt)的值了! : 不過 : 讀不到excel的值 : 我有大概看了一下網站 : 不過找不到 : 能請問各位大大 : 怎麼讀excel(*.xls)檔的值= =" : 如A1 B1 A2 B2的值 : 謝謝!! 1. 專案 -> 設定引用項目 -> Microsoft Excel XX.XX Object Library (打勾) 註: XX.XX 的部份是 Object Library 的版本, 視你安裝的 Excel 而有所不同 2. 在 Form 上, 拉兩個 TextBox, 各為 Text1, Text2, 以及一個 CommandButton 名為 Command1 3. 利用以下的程式碼, 應該就可以讀到excel檔的資料了 Option Explicit Private Sub Command1_Click() Dim excelApp As Excel.Application Dim excelBook As Excel.Workbook Dim excelSheet As Excel.Worksheet Dim filename As String Set excelApp = CreateObject("Excel.Application") ' 彈出一個對話視窗讓你選你要讀的檔 filename = excelApp.GetOpenFilename Set excelBook = excelApp.Workbooks.Open(filename) ' 也可以用 Sheet 的名稱來代替, 例如 Worksheets("sheet1") Set excelSheet = excelBook.Worksheets(1) ' 讀出 A1 及 A2 的資料 Text1.Text = excelSheet.Cells(1, 1) Text2.Text = excelSheet.Cells(2, 1) ' Clean up Set excelSheet = Nothing excelBook.Close Set excelBook = Nothing excelApp.Quit Set excelApp = Nothing End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 163.139.161.63 ※ 編輯: phterry 來自: 163.139.161.63 (07/29 16:28)

→

m9556

07/29 19:11, , 1^F

07/29 19:11, 1^F

→

m9556

07/29 19:12, , 2^F

07/29 19:12, 2^F

→

phterry

07/30 10:26, , 3^F

07/30 10:26, 3^F