Alle *.xls aus Ordner öffnen, dynamischer Link?

Computer: Software & Programmierung Office Software
1

Hallo!

Ich habe folgendes Problem. Ich will aus einem Ordner alle Excel Daten laden in dem das Hauptblatt ist, das ich geöffnet habe. Das funktioniert bereits aber leider nur mit fix vorgegebenen Pfad :frowning:

Gibt es einen Befehl o.ä. dass das Makro nur die Daten aus dem aktuellen Verzeichnis öffnet ohne fix vorgegebenen Pfad? Diese Daten werden oft kopiert und ähnliches und ein fixer Pfad bringt die ganze Kalkulation ins Wanken!

Hier mein Makro
Private Sub CommandButton2_Click()

Dim strFile As String, strPath As String
Dim intCounter As Integer
Application.ScreenUpdating = False
strPath = „p:\XX\XX\XX\XX“ „“
Workbooks.Open strPath & strFile
strFile = Dir()
Loop

End Sub

Thx 4 help
mfg Naiboo

2

‚ActiveWorkbook.Path‘ könnte Dir helfen

Private Sub CommandButton2\_Click()
Dim strFile As String, strPath As String
Dim intCounter As Integer
 Application.ScreenUpdating = False
 strPath = ActiveWorkbook.Path ' & "\" 'ggf. ranhängen
 strFile = Dir(strPath & "\*.xls")
 Do While strFile ""
 Workbooks.Open strPath & strFile
 strFile = Dir()
 Loop
End Sub 'CommandButton2\_Click

Kristian

3

Weidmannsdank!

genau das wars :wink:

thx4help

4

Okay

Weidmannsdank!
genau das wars :wink:
thx4help

Diese Antwort hättest Du aber MIR schicken müssen und nicht DIR :wink:

Kristian