在程式呼叫excel後怎麼讓它關閉
Private Sub Form_Load() Dim MyXlsApp As Excel.Application Set MyXlsApp = CreateObject("Excel.Application") MyXlsApp.Visible = True '=False 隱藏 MyXlsApp.workbooks.Open FileName:="C:\BASE.xls" '如果是新開檔就用add MyXlsApp.Quit '應該是寫入這一行吧 Set MyXlsApp = Nothing End Sub ============================================== MyXlsApp名子隨便取^^ 要把 <專案> <設定引用項目> 裡的Excel選項開啟
可以了謝謝! 另有一個問題,如何呼叫巨集及副程式
MyXlsApp.Application.Run "BASIC.xls!xxxx" ^^^^^^^^^^^^^^^^ ===================================================== 應該搜尋很容易找到吧。
先謝啦! 下星期到公司再試試