AW: in Wordvorlage eine Zelle aus Excel erledigt
03.06.2021 17:53:47
Peter
Hallo Hajo,
mit nachstehenden Zeilen in der VBA in Word kann ich den Namen der aktuellen Exceldatei auslesen:
Sub pfadAktualisieren()
Dim aktuellerpfad As String, alterpfad As String
Dim DocWD As Document
Dim DokWD As Document
Dim anfang, ende
Dim aktuellerpfad2 As String, alterpfad2 As String
Dim ext, x, srcFile As String, d As String 'benötigt zum Finden des Namen der Excel-Datei
Dim aktEDatEnd As String 'benötigt zum Finden des Namen der Excel-Datei
Dim gefundenerWert As String 'benötigt zum Finden des Namen der Excel-Datei
'Abteilung aktueller Pfad------------------------------------------------------------------------------------------------
'Das soeben geöffnete Dokument zum Objekt machen, mit dem weitergearbeitet wird
Set DocWD = ActiveDocument
Set DokWD = ThisDocument
'aktuellen Pfad in der Variable aktuellerpfad merken (pathSeparator ist hier der abschließende Backslash)
' aktuellerpfad = DocWD.Path & Application.PathSeparator
aktuellerpfad = DokWD.Path & Application.PathSeparator
'aktuellerpfad = Replace(aktuellerpfad, "", "") '
'Backslashes verdoppeln, damit der Pfad so vorliegt wie im Exel-Link-Feld
aktuellerpfad = Replace(aktuellerpfad, "\", "\\") '
'Debug.Print aktuellerpfad
'Kontrolle:
'MsgBox "Der aktuelle Pfad lautet: " & aktuellerpfad
'Anfang Finden des Namen der Excel-Datei im Ordner 02
ext = Array("*.xls", "*.xlsm", "*.xlsx")
For Each x In ext
d = Dir(aktuellerpfad & x)
aktEDatEnd = Right(d, 5)
'Debug.Print aktEDatEnd
If aktEDatEnd = ".xlsm" Then
gefundenerWert = d
'Debug.Print gefundenerWert
Exit For
End If
Next
'Ende Finden des Namen der Excel-Datei im Ordner 02
Das gesamte Makro ist im Office-Forum sichtbar.
Gruss
Peter