发布于 2010-11-26 14:16:24
1楼
Dim objExcelApp
Dim FileName
FileName="D:\baobiao\test.xls"
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.Visible=False
objExcelApp.Workbooks.Open FileName
objExcelApp.ActiveWorkbook.PrintOut()
objExcelApp.Workbooks.Close()
objExcelApp.Quit()
简单一点