Code: Alles auswählen.
CALL METHOD OF sheet 'ExportAsFixedFormat' EXPORTING #1 = 0 #2 = pdffilename.
Code: Alles auswählen.
CALL METHOD OF sheet 'SAVEAS'
EXPORTING
#1 = pdffilename
#2 = 0.
Code: Alles auswählen.
DATA: v_xl TYPE ole2_object, "Application
v_wb TYPE ole2_object. "Workbook
CREATE OBJECT v_xl 'EXCEL.APPLICATION'.
SET PROPERTY OF v_xl 'Visible' = 0.
SET PROPERTY OF v_xl 'DisplayAlerts' = 0.
* CALL METHOD OF v_xl 'Workbooks' = v_wb.
CALL METHOD OF v_xl 'ActiveWorkbook' = v_wb.
CALL METHOD OF v_wb 'OPEN' EXPORTING #1 = filename.
CALL METHOD OF v_wb 'ExportAsFixedFormat' EXPORTING #1 = 0 #2 = pdffilename.
CALL METHOD OF v_wb 'CLOSE'.
FREE OBJECT v_wb.
CALL METHOD OF v_xl 'Quit'.
FREE OBJECT v_xl.
Code: Alles auswählen.
CALL METHOD OF v_xl 'ActiveWorkbook' = v_wb.
Code: Alles auswählen.
FREE OBJECT v_xl.
Code: Alles auswählen.
REPORT.
TYPE-POOLS: ole2.
DATA: v_xl TYPE ole2_object, "Application
v_wb TYPE ole2_object. "Workbook
CREATE OBJECT v_xl 'EXCEL.APPLICATION'.
SET PROPERTY OF v_xl 'Visible' = 1."0.
SET PROPERTY OF v_xl 'DisplayAlerts' = 0.
CALL METHOD OF v_xl 'Workbooks' = v_wb.
CALL METHOD OF v_wb 'OPEN' EXPORTING #1 = 'c:\temp\test.xlsx'.
CALL METHOD OF v_xl 'ActiveWorkbook' = v_wb.
CALL METHOD OF v_wb 'ExportAsFixedFormat' EXPORTING #1 = 0 #2 = 'c:\temp\test.pdf'.
CALL METHOD OF v_wb 'CLOSE'.
CALL METHOD OF v_xl 'QUIT'.
FREE OBJECT v_wb.
FREE OBJECT v_xl.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
klaus1704