请教关于读取Excel中数据的简单问题。
我现在用以下程序打开了一个Excel文檔
Private Sub Command1_Click()
Set Xcl = CreateObject("Excel.Application")
Xcl.Workbooks.Add
Set Sheet1 = Xcl.Worksheets(1)
Set sheet2 = Xcl.Worksheets(2)
Set sheet3 = Xcl.Worksheets(3)
sheet2.Visible = xlSheetVeryHidden
sheet3.Visible = xlSheetVeryHidden
Sheet1.Name = "work"
Xcl.Visible = True
End sub
已经成功了﹐然后就在这个表格里输入数据。但是我想在Private Sub Command2_Click()的时候读取上面那个已经打开的Excel中输入的各格位的数据﹐存在变量当中。这一点我不会﹐哪位能帮忙给写出来一下﹐多谢了﹗
问题点数：0、回复次数：8Top
1 楼SoHo_Andy（冰）回复于 2003-12-01 09:19:37 得分 0
有两种方法打开Excel文件中的数据
1、以数据集的形式打开文件，示例如下
strFileName = dirname & filename & ".xls"
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strFileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
adoRecordset.Open "select * from [学生.sheet$] where 姓名 is not null", adoConnection, adOpenKeyset, adLockOptimistic
Do While Not adoRecordset.EOF
strTemp = Trim(adoRecordset.Fields("家庭住址") & "")
Loop
adoRecordset.Close
adoConnection.Close
你的Excel表单中的列名即为数据集的字段名，列名下对应的数据即为字段值
注意程序的写法
2、直接打开Excel表，按行列读取Range范围内的值
Dim exApp As Excel.Application
Dim exwbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Dim sheet As Excel.Worksheet
'打开 xls 数据文件
Set exApp = New Excel.Application
exApp.Visible = False
Set exwbook = exApp.Workbooks.Open(dirname & filename & ".xls")
For Each sheet In exwbook.Sheets
sheet.Range("B1").Select
msgbox ActiveCell.FormulaR1C1
Next
Top
2 楼liuhai_2599（大海）回复于 2003-12-01 11:31:23 得分 0
前面的都是对的﹐但是取值的最后一句有问题。请帮帮忙教我该怎幺写才能取到值?谢谢了﹗Top
3 楼liuhai_2599（大海）回复于 2003-12-01 11:32:18 得分 0
Dim exApp As Excel.Application
Dim exwbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Dim sheet As Excel.Worksheet
'打開EXCEL數据文件
Set exApp = New Excel.Application
exApp.Visible = True
exApp.Workbooks.Open "d:\book.xls"
Text1.Text = sheet.Cells(2, 2).ValueTop
4 楼happyhsh（三滴水）回复于 2003-12-03 20:34:56 得分 0
Dim exApp As Excel.Application
Dim exwbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Dim sheet As Excel.Worksheet
'打開EXCEL數据文件
Set exApp = New Excel.Application
exApp.Visible = True
exApp.Workbooks.Open "d:\book.xls"
set exwbook=exapp.activeworkbook
set sheet=exwbook.worksheet(1)
Text1.Text = sheet.Cells(2, 2).Value
Top
5 楼NETFUNNER（.NETFUNNER）回复于 2003-12-29 17:22:11 得分 0
upTop
6 楼haode（好的）回复于 2003-12-30 15:14:27 得分 0
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(2) '打开EXCEL工作表
xlsheet.Activate '激活工作表
......
Label27.Caption = xlsheet.Cells(4, 7)
......Top
7 楼VisualSW（程序员和钳工是一个工种）回复于 2003-12-30 20:45:14 得分 0
upTop
8 楼wlwy（阿玉）回复于 2004-01-01 10:22:34 得分 0
upTop
