|
Hallo zusammen
Office 2021, Win10
Ich möchte mit der ExecuteExcel4Macro Methode Daten aus einer geschlossenen Excel Datei auslesen.
Dafür habe ich eine Funktion geschrieben die ich jederzeit mit anderen Parametern aufrufen kann.
Wenn der Dateiname der geschlossenen Excel Datei ausgeschrieben ist funktioniert das gut:
VorNameAuslesen = ExecuteExcel4Macro("'" & Dateipfad & "[TestDatei.xlsm]" & TabellenblattName & "'!" & Range(ZelleVorname).Address(, , xlR1C1))
Weise ich den Dateiname mit einer Variable zu dann öffnet die Routine einen belibigen Ordner und bleibt stehen:
VorNameAuslesen = ExecuteExcel4Macro("'" & Dateipfad & Dateiname & TabellenblattName & "'!" & Range(ZelleVorname).Address(, , xlR1C1))
Ich bin ratlos und hoffe jemand kann mir da helfen.
Hier der Code der ganzen Funktion:
Function VorNameAuslesen(Pfad As String, TabellenblattName As String, ZelleVorname As String)
'Variablen dimensionieren
Dim Dateipfad As String
Dim Dateiname As String
'Pfad trennen
Dateipfad = Left(Pfad, InStrRev(Pfad, "\"))
Dateiname = Right(Pfad, Len(Pfad) - InStrRev(Pfad, "\"))
VorNameAuslesen = ExecuteExcel4Macro("'" & Dateipfad & Dateiname & TabellenblattName & "'!" & Range(ZelleVorname).Address(, , xlR1C1))
End Function
Sub WertAuslesen()
Dim Pfad As String
Dim BlattName As String
Dim Vorname As String
Dim Nachname As String
Dim Datum As String
Dim ZelleVorname As String
BlattName = "Karteikarte"
Pfad = "C:\Users\wwini\Documents\TestDatei\TestDatei.xlsm"
ZelleVorname = "C4"
MsgBox VorNameAuslesen(Pfad, BlattName, ZelleVorname)
End Sub
|