请教关于读取Excel中数据的简单问题。

Question

我现在用以下程序打开了一个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中输入的各格位的数据﹐存在变量当中。这一点我不会﹐哪位能帮忙给写出来一下﹐多谢了﹗

Answer 1

有两种方法打开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

Answer 2

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).Value

Answer 3

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

Answer 4

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)
    ......