Aktuellste Version verwenden?
19.09.2018 15:12:23
arek
ich stehe vor folgendem Problem: Ich habe eine Masterdatei, die viele Mitarbeiter jeweils nutzen und die nach Eingabe entsprechender Daten per Knopfdruck eine PDF erzeugt. Jetzt möchte ich erreichen, dass alle Mitarbeiter immer die aktuellste Version der Datei benutzen...Kann man das über eine Art "Versionsprüfung" realisieren?
Könnt ihr mir hier weiterhelfen?
Hier wäre noch der Code für die PDF Erstellung:
Option Explicit
'API Deklaration~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long
'Ende API Deklaration~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'PDF erstellen und in entsprechendem Ordner gemäß der Monatsangabe abspeichern
Private Sub CommandButton1_Click()
Dim strFileName As String
Dim strPath As String
Dim result As Long
strPath = "X:\ProjectCTRL\ProjectREPRT" & "\" & Range("A3").Text & "\"
result = MakeSureDirectoryPathExists(strPath)
If result 0 Then
strFileName = strPath & Range("C31") & "_" & Range("B2")
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Else
MsgBox "Verzeichnis kann nicht erstellt werden!" & vbLf & strPath, 48, "Hinweis"
End If
End Sub
Viele Grüße
Arek
Anzeige