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