可以，你試一下：

Dim exlApp As Excel.Application

Dim exlBook As Excel.Workbook

Set exlApp = New Excel.Application

exlApp.Visible = True "顯示Excel視窗

Set exlBook = exlApp.Workbooks.Open(App.Path + "\test.xls") "Excel檔案路徑及檔名

"向Excel表中寫入資料，Sheets(1)為第1個工作表，Cells(行號,列號)是單元格

exlApp.Sheets(1).Cells(1, 1) = "11"

exlApp.Sheets(1).Cells(1, 2) = "12"

exlApp.Sheets(1).Cells(2, 1) = "21"

exlApp.DisplayAlerts = False "不顯示警告資訊

exlBook.Close True "先儲存修改再關閉工作簿

exlApp.Quit "關閉Excel

補充回答：

我也放在窗體關閉事件中試了一下，不會宕機呀。你有沒有在“工程-引用”中勾選“Microsoft Exel 11.0 Object Library”選項？會不會與Excel的版本有關？我用的是Office XP專業版。 還有一點，你要直接執行本程式的話，還必須先在工程目錄中新建一個"test.xls"檔案。