mit dem Code klann man den Inhalt einer Excel-Zeile auslesen. Aber was soll ich ändern,
damit den datei Pfad aus als relativ eintragen kann. In dem Code wird nur absolute Pfad akzeptiert !!!
Delphi-Quellcode:
uses ComObj,
procedure TForm1.Button1Click(Sender: TObject);
const
xlCellTypeLastCell = $0000000B;
var
XLApp, XLSheet: OLEVariant;
LetzteSpalte, i: Integer;
s: string;
begin
// Excel starten
try
XLApp := CreateOleObject('Excel.Application');
except
ShowMessage('Fehler...');
Exit;
end;
// Excel-Datei öffnen
XLApp.Workbooks.Open('C:\test1.xls'); // pafd nur als absolut !!!!!!!!!!!!!!!!
XLSheet := XLApp.Workbooks[1].WorkSheets[1];
// Letzte Spalte ermitteln
LetzteSpalte := XLSheet.Cells.SpecialCells(xlCellTypeLastCell, emptyParam).Column;
s := '';
// Zellen von Zeile 1 auslesen und in String s speichern
for i := 1 to LetzteSpalte do
s := s + XLSheet.Cells[1, i].Text;
// String s anzeigen
//ShowMessage(s);
Edit1.Text:=s;
// Excel beenden
XLApp.Quit;
end;
Gruß