speichern unter

Sub Blätter_speichern() ' was muss ich tun, damit beim aufruf des dialogs ' speichern unter NICHT der pfad aus dem die datei ' geöffnet wurde , sondern ein von mir festgelegter ? ' und ein von mir festgelegter dateiname + now erscheinen ? ' ChDir ' ChDrive ' bringen keinen erfolg Application.Dialogs(xlDialogSaveAs).Show End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub InVorgegebenemPfadSpeichern() Dim dn As String dn = InputBox("Neuen Dateinamen eingeben, ohne Endung xls") ActiveWorkbook.SaveAs Filename:= _ "C:\Temp\MeinOrdner\" & dn, FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ' In Hochkommata den festen Pfad angeben, ' allerdings muß MeinOrdner vorhanden sein End Sub

Sub ttt() ChDrive "C" ChDir "c:\temp" d = Application.GetOpenFilename Workbooks.Open d ChDir "c:\test" NeuName = "Neu" & Now NeuName = Replace(NeuName, ":", ";") DlgAnswer = Application.GetSaveAsFilename(initialfilename:=NeuName, _ fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls") If DlgAnswer <> "Falsch" Then ActiveWorkbook.SaveAs Filename:=NeuName, FileFormat:=xlNormal ActiveWorkbook.Close End If End Sub

Sub tttneu() ChDir "D:\test" NeuName = "Neu" & Now NeuName = Replace(NeuName, ":", ";") DlgAnswer = Application.GetSaveAsFilename(InitialFileName:=NeuName, _ fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls") If DlgAnswer <> "Falsch" Then ActiveWorkbook.SaveAs Filename:=NeuName, FileFormat:=xlNormal ActiveWorkbook.Close End If End Sub

hei reinhard
danke dir sehr
rolf
fertig:
' SPEICHERN UNTER


Sub SPEICHERN_UNTER()
' FESTLEGEN DES ORDNERS IN DEM GESPEICHERT WERDEN SOLL
ChDir "D:\TEST"
' SPEICHERN DER AKTIVEN DATEI PLUS DATUM PLUS UHRZEIT
NeuName = ActiveWorkbook.Name & "  " & Now
'NeuName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "  " & Now
' DER DOPPELPUNKT WIRD DURCH UNTERSTRICH ERSETZT
NeuName = Replace(NeuName, ":", "_")
DlgAnswer = Application.GetSaveAsFilename(InitialFileName:=NeuName, _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
If DlgAnswer <> "Falsch" Then
ActiveWorkbook.SaveAs Filename:=NeuName, FileFormat:=xlNormal
'ActiveWorkbook.Close
End If
End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

speichern unter

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread