為啥不能拷回來用借用別人給的例子供你參考建立一個帶宏的Excel檔案，插入一個模組：Sub test_hello() MsgBox "hello"End Sub這個檔案中的模組是被呼叫的物件。再建立一個Excel檔案，建立下面的宏用來呼叫上面的物件。Sub test_calling()Dim xl_wb As Excel.WorkbookDim xl_wb_name As StringWith Application.FileDialog(msoFileDialogFilePicker) "使用檔案對話方塊選取要呼叫宏所在的檔案 .AllowMultiSelect = False If .Show = -1Then xl_wb_name =.SelectedItems(1) End IfEnd WithSet xl_wb =Workbooks.Open(xl_wb_name) "非必須開啟這個檔案，但這樣操作方便關閉這個檔案Application.Run """ & xl_wb_name &""!test_hello" "這裡需要用分隔符單引號和連線符生成呼叫檔案路徑和宏名xl_wb.Close savechanges:=FalseEnd Sub