Hallo Leute,
als VB Anfänger stecke ich gerade in einem Problem.
Version: Excel 2010
Aufgabe: Nach dem Öffnen einer Datei soll automatisch ein
PDF am
gleichen Speicherort erzeugt werden und die Datei soll sich
automatisch wieder schließen.
Code als Modul xls2pdf.xlam:
Option Explicit
Sub xls2pdf()
Dim dname As String
Dim mypath As String
Dim pfad_name As String
mypath = Application.ActiveWorkbook.Path
dname = Application.ActiveWorkbook.Name
dname = Left(dname, (InStrRev(dname, ".") - 1))
pfad_name = mypath & "\" & dname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,
Filename:=pfad_name _
, Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas _
:=True, OpenAfterPublish:=False
ActiveWindow.Close
End Sub
Code in xls2pdf.xlam/DieseArbeitsmappe mit Option
Workbook/Open:
Private Sub Workbook_Open()
xls2pdf
End Sub
Fehler: Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt
Der Debugger bleibt in der Zeile
mypath = Application.ActiveWorkbook.Path
stehen
Wenn der Code in eine bereits geöffneten Sheet ausgeführt wird,
funktioniert alles wunderbar.
Bin für jede Hilfe dankbar.
Grüßle aus Karlsruhe
Armin