ich nutze im Moment folgenden Code, um die Dateinamen eines (geschlossenen) Ordners auszulesen:
Sub GeschlosseneMappenListen()
Dim fs As Object
Dim fverz As Object
Dim fDatei As Object
Dim FDateien As Object
Dim strDat As String
Dim x As Integer
x = 1
Set fs = CreateObject("Scripting.Filesystemobject")
Set fverz = fs.getfolder("G:\...")
Set FDateien = fverz.Files
For Each fDatei In FDateien
If InStr(fDatei, "xl") > 0 Then
strDat = strDat & fDatei.Name & vbLf
End If
x = x + 1
Cells(2, x).Value = strDat
strDat = ""
Next fDatei
End Sub
Nun möchte ich die Namen aller Tabellenblätter innerhalb einer (geschlossenen) Datei auslesen und auflisten. Ich habe schon versucht, den o.g. Code hierfür anzupassen, jedoch ohne Erfolg. Kann mir jemand von euch hierbei weiterhelfen?Danke und Gruß
Sandra