可以，你試一下：

DimexlAppAsExcel.Application

DimexlBookAsExcel.Workbook

SetexlApp=NewExcel.Application

exlApp.Visible=True'顯示Excel窗口

SetexlBook=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.CloseTrue'先保存修改再關閉工作簿

exlApp.Quit'關閉Excel