Question

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

如题，就是想从excel中读出一列数据，代码应该是怎样的呢？多谢了

Answer 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