> Iz gomile (200 kom) xls tabela da cita po jedno polje i sabere ih. Citanje jednog fajla nije problem ali meni treba prolazak kroz sve tabele.
> Mislim da bi moglo da se odradi sa spiskom fajlova u txt datoteci.
Ako su ti excel fajlovi grupisani u jednom diru ili imaju jedan osnovni dir onda se može koristiti FindFirstFile/FindNextFile pretraživanje.
> Veci problem je sto su tabele zasticene tako da ako tabela vec nije otvorena u excel-u dobijam poruku "could not decrypt file" kada joj pristupam.
Znaš li šifru?
> Konekcija je preko ADO-a
> Ima li neko ideju za ove probleme, hvala
Zašto ne probaš sa OLEom, mogu se otvoriti zaštićeni excel fajlovi i pročitati vrednosti koje trebaš.
Code:
var
E: OLEVariant;
function ReadCellValue(const AFileName: string): Variant;
begin
E.Workbooks.Open(AFileName, EmptyParam, True, EmptyParam, 'sifra');
E.Visible := True;
Result := E.Cells[1, 1].Value;
E.ActiveWorkbook.Close;
end;
begin
try
E := GetActiveOleObject('Excel.Application');
except
E := CreateOleObject('Excel.Application');
end;
Caption := ReadCellValue('J:\Temp\Proba.xls');
E.Quit;