Pfad bleibt nicht erhalten

05/02/2009 - 11:18 von Beck, Alwin | Report spam
Hallo,
in meiner Anwendung kann der User Dateien auswàhlen.
Über folg. Code funktioniert das auch, jedoch wenn der
User einmal einen anderen Pfad im Dateifenster ausgewàhlt
hat, bleibt dieser erhalten und nicht der Pfad welchen
ich über die Variable "Pfad" setze.

Ich möchte dass das Fenster immer fest mit diesem Pfad geöffnet wird.
Ist das möglich ?
Weiter noch die Frage: Kann ich auch einen User + Kennwort für die
Anmeldung
mit übergeben, da der Pfad auf einem anderen Server liegt ?


Dim Pfad

Pfad = \\server\meinpfad\

ChDir Pfad

Datei = Application _
.GetOpenFilename("Produktionsvorgang (*.csv), *.csv", ,
"Dateiauswahl aus dem Sàge Verzeichnis")


DAnke
Gruß
Albe
 

Lesen sie die antworten

#1 stefan onken
05/02/2009 - 12:12 | Warnen spam
hallo Albe,

On 5 Feb., 11:18, "Beck, Alwin" wrote:
Hallo,
in meiner Anwendung kann der User Dateien auswàhlen.
Über folg. Code funktioniert das auch, jedoch wenn der
User einmal einen anderen Pfad im Dateifenster ausgewàhlt
hat, bleibt dieser erhalten und nicht der Pfad welchen
ich über die Variable "Pfad" setze.

Ich möchte dass das Fenster immer fest mit diesem Pfad geöffnet wird.
Ist das möglich ?



ja, bei GetOpenFilename musst du den Pfad vorher mit ChDir und bei
Laufwerkswechsel auch noch mit ChDrive einstellen.

Optionen:

Set x = Application.Dialogs(xlDialogOpen).Show("d:\test\*.csv")

öffnet dann allerdings die ausgewàhlte Datei


With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "d:\test\*.csv"
.Show
For lngCount = 1 To .SelectedItems.Count
MsgBox .SelectedItems(lngCount)
Next lngCount
End With

gibt es erst ab Excel 2002


Weiter noch die Frage: Kann ich auch einen User + Kennwort für die
Anmeldung
mit übergeben, da der Pfad auf einem anderen Server liegt ?



weiss ich leider nicht, evtl hilft dies:
http://michael-schwimmer.de/vba078.htm

Gruß
stefan

Ähnliche fragen