如何用VB 来读取EXCEL表中的数据,并用循环语句读出表中的一列数据
发布网友
发布时间：2023-07-26 00:11
共1个回答
热心网友
时间：2023-08-01 10:39
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
