Private Sub Command1_Click() - Dim Con As Object, Res As Object
- Set Con = CreateObject("ADODB.Connection")
- Set Res = CreateObject("ADODB.Recordset")
- Con.Open ("DRIVER=Microsoft Excel Driver (*.xls);DBQ=c:\classmate.xls")
- Res.Open "[sheet1$]", Con
- 'Excel工作表名稱(chēng) + $ 才是Table的名稱(chēng)喔
-
For i = 0 To Res.Fields.Count - 1 - Print Res.Fields(i).Name,
Next - Print
-
Do Until Res.EOF -
For i = 0 To Res.Fields.Count - 1 - Print Res.Fields(i).Value,
Next - Print
- Res.MoveNext
Loop End Sub |
