ShowSave mit festem Verzeichnis

Computer: Software & Programmierung Visual Basic
#1

Hallo
gibts auch eine ShowSave Methode wo man nicht das Verzeichnis wechseln kann. Die Daten sollen in einem Verzeichnis fest bleiben!
Der Code momentan:

On Error Resume Next
'Dateifilter für die Formate
cdlDaten2.Filter = „Alle Dateien (*.*) |*.*|Excel-Dateien (*.xls) |*.xls|“
'setzen von Zusatzoptionen beim Öffnen/Schließen
cdlDaten2.Flags = &H2 + &H4 + &H1000
'Öffnen des Menüs Öffnen von Dateien
cdlDaten2.CancelError = True
cdlDaten2.Filename = „“
cdlDaten2.DefaultExt = „xls“
If AusgabePfad „“ Then
cdlDaten2.InitDir = AusgabePfad
End If
cdlDaten2.ShowSave

Mfg Werner

#2

Hallo Werner.

gibts auch eine ShowSave Methode wo man nicht das Verzeichnis
wechseln kann. Die Daten sollen in einem Verzeichnis fest
bleiben!

Ob es direkt eine solche Methode gibt, ist mir nicht bekannt.
Du hättest aber noch zwei Möglichkeiten, ein festes Verzeichnis zu erreichen.

  1. Du verwendest anstatt des Speichern-Dialoges eine InputBox. Dort könnte der Anwender einen Namen für die Datei eingeben und dann verkettest Du hinterher Deinen AusgabePfad (momentan ja noch InitDir) mit dem Namen, den der Anwender eingegeben hat und mit „.xls“. Diese Methode kann aber auch zu Problemen führen, wenn der Benutzer selbst einen kompletten Pfad eingibt (aber auch dafür gäbe es eine Lösung).

  2. Du verwendest weiter den Speichern-Dialog und verkettest den AusgabePfad mit der FileTitle-Eigenschaft (FileName-Eigenschaft? Eine der beiden jedenfalls gibt den Namen der Datei ohne Pfad zurück) und dann mit „.xls“. Da AufgabePfad, denke ich, ein fester Wert ist, kann der Anwender dann hin- und herbrowsen wie er will, das Verzeichnis wäre fest von Dir vorgegeben.

Beim Verketten der Texte bitte auch an die Backslashes denken.

Vielleicht hilft das ja schon.

Viele Grüße
Carten

#3

Hallo Werner,

gibts auch eine ShowSave Methode wo man nicht das Verzeichnis
wechseln kann. Die Daten sollen in einem Verzeichnis fest
bleiben!

Bei
cdlDaten2.Flags
zusätzlich noch
cdlOFNNoChangeDir (&H8)
setzen.

http://msdn.microsoft.com/library/default.asp?url=/l…

MfG Peter(TOO)

#4

geht nicht
Hi Peter,
leider funktioniert das nicht mit dem Flag &H8.

Oben erscheint nachwievor der Folter, wo man den Pfad ändern kann.
Ich glaube das geht dann nicht.

Mfg Werner