| 发表于:2007-09-05 16:08:062楼 得分:0 |
dim theobj as new excel.application theobj.workbooks.open app.path & "\ " & filename, , , , "1 " theobj.worksheets( "sheet1 ").activate '将数据写入excel ..... theobj.visible = true theobj.worksheets( "sheet1 ").printpreview theobj.displayalerts = true theobj.quit set theobj = nothing | | |
|