作者phterry (小風)
看板Visual_Basic
標題Re: [VB6 ] 讀excel檔
時間Tue Jul 29 16:23:14 2008
※ 引述《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)
1F：→ m9556:我想問一下~若沒有裝M$的Excel若要引用，應該要怎樣做? 07/29 19:11
2F：→ m9556:可以連結DLL嗎??? 07/29 19:12
3F：→ phterry:這個方法是一定要裝Excel,但網路上應該有一些3rd party 07/30 10:26
4F：→ phterry:可以不用裝Excel就能做的也說不定 07/30 10:26
5F：推 parrotot:excel 2007的副檔名是什麼呢 08/01 14:57
6F：→ parrotot:存成.XLS 2007開起來他會說檔案是不是毀隕 08/01 14:58
7F：推 parrotot:請問@@該如何是好 08/01 16:14