dialog FileSaveAs mit pfad einer ebene höher ...
27.08.2003 11:55:38
Peter
# ausgangspunkt:
eine code-datei (excel) (zentraler ordner)
eine indexdatei (excel) mit makros aus der code-datei (indexdatenordner)
viele einzeldateien (excel) (projektordner)
die folderstruktur (kann ich nicht beeinflussen, daher als fix anzusehen)
\KUNDENPFAD
\KUNDENPFAD\INDEXDATENORDNER
\KUNDENPFAD\PROJEKTORDNER1
\KUNDENPFAD\PROJEKTORDNER2
...
\KUNDENPFAD\PROJEKTORDNER99
\KUNDENPFAD\PROJEKTORDNER100
ich erstelle aus den eingaben in der indexdatei ein ausgefülltes template, welches dann in einem der projektordner gespeichert werden soll. dazu soll ein Datei speichern unter-dialog aufgehen, welcher also auf der ebene der projektordner (und damit eine ebene über der indexdatei) steht, so daß nur noch der projektordner gewählt werden braucht (filename wird aus variablen vorerstellt).
strFN = "..\" & ActiveWorkbook.Path & "\" & strDatei
xlDateiName = Application.GetSaveAsFilename( _
InitialFilename:=strFN, ... bringt leider nichts ...
könnt ihr mir helfen?
danke!
peter