XLS in CSV

[Maya]

So, sry für Doppelpost.

Ich habe das entsprechend noch geändert. Mein Quellcode sieht nun wie folgt aus.

Delphi-Quellcode:

procedure XLStoCSV;
var S: String;
    Tabellennamen, XLSStringlist: TStringlist;
    i, j: Integer;
begin
  XLSStringlist:=TStringlist.Create;
  Tabellennamen:=TStringList.Create;
  try
    with PatBehandlungData.conADO do
      begin
        Connected:=False;
        ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                          Dateiname +'; Mode=Read;'                      +
                          'Extended Properties="Excel 8.0;HDR=Yes";'     +
                          'Persist Security Info=False';
        Connected:=True;
        GetTableNames(Tabellennamen);
      end;

    with PatBehandlungData.qryAdo do
      begin
        Active:=False;
        SQL.Clear;
        SQL.Add('SELECT * FROM ['+Tabellennamen.Strings[0]+']');
        Active:=True;
        Open;
      end;

    for i := 0 to PatBehandlungData.qryAdo.RecordCount-1 do
      begin
        S:='';
        for j := 0 to PatBehandlungData.qryAdo.FieldCount - 1 do
          begin
            if S<>'' then S:=S+';';
            S:=S+PatBehandlungData.qryAdo.Fields[j].AsString;
          end;
        XLSStringlist.Add(S);
      end;
  finally
    Dateiname:=ExtractFilePath(Dateiname)+ChangeFileExt(ExtractFileName(Dateiname),'.csv');
    XLSStringlist.SaveToFile(Dateiname);
    XLSStringlist.Free;
  end;
end;

Die WHERE-Klausel musste ich herausnehmen, weil immer wieder dort Exceptions kamen, egal ob auskommentiert mit -- oder nicht. Ich muss mal noch schauen, in wieweit sich das auswirkt, aber danke noch mal für die Hilfe.