Dim db As Database
Dim rs As Recordset
Private filepath As String
Private sheetname As StringPrivate Sub Form_Activate()
DoEvents
filepath = "路径名 & 文件名"
sheetname = "Sheet1$"
Set db = OpenDatabase(filepath, False, False, "Excel 8.0;HDR=yes;")
Set rs = db.OpenRecordset(sheetname)
rs.MoveFirst
Screen.MousePointer = 11
While rs.EOF <> True
List1.AddItem rs.Fields("Name") & "  " & rs.Fields(1) & "  " & rs.Fields(2)
rs.MoveNext
Wend
Screen.MousePointer = 0
End Sub

解决方案 »

  1.   

    首先引用Microsoft Excel x.0 对象库    Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet    Set xlApp = CreateObject("Excel.Application")
        Set xlBook = xlApp.Workbooks.Open("c:\test.xls")
        Set xlSheet = xlBook.Worksheets(1)
        
        xlSheet.Cells(1, "B") = "abcd" '设置单元格内容
        Msgbox xlSheet.Cells(2, "C")  '返回单元格内容