Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA ExcelDateinamen und Arbeitsblattnamen einlesen

VBA ExcelDateinamen und Arbeitsblattnamen einlesen
16.11.2008 15:07:00
MarkusL
Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Datei1..............Tabelle1
Datei1..............Tabelle2
Datei1..............Tabelle3
Datei2..............Tabelle1
Datei2..............Tabelle2
Danke
Markus
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA ExcelDateinamen und Arbeitsblattnamen einlesen
16.11.2008 15:21:00
MarkusL
Hallo,
danke für die Datei, cooles Project!! Ich benutze zur Zeit nachfolgenden wesentlich reduzierten Ansatz und suche nun nach einer Möglichkeit noch die Arbeitsblattnamen je Datei einzulesen.

Sub DateienEinlesen()
Dim sFile As String, sPattern As String, sPatch As String
Dim iRow As Integer
Columns(1).ClearContents
sPath = InputBox( _
prompt:="Pfad", Default:="C:\Users\Markus\Documents\@Dokumente\Test")
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = InputBox( _
prompt:="Dateifilter:", Default:="*.xls")
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow, 1).Value = sFile
sFile = Dir()
Loop
End Sub


Hierzu evtl. eine Idee
Gruß
Markus

Anzeige
AW: VBA ExcelDateinamen und Arbeitsblattnamen einlesen
16.11.2008 15:25:10
Hajo_Zi
Hallo markus,
ich komme mir verar... vor. Warum sollen sich die Leute hier eine Kopf machen, wenn Du schon einen Code hast und nur eine Ergänzung brauchst.
Danke für mich ist schluss.
Gruß Hajo
AW: VBA ExcelDateinamen und Arbeitsblattnamen einlesen
16.11.2008 15:27:56
MarkusL
Hallo Hajo,
dieses war in keinster weise meine Absicht, sorry falls dieses evtl. rübergekommen ist!!!
Gruß
Markus
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige