Excel-Makro: Suche Pfad-Funktion

Computer: Software & Programmierung Office Software
1

Problem ist, dass ich in Excel eine benutzerdefinerte Fußzeile einfügen muss. Sie muss folgendes enthalten:
, , ,

Das habe ich mit einem Makro gelöst. Sieht dann ungefähr so aus:

Sub PfadinFusszeile()
Text = ActiveWorkbook.FullName
Text = Text + ", " + Application.UserName
Text = Text + ", " & Date & ", " & Time
ActiveSheet.PageSetup.LeftFooter = Text
MsgBox („Es wurde '“ + Text + „’ in die Fußzeile eingefügt.“)
End Sub

Mein Problem ist jetzt der Pfad. Wenn die zu bearbeitende Datei auf einem Netzlaufwerk unserer NT-Domäne liegt, dann schreibt er halt x:\mustermann\meine_datei.txt. Wie kann ich es lösen, dass er den vollen Hostnamen schreibt, z.B: \nt_host1\abteilung\mustermann\meine_datei.txt ???

Wer kann mir helfen?

Ciao.

2

Hallo,

s.FAQ von www.excel-center.de:

Sub PfadInFußzeile()
ActiveSheet.PageSetup.LeftFooter = _ ActiveSheet.Parent.Fullname
End Sub

Kommt damit der komplette Pfad auch nicht richtig?

Grüße
Horst
http://www.horst-schulte.de

Sub PfadinFusszeile()
Text = ActiveWorkbook.FullName
Text = Text + ", " + Application.UserName
Text = Text + ", " & Date & ", " & Time
ActiveSheet.PageSetup.LeftFooter = Text
MsgBox („Es wurde '“ + Text + „’ in die Fußzeile eingefügt.“)
End Sub

Mein Problem ist jetzt der Pfad. Wenn die zu bearbeitende
Datei auf einem Netzlaufwerk unserer NT-Domäne liegt, dann
schreibt er halt x:\mustermann\meine_datei.txt. Wie kann ich
es lösen, dass er den vollen Hostnamen schreibt, z.B:
\nt_host1\abteilung\mustermann\meine_datei.txt ???

Wer kann mir helfen?

Ciao.