Office: [VBA] Kleines Problem mit ExecuteExcel4Macro

Hi,

ich habe folgendes VBA-Problem. Hab schon durchgegoogelt und auch das Forum durchsucht, aber keine Antwort gefunden. Deshalb hoffe ich, dass mir hier jemand weiterhelfen kann.

Und zwar lese ich über einen InputBox den Dateinamen (z.B. daten1.xls) ein, der dann unter der Variable dateiName gespeichert wird. Jetzt möchte ich, dass ich mit dem in der Variable gespeicherten Namen über ExecuteExcel4Macro das jeweilige eingegebene Excel-Sheet und einzelen Zellen aufrufen kann. Leider wird die Variable im unten angegebenen Code als Name angesehen. Was muss ich machen, dass in dem folgenden Codeabschnitt die Variable dateiName als Variable mit dem Wert daten.xls und nicht als eigentliche Exceldatei vom Compiler gelesen wird?

Code:

ExecuteExcel4Macro("'C:\Eigene Dateien\Excel\[dateiName]Januar 2004'!" _& Cells(1, 1).Address(ReferenceStyle:=xlR1C1))

Vielen Dank schon mal im Voraus.

Viele Grüße
Slack

 

Hallo!

Klappt es so?

ExecuteExcel4Macro("'C:\Eigene Dateien\Excel\[" & dateiName & "]Januar 2004'!" _& Cells(1, 1).Address(ReferenceStyle:=xlR1C1))

 

Hey,
vielen Dank. Klappt nun.

Hab nun ein weiteres ähnliches Probelm. Möchte nun eine geschlossene xls Datei durchsuchen. Verwende dazu ein Do Until. Hab jetzt das folgendermaßen unter With Sheets reingeschrieben:

With Sheets("C:\desktop-tmp\[" & dateiName & "]Tabelle1")
Do Until ....

Bringt aber leider einen Fehler bzw. geht dort nicht rein. Kann mir jemand sagen, was dort falsch ist oder wie man allgemein geschlossene Datei durchsucht?

Vielen Dank im Voraus.

Grüße
slack

 

Hallo!

Irgendwie verstehe ich das nicht...
Erst fragst du nach der Verwendung von ExecuteExcel4Macro und jetzt benutzt du es nicht???

Dieses Makro durchsucht die Spalte B von 'E:\Test\[test1.xls]Tabelle2' nach dem Wort "Hallo" und gibt die Zeilennummer aus:

Code:

Sub Auslesen()
Dim n As Integer
Const Datei = "test1.xls"
Do
n = n + 1
Loop Until ExecuteExcel4Macro("'E:\Test\[" & Datei & "]Tabelle2'!" & _
Cells(n, 2).Address(ReferenceStyle:=xlR1C1)) = "Hallo"
ThisWorkbook.Sheets("Tabelle3").Cells(1, 5) = n
End Sub