发布于 2009-05-13 08:16:13
0楼
Dim xlApp
Dim xlBook
Dim strFileName '指定的Excel文件名
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strFileName)
Set xlBook = xlApp.Workbooks.Add
...
xlBook.Close True, strFileName
无论成与败,无论甜与苦,我还是我。