发布网友 发布时间:2024-10-04 13:06
共1个回答
热心网友 时间:2024-10-06 23:14
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