Naeel Maqsudov » 13 сен 2013, 16:29
Надо сначала проверить наличие файла, если запрошенный файл существует, то надо делать CreateOleObject от файла, а не от classname.
Дальше, после
Sheet := ExcelApp.ActiveWorkbook.Worksheets[1];
надо найти сколько строк уже заполнено. Например, можно так:
Shift := Sheet.Cells(1, 1).CurrentRegion.End(-4121).Row;
Ну и этот Shift надо прибавлять вместо 1 к номеру строки
Sheet.Cells[Row + Shift, Col + 1] := StringGrid1.Cells[Col, Row];
Надо сначала проверить наличие файла, если запрошенный файл существует, то надо делать CreateOleObject от файла, а не от classname.
Дальше, после
Sheet := ExcelApp.ActiveWorkbook.Worksheets[1];
надо найти сколько строк уже заполнено. Например, можно так:
Shift := Sheet.Cells(1, 1).CurrentRegion.End(-4121).Row;
Ну и этот Shift надо прибавлять вместо 1 к номеру строки
Sheet.Cells[Row + Shift, Col + 1] := StringGrid1.Cells[Col, Row];