作者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