AW: Relative Pfade?
05.01.2004 13:02:16
Franz W.
Hallo Tina,
ich habe auch eine Datei, die ich an meinem Rechner und am Rechner eines Freundes bearbeite. Dazu hab ich mir eine "Automatische PC-Erkennung" ;-)) gebastelt, klingt hochtrabend, ist aber ganz harmlos: ich suche beim Start nach einer Datei, die es auf dem Rechner 100%-ig gibt, bei ihm und bei mir, allerdings jeweils in einem anderen Pfad. Ist die Suche unter dem vorgegebenen Pfad nicht erfolgreich, müssen andere Pfade eingestellt werden. Der Code dazu:
Sub ChPC()
''' Prüfen ob Pfad für Vorl.-Datei, der in "C20" steht, vorhanden, _
sonst PC-Change zwischen meinem und Bernhards PC:
VorlEH = Worksheets("Help").[C20]
Set Fso = CreateObject("Scripting.FileSystemObject")
If Not Fso.FileExists(VorlEH) Then
With Worksheets("Help")
If .[c17] = "Bernhard" Then
.[c17] = "Franz"
.Cells(18, 3) = _
"E:\Microsoft\Winword\Vorlagen\Smiley.jpg"
.Cells(20, 3) = _
"E:\Microsoft\Winword\Vorlagen\EH_ReVorlage.xlt"
.Cells(22, 3) = _
"E:\Microsoft\Winword\Vorlagen\EN_ReVorlage.xlt"
.Cells(24, 3) = _
"E:\Microsoft\Winword\Vorlagen\zzzgagnj.xls"
Else
.[c17] = "Bernhard"
.Cells(18, 3) = _
"C:\Dokumente und Einstellungen\bernhard\Anwendungsdaten\Microsoft\Vorlagen\Smiley.jpg"
.Cells(20, 3) = _
"C:\Dokumente und Einstellungen\bernhard\Anwendungsdaten\Microsoft\Vorlagen\EH_ReVorlage.xlt"
.Cells(22, 3) = _
"C:\Dokumente und Einstellungen\bernhard\Anwendungsdaten\Microsoft\Vorlagen\EN_ReVorlage.xlt"
.Cells(24, 3) = _
"C:\Dokumente und Einstellungen\bernhard\Anwendungsdaten\Microsoft\Vorlagen\zzzgagnj.xls"
End If
End With
End If
End Sub
Mit VBA = Gut wirst Du das wahrscheinlich umsetzen können. In den entsprechenden anderen Makros lese ich dann die Pfade, die obiger Code in das Blatt "Help" geschrieben hat, in eine Variable ein und arbeite dann mit dieser Variablen weiter.
Viel Erfolg
Franz
P.S.: Falls Du noch Fragen hast, ich bin leider erst später wieder am Gerät...