在vb中怎样得到Excel中的数据？

tiantiantian 2002-04-23 09:14:24

怎样得到Excel中的数据？

...全文

67 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxqlogo0 2002-04-23

打赏
举报

Option Explicit
Dim db As Database
Dim rs As Recordset
Private filepath As String
Private sheetname As String

Private 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