speichern unter -Dialog
06.09.2006 09:54:55
Andreas-WE
habe da ein kleines (für mich großes) Problem.
Ich habe mir da einen code zusammengeschraubt, der mir das aktuelle sheet und das sheet Projektliste als eigene Datei kopiert, zusammen mit dem Modul Funktionen.
Die neue Datei wird hier automatisch unter dem gleichen Pfad gespeichert, wie die Quelldatei.
Das Makro steht in einem eigene Modul.
Public Const C_Filename As String = "\duplicate_module.bas"
Public Const C_Module As String = "Funktionen"
Sub Taet_copy()
Dim strFile As String
strFile = Environ("TEMP") & C_Filename
Dim NFN
Dim NFP
Dim QDT
QDT = ThisWorkbook.Name
NFN = ActiveSheet.Name
NFP = ThisWorkbook.Path
Application.VBE.ActiveVBProject.VBComponents(C_Module).Export (strFile)
Workbooks.Add.VBProject.VBComponents.Import (strFile)
ActiveWorkbook.SaveAs Filename:=NFP & "\" & NFN, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.ActiveSheet.Copy Before:=Workbooks(NFN & ".xls").Sheets(1)
ThisWorkbook.Sheets("Projektliste").Copy Before:=Workbooks(NFN & ".xls").Sheets(2)
Application.DisplayAlerts = False
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Delete
Application.DisplayAlerts = True
Sheets(NFN).Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows(QDT).Activate
End Sub
Diese Makro möchte ich jetzt erweitern, so dass ich über den speichern unter-Dialog den Speicherort wählen kann und das am besten mit vorbelegtem Pfad.
Ähnlich wie:
Pfad = "C:TEMP\"
Application.Dialogs(xlDialogSaveAs).Show (Pfad)
Ich habe selbst schon rumprobiert, bekomme es aber einfach nicht hin. :-((
Könnt Ihr mir das bitte irgendwie mit reinbasteln? Wäre echt nett!
Gruß
Andreas-WE