Herbers Excel-Forum - das Archiv

Workbook speichern

Bild

Betrifft: Workbook speichern
von: Erber Karl

Geschrieben am: 05.01.2007 09:25:16
Hallo
Ich will alle markierten Sheets in ein neues Workbook speichern und das gleich schliessen.
das von mir funktioniert leider nicht.
Private Sub Speichern_Click()
'Workbook speichern
Dim Pfad As String
Dim Name As String
Dim sh As Worksheet
Dim WBspeichern As String
Pfad = "f:\Prüfprotokoll\Linux\Test\"
Name = Range("AB1").Value & "_" & Range("B2").Value & "_" & Range("V3").Value & "_" & Range("F3").Value & ".xls"
WBspeichern = Pfad & Name
Application.DisplayAlerts = False
Dim shArray As Variant
Dim ix As Integer
ReDim shArray(ActiveWorkbook.Sheets.Count)
ix = 0
For Each sh In ActiveWorkbook.Sheets
If sh.Visible = True Then
shArray(ix) = sh.Name
ix = ix + 1
End If
Next
ReDim Preserve shArray(ix - 1)
ActiveWorkbook.Sheets(shArray).Select
ActiveWorkbook.Windows(1).SelectedSheets.Copy
ActiveWorkbook.SaveAs WBspeichern
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
End Sub

legt zwar eine Mappe an nennt sie aber nur Mappe XXX und läßt sie offen.
mfg Karl
Bild

Betrifft: AW: Workbook speichern
von: Ramses
Geschrieben am: 05.01.2007 09:41:41
Hallo
Was heisst "XXX" ?
Was ist der Inhalt der Variable "WBSpeichern" ?
Gruss Rainer
Bild

Betrifft: AW: Workbook speichern
von: Erber Karl

Geschrieben am: 05.01.2007 09:48:11
XXX bedeutet jedesmal wenn er die Mappe mit
ActiveWorkbook.SaveAs WBspeichern erzeugt heißt sie Mappe3 , Mappe4 usw.
Der Inhalt der Variablen WBspeichern ist der Pfad + Dateiname
Dim WBspeichern As String
Pfad = "f:\Prüfprotokoll\Linux\Test\"
Name = Range("AB1").Value & "_" & Range("B2").Value & "_" & Range("V3").Value & "_" & Range("F3").Value & ".xls"
WBspeichern = Pfad & Name
Bild

Betrifft: AW: Workbook speichern
von: Ramses
Geschrieben am: 05.01.2007 09:52:16
Hallo
"...Der Inhalt der Variablen WBspeichern ist der Pfad + Dateiname..."
Ich bin ja nicht doof :-)
WAS ist der Inhalt der Variablen.
Lass dir den mal anzeigen.
Gruss Rainer
Bild

Betrifft: AW: Workbook speichern
von: Erber Karl
Geschrieben am: 05.01.2007 09:59:33
Debug.Print WBspeichern zeigt an
f:\Prüfprotokoll\Linux\Test\05.01.2007_LX_132 Smart _2.2.2.2.xls
Bild

Betrifft: AW: Workbook speichern
von: Ramses

Geschrieben am: 05.01.2007 10:08:18
Hallo
das ist ein unzulässiger Dateiname !
Das kannst du ganz einfach selbst mal testen indem du eine leere Mappe unter diesem Namen zu speichern versuchst.
Wenn du die Alarmmeldung nicht ausgeschaltet (DisplayAlerts) hättest, dann würdest du auch eine entsprechende Meldung erhalten ;-)
Gruss Rainer
 Bild
Excel-Beispiele zum Thema "Workbook speichern "
Fehler in Workbook_Open-Prozedur abfangen Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben
Aufhebung der Workbook_Open-Befehle verhindern Workbook_Open-Prozedur beim VBA-Aufruf ausschalten
Zelleingaben speichern Die "personl"-Arbeitsmappe ausgeblendet speichern
Formeln mit Zelladressen speichern Bestätigung beim Speichern unterdrücken.
Arbeitsmappe unter dem Text eines Zelleintrags speichern Einzelnes Tabellenblatt speichern