irgendwo ist der Wurm drin...
Bitte um eure mithilfe.
Folgender Code soll den Dateinamen (einzige in dem Ordner)
im Ordner auslesen (da der Name der Datei variabel ist).
Dann soll der Code die Datei öffnen, Sheet2
kopieren und in "ThisWorkbook" einfügen.
Ich komme nicht mal dahin, dass es mir die Datei öffnet.
Vielen Dank vorab!
Sub Name_Ordner()
'Dateinamen auslesen
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim Datei As String
Dim Pfad As String
Dim Verzeichnis As String
Set fs = CreateObject_
("scripting.FileSystemObject")
Set fVerz = fs.getFolder_
("U:\HTZ\123\")
Set fdateien = fVerz.Files
For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
strDat = fDatei.Name & vbLf
End If
Verzeichnis = "U:\HTZ\123\"
Next fDatei
MsgBox strDat
ThisWorkbook.Worksheets_
("Tabelle3").Range("A1") = strDat
Datei = ThisWorkbook._
Worksheets("Tabelle3").Range("A1").Text
Pfad = Verzeichnis & Datei
Dim wbZiel As Workbook
Dim wbQuelle As Workbook
Set wbZiel = ThisWorkbook
'Die Mappe, in der der Code liegt
Set wbQuelle = Workbooks.Open(Pfad)
wbQuelle.Sheets(1).Cells.Copy_
Destination:=wbZiel.Sheets(1).Cells
Application.CutCopyMode = False
wbQuelle.Close SaveChanges:=False
Set wbQuelle = Nothing
Set wbZiel = Nothing
End Sub