发布于 2009-08-31 17:27:16
0楼
Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open fname
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.ClosE
objExcelApp.QuiT
Set ObjEXceLapp = Nothing
小时候我们哭着哭着就笑了,长大后我们笑着笑着就哭了。。。