0
Cargando...
Olá Joseph,
por favor crie um arquivo xls com alguns dados na coluna A e tente o seguinte código:
TYPE-POOLS ole2.
DATA: excel TYPE ole2_object,
workbook_list TYPE ole2_object,
workbook TYPE ole2_object,
cell TYPE ole2_object,
first_cell TYPE ole2_object,
last_cell TYPE ole2_object,
range TYPE ole2_object,
specialcell TYPE ole2_object.
DATA path TYPE string.
DATA row TYPE string.
path = 'C:\TMP\test.xls'.
* Executar Excel
CREATE OBJECT excel 'EXCEL.APPLICATION'.
* Mostrar Excel
SET PROPERTY OF excel 'Visible' = 1.
* Obter referência à lista de pastas de trabalho na aplicação
* está vazia por enquanto
CALL METHOD OF excel 'Workbooks' = workbook_list.
* Abrir arquivo existente
* será adicionado à lista de pastas de trabalho
CALL METHOD OF workbook_list 'OPEN'
EXPORTING #1 = path.
* Definir primeira célula
CALL METHOD OF excel 'Cells' = first_cell
EXPORTING
#1 = 1 " Fila
#2 = 1. " Coluna
* Definir última célula
CALL METHOD OF excel 'Cells' = last_cell
EXPORTING
#1 = 65536 " Fila
#2 = 1. " Coluna
CALL METHOD OF excel 'Range' = range
EXPORTING
#1 = first_cell
#2 = last_cell.
CALL METHOD OF range 'SpecialCells' = specialcell
EXPORTING
#1 = 11.
Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
