发表于:2003-06-09 13:58:00
4楼
intouch中
StartApp "e:\vb\query";
vb中
Public range2 As Excel.Application
range2.ActiveWorkbook.Save
range2.Workbooks(qq4).Save
range2.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
range2.ActiveWorkbook.Close
range2.Quit
Set range2 = Nothing