Thema Datum  Von Nutzer Rating
Antwort
Rot Auslesen von Daten aus einer geschlossenen Excel Datei
02.11.2023 14:24:35 Walter
NotSolved
02.11.2023 15:23:24 Mase
NotSolved
02.11.2023 15:26:00 Gast19466
NotSolved
02.11.2023 17:00:31 Mase
NotSolved
03.11.2023 14:29:38 Gast95524
NotSolved
03.11.2023 01:41:04 Gast65139
NotSolved
03.11.2023 08:50:37 Walter
NotSolved
04.11.2023 21:01:46 Gast61740
*****
Solved

Ansicht des Beitrags:
Von:
Walter
Datum:
02.11.2023 14:24:35
Views:
622
Rating: Antwort:
  Ja
Thema:
Auslesen von Daten aus einer geschlossenen Excel Datei

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

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Auslesen von Daten aus einer geschlossenen Excel Datei
02.11.2023 14:24:35 Walter
NotSolved
02.11.2023 15:23:24 Mase
NotSolved
02.11.2023 15:26:00 Gast19466
NotSolved
02.11.2023 17:00:31 Mase
NotSolved
03.11.2023 14:29:38 Gast95524
NotSolved
03.11.2023 01:41:04 Gast65139
NotSolved
03.11.2023 08:50:37 Walter
NotSolved
04.11.2023 21:01:46 Gast61740
*****
Solved