Delphi içerisinden okumak için bir excel dosyasına ulaşıyorum
Fakat işim bitip programı kapattığımda kullandığım excel dosyasını
excelin kendisi ile açmak istediğimde bu dosya kullanılıyor yalnızca read-only açabilirsiniz diye mesaj veriyor
Bundan nasıl kurtulabilirim.
Kod: Tümünü seç
procedure TFormExcelToSql.BtnTransferClick(Sender: TObject);
var
Book : Variant;
Excel, Sheet : Variant;
xSaha : String;
begin
Excel := CreateOleObject('excel.application');//exceli yarat
Book := Excel.WorkBooks.Open(excelpath.Text){add};//yeni calisma kitabini ekle
Sayfa := Excel.WorkBooks[1].WorkSheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}
r := Excel.ActiveWorkBook.WorkSheets[1].Usedrange;
ExcelKayitSayisi := r.rows.count; // excel kayit sayisi
Excel.Visible := False;
Sheet := Book.Worksheets[1];
for i := 2 to (ExcelKayitSayisi -1) do
begin
try
xSaha := Trim(Copy(Sheet.Cells[i,2], 1, 20));
.....
except
Continue;
end;
.......
end;
Excel := Unassigned;
Book := Unassigned;
Sheet := Unassigned;
end;