Bom Dia Pessoal !! Estou precisando fazer um Replace em uma planilha.xls... consigo abrir tudo certinho mas não consigo fazer o replace. Já fiz com o Word, porém no Excel não vai. Estou precisando da melhor maneira pra inserir dados do meu bando em um formulário.xls... pode ser pode replace ou formfield(que eu nao vi no Excel)... Código: define variable chExcelApplication as com-handle. define variable chWorkBook as com-handle. define variable chWorkSheet as com-handle. define variable chWorksheetRange as com-handle. create "Excel.Application" chExcelApplication. chWorkbook = chExcelApplication:Workbooks:open("N:\progress\apps\expwin\PERMISSAO_TRANSITO.XLS"). chWorkSheet:Cells:Find:Text = "#Container". chWorkSheet:Cells:Find:Replacement:Text = "TESTE". chWorkSheet:Cells:Find:Forward = True. chWorkSheet:Cells:Collapse. chWorkSheet:Cells:Find:Execute(,,,,,,,,,,1,,,,). chExcelApplication:visible = true. release object chExcelApplication. release object chWorkbook. release object chWorksheet. Alguem poderia me ajudar ?
Bom dia, Fiz básico assim e funcionou, alias estava faltando você atribuir o valor para sua planilha (WORKSHEET). Código: define variable chExcelApplication as com-handle. define variable chWorkBook as com-handle. define variable chWorkSheet as com-handle. define variable chWorksheetRange as com-handle. create "Excel.Application" chExcelApplication. chWorkbook = chExcelApplication:Workbooks:open("C:\DESENV\CLEILTON\teste.XLS"). ASSIGN chWorkSheet = chExcelApplication:Sheets:ITEM(1). chWorkSheet:Cells:Replace("#container","TESTE"). chExcelApplication:visible = true. release object chExcelApplication. release object chWorkbook. release object chWorksheet. Espero que ajude. T+
