AW: Speicherschleife nach Schließen über Fensterkreuz
24.08.2016 15:03:32
Dirk
Hallo Chris,
vielleicht kannst Du mir bei der Integration meiner Routine noch einmal helfen. Der Speicher und Exportcode den ich habe sieht wie folgt aus.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not [Charge] = "" Then
Cancel = True:
Call Speichern_und_Export
End If
End Sub
Option Explicit
Declare Function MakePath Lib "imagehlp.dll" Alias _
"MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long
Sub Speichern_und_Export()
Dim strPath As String
Dim strPathPDF As String
'Makro Speichern
' Pfad "Z:\Projekte - Zusammenarbeit\13_TWC_QS\TWC_2\410_Produktionsunterlagen\Tagesbericht\ _
" muss individuell angepasst
strPath = "Z:\Projekte - Zusammenarbeit\13_TWC_QS\TWC_2\410_Produktionsunterlagen\ _
Tagesbericht\" & Format(Date, "yyyy") & "\" & Format(Date, "mm.yyyy") & "\"
MakePath (strPath)
Application.EnableEvents = False
ThisWorkbook.SaveAs strPath & "00" & Range("Charge"), xlOpenXMLWorkbookMacroEnabled
Application.EnableEvents = True
'Makro Export
' Pfad "Z:\Projekte - Zusammenarbeit\13_TWC_QS\TWC_2\410_Produktionsunterlagen\Tagesbericht\ _
" muss individuell angepasst
strPathPDF = "Z:\Projekte - Zusammenarbeit\13_TWC_QS\TWC_2\410_Produktionsunterlagen\ _
Tagesbericht\" & Format(Date, "yyyy") & "\" & Format(Date, "mm.yyyy") & "\PDF\"
MakePath (strPathPDF)
Sheets(Array("Coil", "Fehlerauflistung", "Coilfreigabe", "Fehler_Kunde", "Coil_Nacharbeit", _
"Fehlerauflistung_Nacharbeit", "Fehler_Kunde_Nacharbeit", "Coilfreigabe_Nacharbeit")).Select
Sheets(1).Activate
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strPathPDF & "\" & Range("F5").Value & "00" & Range("Charge") & " " & Format( _
Now, "dd_mm_yyyy") & " " & Format(Time, "hh-mm-ss") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.ScreenUpdating = False
Sheets(4).Select
Sheets(1).Select
Application.ScreenUpdating = True
End Sub
Mit Deinem Code möchte Excel jedesmal das Formblatt abspeichern. Ziel ist es aber gemäß des oberen Codes, einen neuen Dateinamen aus dem Inhalt der Zelle "Charge" im entsprechenden Verzeichnis abzuspeichern und dann eine pdf.Datei zu erzeugen aus Datum, Uhrzeit und Dateinamen.
Welchen Teil des Codes muss ich in Deinen integrieren? Den "Call Speichern_und_Export" Befehl oder den gesamten Code der sich dahinter befindet.
Danke im Voraus
Gruß
Dirk