| 发表于:2007-10-15 10:21:324楼 得分:0 |
private function bexport() as boolean dim myapp as excel.application dim mybook as excel.workbook dim mysheet as excel.worksheet set myapp = createobject("excel.application") myapp.visible = false set mybook = myapp.workbooks.add() set mysheet = mybook.worksheets(1) mysheet.cells(5, 5).value = "what you name " mybook.saveas "\10.194.22.23\project\aaa.xls" myapp.quit set myapp = nothing msgbox "ok!" end function | | |
|