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

[Rookie_Allen]

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

[dbcontrols]

shell "Excel.exe d:\1.xls"

[hwmys]

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                     '释放资源

[Rookie_Allen]

好像都不对嘛,行不通