Speicherpfad Xl-Mappe aus MSO heraus ermitteln
Lutz
habe von Nepumuk den nachfolgeden Code erhalten, um den Speicherpfad einer Excel-Datei von Outlook gesteuert, auszulesen.
Wie muß ich die Abfrage in Outlook gestalten, wenn der Dateiname in Excel variabel ist?
Es könnten in Excel mehrere Dateien geöffnet sein, aber nur eine enthält den Code der mit Run... gestartet wird.
Outlook muss sich den Pfad aus Excel abholen.
Beispiel:
Der Code in Excel:
Public Function ExcelPfad() As String
Dim varPfad As Variant
varPfad = "C:\Ordner\Unterodner\Date.xls"
ExcelPfad = CStr(varPfad)
End Function
Der Code in Outlook:
Public Sub test()
Dim objExcel As Object
Dim strPfad As String
Set objExcel = GetObject(, Class:="Excel.Application")
strPfad = objExcel.Run("Mappe1.xls!ExcelPfad")
MsgBox strPfad
Set objExcel = Nothing
End Sub
M.f.G.
Lutz
Anzeige