Automatisches speichern mit variablem dateinamen

Computer: Software & Programmierung Office Software
1

Hallo Experten,
ich suche eine Möglichkeit mittels Makro eine Datei automatisch zu speichern, dabei soll aber der Pfad und der erste Teil des Dateinames fest sein, aber der zweite Teil das Dateinames variabel, dh vielleicht über eine Eingabeaufforderung einzugeben.

Gruß
Frank

2

Hallo Experten,
ich suche eine Möglichkeit mittels Makro eine Datei
automatisch zu speichern, dabei soll aber der Pfad und der
erste Teil des Dateinames fest sein, aber der zweite Teil das
Dateinames variabel, dh vielleicht über eine
Eingabeaufforderung einzugeben.

Hi Frank,
hier ein Codebespiel:

ActiveWorkbook.SaveAs Filename:= [dateiname], FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Alle Parameter nach [dateiname] sind optional. Oben siehst Du die default-Einstellungen.

Zum variablen Dateinamen. Der Name besteht aus Pfad, Name, Endung. Der Parameter [dateiname] wird als String angegeben. Diesen kannst Du auch aus Variablen zusammensetzen. etwa so:

Dim strFileName as String
Dim strPath as String
Dim strPart1 as String
Dim strPart2 as String

strPath = „C:\irgendwas“
strPart1 = year(now())
strPart2 = " schubidu.xls"
strFileName = strPath & strPart1 & strPart2
(„C:\irgendwas\2007 schubidu.xls“)

ActiveWorkbook.SaveAs Filename:= strFileName
oder
ActiveWorkbook.SaveAs Filename:= strPath & strPart1 & strPart2

Wenn Du Variablen für die Namensteile verwendest, kannst Du diesen natürlich auch per InputBox einen Wert zuweisen. „.xls“ kannst Du auch in eine Extravariable packen.

Viel Spass
Dom

3

Hi Dom,
vielen Dank, das hört sich gut an, muss ich gleich mal versuchen. Kannst du mir vielleicht noch sagen, wie das mit der inputbox funktioniert?

Danke
Frank

Hi Frank,
hier ein Codebespiel:

ActiveWorkbook.SaveAs Filename:= [dateiname],
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False

Alle Parameter nach [dateiname] sind optional. Oben siehst Du
die default-Einstellungen.

Zum variablen Dateinamen. Der Name besteht aus Pfad, Name,
Endung. Der Parameter [dateiname] wird als String angegeben.
Diesen kannst Du auch aus Variablen zusammensetzen. etwa so:

Dim strFileName as String
Dim strPath as String
Dim strPart1 as String
Dim strPart2 as String

strPath = „C:\irgendwas“
strPart1 = year(now())
strPart2 = " schubidu.xls"
strFileName = strPath & strPart1 & strPart2
(„C:\irgendwas\2007 schubidu.xls“)

ActiveWorkbook.SaveAs Filename:= strFileName
oder
ActiveWorkbook.SaveAs Filename:= strPath & strPart1 & strPart2

Wenn Du Variablen für die Namensteile verwendest, kannst Du
diesen natürlich auch per InputBox einen Wert zuweisen. „.xls“
kannst Du auch in eine Extravariable packen.

Viel Spass
Dom

4

Hi Dom,
vielen Dank, das hört sich gut an, muss ich gleich mal
versuchen. Kannst du mir vielleicht noch sagen, wie das mit
der inputbox funktioniert?

Hello again,
hier findest Du ein Beispiel für die Box:
http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipp…

Der Eingabetext wird in eine Variable geschrieben. Da der Anwender so ziemlich jeden Mist in die Box schreiben kann, bietet es sich an,den Inhalt der Variablen zu überprüfen.

Hier kannst Du generell mal reinschauen:
http://www.herber.de/tutorial/2002/basics6.htm

Have fun
Dom