Probleme bei Auslesen von Dateinamen
07.02.2018 08:44:45
Dateinamen
da mir Rudi so prima geholfen hat, komme ich gut weiter, jetzt habe ich nur ein Problem:
Damit ich mehrere Dateien in einem Ordner nacheinander öffnen kann, um dann aus jeder Datei etwas zu kopieren, habe ich mir entsprechenden Code besorgt. DAs ganze sieht jetzt so aus:
Dim fs As Object
Dim fVerz As Object
Dim fdatei As Object
Dim fdateien As Object
Dim strdat As String
Dim wksA As Worksheet
Dim wkbB As Workbook
Dim wksB As Worksheet
Dim lRow As Long
Set fs = CreateObject("scripting.filesystemobject")
Set fVerz = fs.getFolder("\\\\Benutzer\H001\Desktop-TS\Auswertung\\Maschine\")
Set fdateien = fVerz.Files
For Each fdatei In fdateien
If InStr(fdatei, "") > 0 Then
Set wkbB = Workbooks.Open(fdatei.Name)
'Set wkbB = Workbooks.Open("\\Benutzer\H001\Desktop-TS\Auswertung\\Maschine\") & fdatei. _
Name
lRow = 2 'erste Zeile
Set wksA = ActiveSheet 'Zielblatt
For Each wksB In wkbB.Worksheets 'alle Worksheets durchlaufen
wksA.Cells(lRow, 1) = wksB.Name 'Name der Tabelle
wksB.Range("F12:V12").Copy
wksA.Cells(lRow, 2).PasteSpecial xlValues 'A1:J1 kopieren
lRow = lRow + 1
Next wksB
wkbB.Close False
End If
Next fdatei
End Sub
Set wkbB = Workbooks.Open(fdatei.Name)
der Fehler, dass der die Datei nicht findet.
Ich hab auch das hier ausprobiert:
'Set wkbB = Workbooks.Open("\\Benutzer\H001\Desktop-TS\Auswertung\\Maschine\") & fdatei.Name
Da findet er die Datei auch nicht. Ich weiß auch nicht, wodran das liegen könnte. Es ist auch das erste mal, dass ich mich mit "CreateObject" beschäftige.
Die Schreibweise des Pfades habe ich auch schon mit "\" hinter Maschine und ohne ausprobiert.
Hat jemand eine Ahnung, was ich falsch mache?