|
Hallo liebe Excel-Gemeinde,
ich habe folgendes Problem:
bei diesem Code kommt immer nach dem Öffnen der ersten Datei "Index außerhalb des gültigen Bereiches"
Ich habe schon geprüft, ob es am Dateinamen liegt, dem ist aber nicht so.
Habt ihr vielleicht noch einenen schlauen Hinweis?
Vielen Dank im Voraus
gruß
Sascha
Sub CopyData()
Dim strPath$
On Error GoTo ErrorHandler:
With Application
.ScreenUpdating = False
.EnableEvents = False
'Datei1
strPath = "D:\Users\xxxx\Desktop\Test\01_Datei.xlsx"
With Workbooks.Open(strPath, ReadOnly:=True, Password:="Passwort!", WriteResPassword:="Passwort")
.Sheets(2).Range("C15:J15").Copy
ThisWorkbook.Sheets("Test").Range("B3").PasteSpecial Paste:=xlValues
.Close False
End With
'Datei2
strPath = "D:\Users\xxxx\Desktop\Test\02_Datei.xlsx"
With Workbooks.Open(strPath, ReadOnly:=True, Password:="Passwort!", WriteResPassword:="Passwort")
.Sheets(2).Range("C15:J15").Copy
ThisWorkbook.Sheets("Test").Range("B4").PasteSpecial Paste:=xlValues
.Close False
End With
.EnableEvents = True
.ScreenUpdating = True
End With
Exit Sub
ErrorHandler:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox Err.Description, _
vbCritical + vbMsgBoxSetForeground + vbMsgBoxHelpButton, _
"Error: " & Err.Number, Err.HelpFile, Err.HelpContext
End Sub
|