Public Sub test()
Dim wbk As Workbook
Dim Conswbk As Workbook
Dim Temppath As String
Dim PayTemp As String
Dim Path As String
Dim lstactrow As String
Path = "C:\Users\mathew.m.1\Desktop\New folder\"
Application.DisplayAlerts = False
Set Conswbk = ThisWorkbook
Conswbk.Worksheets("Consolidate Payments").Activate
Cells.ClearContents
Cells.ClearFormats
PayTemp = Dir(Path & "*.*")
'--------------------------------------------
'OPEN EXCEL FILES
Do While PayTemp > "" 'IF NEXT FILE EXISTS THEN
Set wbk = Workbooks.Open(Path & PayTemp)
'
Range("A12:M1000").Select
Selection.Copy
Conswbk.Worksheets("Consolidate Payments").Activate
lstactrow = Conswbk.Worksheets("Consolidate Payments").Cells(Rows.Count, "C").End(xlUp).Row
Range("B" & lstactrow).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial (xlPasteAll)
Conswbk.Worksheets("Consolidate Payments").Range("A" & lstactrow).Select
Selection.Offset(1, 0).Select
ActiveCell.Value = PayTemp
wbk.Close True
Set wbk = Nothing
PayTemp = Dir
Loop
MsgBox ("Done!!!")
End Sub
第一次打開工作簿。但是,在第二次循環之後它不會。需要幫忙。運行時錯誤1004 while workbook.open方法
刪除'Application.DisplayAlerts = False'直到它有效,您可能會屏蔽Excel幫助您解決問題。特別是因爲你正在使用'Cells()'(沒有前導''指的是當前工作簿),'.Activate'和'.Select'。當你使用這些工作簿時,你可能在錯誤的工作簿上。 – FreeMan 2015-03-30 18:35:33
弗里曼沒有幫助是否有任何其他方式? – 2015-03-30 18:39:28
它顯示任何錯誤消息嗎?您是否一次一行地進行調試,以確保您始終查看正確的表單?在調試過程中遇到其他任何錯誤? – FreeMan 2015-03-30 18:40:22