Supportnet / Forum / Tabellenkalkulation

[i]Hally Hallo[/i], Wie kann ich ohne einen jedes mal einen [b]Dateinamen[/b] angeben zu müssen ein [b]Makro[/b] schreiben? [code]Set fs = Application.FileSearch With fs .LookIn = "D:\Moritz_MEyer\Neuer Ordner\" .Filename = "*.xls" If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then **Hier bräuchte ich einen Befehl um zu sagen öffne alle [b]FOUNDFILES[/b].** Else MsgBox "Keine Datei vorhanden." End If End With[/code]

Hallo Namensloser,

Option Explicit

Sub Dateiliste_Öffnen()
' erstellt von Hajo.Ziplies@web.de
' http://home.media-n.de/ziplies/
' alle Dateien eines Ordners öffnen
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "D:\Eigene Dateien\Hajo\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname <> ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
' Dein Makro
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub

Gruß Hajo

Hallo Kennyger,

wenn Du meinen Code aus Deinem alten Thread genommen hättest und Deinen vorhandenen Code, den ich einfach blind dazwischen kopiert habe, gelöscht hättest, dann hättest Du nachfolgenden Code erhalten, der Dir ohne einen Namen angeben zu müssen, alle Dateien in dem vorgegebenen Verzeichnis öffnet.

Option Explicit

Sub Makro1()
Dim Dateiname As String
Dateiname = Dir("C:\Dokumente und Einstellungen\BRaune\Desktop\Neuer Ordner\Neuer Ordner\*.xls")
Do While Dateiname <> ""
Workbooks.Open Dateiname
msgbox Dateiname  & " offen"
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub

Aber das willst Du ja scheinbar nicht.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Kennyger,

ich noch mal. Ist Dir eigentlich mal aufgefallen, dass Du wegen einer Frage bereits 3 Beiträge geöffnet hast? Warum machst Du das? Du erhälst in allen 3 Beiträgen Antworten, nur keiner der 3 Antworter weiß zu diesem Zeitpunkt, dass mitlerweile jemand anderes eine eventuelle Lösung gepostet hat. Bitte beschränke Deine Probleme in Zukunft auf einen Beitrag und erstelle nicht mehrere.

Danke und Gruß,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}