VB生成EXCEL报表后如何直接打开呢

Question

就是将数据库记录导入到EXCEL文件后可以直接打开,不用在EXCEL里面打开,请部这条语句如何写啊

Answer 1

dim Myxl As Object
Set Myxl = CreateObject("Excel.Sheet")
MePathData = App.Path & "GasVoice.xls"
Myxl.Application.Workbooks.Open MePathData '打开已存在的EXCEL文件
.........................
Myxl.Application.ActiveSheet.PrintOut  '打印
Myxl.Application.ActiveWorkbook.Save   '保存
Myxl.Application.Quit                  '关闭
Set Myxl = Nothing                     '释放资源