von rud174 » Mo, 18.12.2023 18:30
Hallo, ich bin auf der Suche nach Hilfe.
Habe einen Code geschrieben für Speicherung mit Dateiname aus Zelle, aber es funktioniert nicht.
Kann mir bitte jemand weiterhelfen.
REM ***** BASIC *****
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
Dateiname =Range("B4")
args1(0).Name = "URL"
args1(0).Value = "file:///Z:/Firma/Firma%202017/Stundenzettel/" & Dateiname & ".pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
end sub
Die Fehlermeldung: Basic-Laufzeitfehler.
Sub- oder Function-Prozedur nicht definiert.
>Dateiname = Range("B4")
Zur Info ich bin ein Anfänger.
Danke
Hallo, ich bin auf der Suche nach Hilfe.
Habe einen Code geschrieben für Speicherung mit Dateiname aus Zelle, aber es funktioniert nicht.
Kann mir bitte jemand weiterhelfen.
REM ***** BASIC *****
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
Dateiname =Range("B4")
args1(0).Name = "URL"
args1(0).Value = "file:///Z:/Firma/Firma%202017/Stundenzettel/" & Dateiname & ".pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
end sub
Die Fehlermeldung: Basic-Laufzeitfehler.
Sub- oder Function-Prozedur nicht definiert.
>Dateiname = Range("B4")
Zur Info ich bin ein Anfänger.
Danke