13问答网 > 如何用VB 来读取EXCEL表中的数据，并用循环语句读出表中的一列数据

如何用VB 来读取EXCEL表中的数据，并用循环语句读出表中的一列数据

2024-11-22 00:56:13

推荐回答（1个）

回答1：

Private Sub Form_Load()
Dim oexcel, oworkbooks, newbook, newsheet, s As String
Set oexcel = CreateObject("Excel.application")
Set oworkbooks = oexcel.workbooks
Set newbook = oworkbooks.open("c:\Allsales.xls")
Set newsheet = newbook.worksheets(1)
s = newsheet.cells(1, 1)
MsgBox s
newbook.Close
oexcel.quit
end sub