Office: (Office 2007) neue Exceldatei aus Vorlage erstellen und direkt speichern

moruk123 · 7. Dezember 2009

hi,

ich erstelle per Makro aus einer Excelvorlage eine neue Datei. das klappt auch gut. nur möchte ich, dass sie direkt unter einem bestimmten Dateinamen (steht in Zelle A1) an einem bestimmten Pfad gespeichert wird.

Code:

Private Sub CommandButton_OK_Click()
Dim ex As New Excel.Application
ex.Visible = True
ex.Workbooks.Open "C:\MeineVorlage.xltx" 'Vorlage oeffnen
ex.ActiveWorkbook.ActiveSheet.Range("A1").Value = ComboBox_Monat.Text & " " & ComboBox2_Jahr.Text
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mit ActiveWorkbook.SaveAs hats bei mir nicht geklappt oder vielleicht hab ichs auch nicht richtig gemacht *rolleyes.gif*
wie bekomme ich das hin?!

danke & gruß
moruk

:)

jinx · 9. Dezember 2009

Moin moruk,

Du hast mit ex eine neue Excel-Anwendung erstellt; wie wäre es, diesen Bezug beim Speichern mit einzubeziehen?

Mir fehlt die Logikprüfung, ob Zelle A1 einen Inhalt aus den beiden CBs erhalten hat.

moruk123 · 9. Dezember 2009

ach, ich dussel..
ex.ActiveWorkbook.SaveAs Filename:="C:\" & ex.ActiveWorkbook.ActiveSheet.Range("A1").Text & ".xlsx"

aber was meinst du mit "Logikprüfung"?

jinx · 9. Dezember 2009

Moin, moruk123,

eigentlich 2 Dinge: zum Einen, dass aus beiden ComboBoxen auch wirklich ein Wert geliefert wird und zum Anderen, dass es diesen Dateinamen im angegebenen Verzeichnis noch nicht gibt (das kann durch den DIR-Befehl geprüft werden, ggf. müsste nach meinem Verständnis dann eine Ziffernfolge zur Unterscheidung beim Speichern mitgegeben werden).

moruk123 · 10. Dezember 2009

aso..da ich aber ein VBA newbie bin, hört sich das alles ganz schön kompliziert an:S
wenn es dir keine großen Umstände macht, könntest du es mir kurz als Code schreiben?!

jinx · 10. Dezember 2009

Moin, moruk,

so möglicherweise:

Code:

Private Sub CommandButton_OK_Click()
Dim ex As New Excel.Application
Dim strNewName As String
ex.Visible = True
ex.Workbooks.Open "C:\MeineVorlage.xltx" 'Vorlage oeffnen

If ComboBox_Monat.ListIndex > -1 Then
strNewName = ComboBox_Monat.Value
Else
MsgBox "Wählen Sie bitte einen Monat aus."
Exit Sub
End If

If ComboBox2_Jahr.ListIndex > -1 Then
strNewName = strNewName & ComboBox2_Jahr.Value
Else
MsgBox "Wählen Sie bitte das Jahr aus."
Exit Sub
End If

If Dir("C:\" & strNewName & ".xlsx") = 0 Then
' ex.ActiveWorkbook.ActiveSheet.Range("A1").Value = strNewName
ex.ActiveWorkbook.SaveAs Filename:="C:\" & strNewName & ".xlsx"
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2007) neue Exceldatei aus Vorlage erstellen und direkt speichern

neue Exceldatei aus Vorlage erstellen und direkt speichern

neue Exceldatei aus Vorlage erstellen und direkt speichern

neue Exceldatei aus Vorlage erstellen und direkt speichern

neue Exceldatei aus Vorlage erstellen und direkt speichern - Similar Threads - Exceldatei Vorlage erstellen

Power Query Import von Exceldatei

Beim Import von Exceldatei Spalte hinzufügen und füllen

Eine Exceldatei in Powerpoint einbetten und diese in pdf wandeln

Worddokument mit verknüpfter Exceldatei verschieben

Zeile in 2. Exceldatei kopieren wenn Bedingung erfüllt ist

Werte von einer Exceldatei in andere Exceldatei einfügen

Zusammenführung von Daten aus mehreren identisch aufgebauten Exceldateien