Files öffnen per Makro

Forumthread: Files öffnen per Makro

13.06.2003 12:28:03

Remo

Hallo Leute

Ich habe ein Makro in dem ich alle Excelfiles eines Ordner
öffnen möchte. Die Namen bezw. Anzahl der Files können ändern.

Weiss jemand Rat?

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Files öffnen per Makro

13.06.2003 13:04:53

Erwin

Re: Files öffnen per Makro

13.06.2003 13:04:53

Erwin

Kann leider nur mit Excel 97 dienen, ist aber einen Versuch wert. Probier folgendes Makro

Sub FilesÖffnen()
Dim pfadfile As String, fileart As String
Dim mappe As String
pfadfile = "c:\eigene dateien\" 'Hier den richtigen Pfad setzen
fileart = ".xls"
mappe = Dir(pfadfile & "\*" + fileart)
Do
If mappe <> "" Then
'mappe gefunden
Workbooks.Open mappe
'Nächste Mappe suchen
mappe = Dir
End If
Loop While mappe <> ""
End Sub

Sollte laufen. Cu Erwin

Forumthread: Files öffnen per Makro

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread