|
从论坛上找的,可以参看一下
on error resume next
Set excel = GetObject(,"excel.application")
if(excel Is Nothing) then
Set excel = CreateObject("excel.application")
if(excel Is Nothing) then
MsgBox "Couldn't find Excel!"
Exit Sub
End if
End if
Set book = excel.Workbooks.Open("Your Book1.xls")
Set worksheet = book.Worksheets("Your Excel sheet's name")
For count=1 To 2
name = worksheet.Cells(1,count).Value
pass = worksheet.Cells(2,count).Value
Next count
'Quit Excel'''''''''''''''''''''
excel.Quit
Set excel = Nothing |
|