การเปิดไฟล์ของ Excel โดยไม่ต้องใช้ Shell ก็ทำได้ดังนี้

Sub SampleProgram()
Dim ObjExcel As Object
Dim MySheet As Object
Set ObjExcel = CreateObject("Excel.Application")
Set MySheet = ObjExcel.workbooks.Open(ap_AppDir & "Book1.xls")
ObjExcel.Visible = True
MsgBox "Quit?"
Set MySheet = Nothing
ObjExcel.Quit
Set ObjExcel = Nothing
End Sub