|
Sorry Sorry... dann erkläre ich es nochmals genauer:
1. Eine Excel (xlsm) Datei mit dem Makro "PDF erstellen" liegt auf dem lokalen Laufwerk zb.: C:\
ich öffne dann die Datei, führe das Makro "PDF erstellen" aus und es wird aus dem Excel in dem selben Ordner wo die Excel Datei liegt eine PDF erstellt (und zusätzlich gleich geöffnet.)
Soweit alles gut.
Nun das ganze über ein Netzlaufwerk:
2. Die Excel Datei liegt auf einem Netzlaufwerk zb.: N:\
ich öffne dann die Datei, führe das Makro "PDF erstellen" aus und es wird aus dem Excel eine PDF erstellt, jedoch nicht im selben Ordner auf dem Netzlaufwerk N:\ sondern lokal unter C:\Benutzer\Dokumente...
Ich würde aber gerne, dass diese PDF Datei, wie in Schritt 1 auf dem Netzlaufwerk im selben Ordner wo die Datei liegt gespeichert wird.
danke LG
Hier derCode dazu:
Sub pdfErstellen()
Dim DieDatei As Boolean
If MsgBox("ACHTUNG: Vorhandende Datei kann überschrieben werden!!!" & vbNewLine & "Weiter ?", vbYesNo) = vbYes Then
DieDatei = IstDateiOffen(Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & ".pdf")
If DieDatei = True Then
MsgBox "Datei ist bereits geöffnet, Bitte vorher schließen!"
Else
ChDir ActiveWorkbook.Path
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End If
Else
MsgBox "Vorgang abgebrochen"
End If
End Sub
|