Text Excel Makro pfad Fusszeile

Excel-Makro: Suche Pfad-Funktion

Von: , Frage gestellt am Mi, 29. Nov 2000

Problem ist, dass ich in Excel eine benutzerdefinerte Fußzeile einfügen muss. Sie muss folgendes enthalten:
<Pfad zur Datei>, <Benutzername>, <Datum>, <Uhrzeit>

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.

1 Antworten zu dieser Frage

1. Antwort von nach 3 Tagen hilfreich

   Re: Excel-Makro: Suche Pfad-Funktion

   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.
   

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!