Hola!
Estoy utilizando OLE para abrir un archivo de excel que ya contiene ciertos registros en el...
Entonces lo que quiero ahora es que en ese mismo archivo se agreguen otros nuevos registros creados por mi "Sistema" es decir que abajo del último existente me agregue los nuevos registros en el archivo de excel...
Este es el código que estoy usando pero me salta un error al accionar el procedimiento. "Raised exception class EVariantInvalidOpError with message 'Invalid variant operation'."
Código Delphi
[-]
procedure TForm2.Excelexistente1Click(Sender: TObject);
var
Excel, WorkBook, WorkSheet: Variant;
i,ii,j:integer;
begin
Excel := CreateOleObject('Excel.Application');
Workbook := Excel.Workbooks.open(ExtractFilePath(Application.ExeName)+'\save.xls');
WorkSheet := WorkBook.WorkSheets[1];
showmessage(worksheet.cells[2,2]);
ii:=1;
j:=1;
while WorkSheet.cells[ii,j]<>'' do
begin
inc(ii);
end;
showmessage(worksheet.cells[ii,j]);
.......
.................
.......................
WorkBook.SaveAs(ExtractFilePath(Application.ExeName)+'save.xls');
Excel.Quit;
end;
Nada mas muestro la parte donde quiero recorrer las filas del excel hasta llegar a la fila que este vacia, para posteriormente empezar a poner los nuevos registros.... pero como ven no me funciona :/
Espero que alguien me pueda hechar la mano!