Set xlApp = CreateObject("Excel.Application") "建立EXCEL物件

Set xlBook = xlApp.Workbooks.Open(App.Path & "\檔名.xls") "開啟已經存在的EXCEL工件簿檔案

xlApp.Visible = True "設定EXCEL物件可見（或不可見）

Set xlSheet = xlBook.Worksheets("sheel1") "設定活動工作表，sheet1表示表名，可以使用字元型變數代替。

xlSheet.Activate "啟用工作表，讓它處於前臺活動中。

xlBook.RunAutoMacros (xlAutoOpen) "執行自動開啟宏Macro1()，在EXCEL中加入以下宏

"Sub auto_open() "這是VBA中的自動開啟時執行的宏

" 您要宏自動執行的程式，比如可以call其它的宏，這樣VB在開啟EXCEL時，使用上面的語句就可以先執行這個宏

"End Sub