各位大神，我希望打開不同檔案夾下的excel檔案，并將其中一部分復制匯總到一張新表，但是到這句“Application.Workbooks.Open Filename:=myfile & Sheets("公司簡稱").Cells(3, 3) & "\各公司報告\" & Cells(n, 1) & "\*.xlsx"”總會提示“方法open作用于物件workbooks時失敗”，代碼如下，請各位大神幫忙指導，謝謝！
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
On Error Resume Next
Application.SendKeys "{ENTER}" '回車
End Sub
Sub 非正常滿期()
For n = 2 To 25
i = n - 1
myfile = ThisWorkbook.Path & "\"
Application.Workbooks.Open Filename:=myfile & Sheets("公司簡稱").Cells(3, 3) & "\各公司報告\" & Cells(n, 1) & "\*.xlsx"
Sheets("表1－4 非正常滿期給付").Select
Range("A1:J15").Select
Selection.Copy
ActiveWindow.Close False
Windows("VBA表.xlsm").Activate
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets(i).Select
Sheets(i).Name = Sheets("公司簡稱").Range(B & n)
Next
End Sub
uj5u.com熱心網友回復：
qq656972278 可以遠程除錯，限晚上。估計10點左右上線。uj5u.com熱心網友回復：
在Excel中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/51446.html
標籤：VBA
上一篇：VB中計算結果輸出到word中時，可不可以把textbox中的數值參考過來
下一篇：VBA按照輸入的值進行篩選