回复 #1 sandwich 的帖子
一个简单的例子,
Set xlsApp = CreateObject("Excel.Application")
set wBook = xlsApp.Workbooks.Open("C:\Cogs.xls")
Set wSheet = wBook.Worksheets("Sheet1")
wSheet.Visible = True
wSheet.Cells(4,5).Value = "this is a test"
Set wSheet = Nothing
wBook.Close
Set xlsApp = Nothing