Moin moin,
probiers doch mal so:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
Excel: Variant;
const
xlCSV = 6;
xlCSVMSDOS = 24;
xlCurrentPlatformText = -4158;
xlDBF3 = 8;
xlDIF = 9;
xlExcel2FarEast = 27;
xlExcel4 = 33;
xlAddIn = 18;
xlCSVMac = 22;
xlCSVWindows = 23;
xlDBF2 = 23;
xlDBF4 = 11;
xlExcel2 = 16;
xlExcel3 = 29;
xlExcel4Workbook = 35;
xlExcel5 = 39;
xlExcel7 = 39;
xlExcel9795 = 43;
xlHtml = 44;
xlIntlAddIn = 26;
xlIntlMacro = 25;
xlSYLK = 2;
xlTemplate = 17;
xlTextMac = 19;
xlTextMSDOS = 21;
xlTextPrinter = 36;
xlTextWindows = 20;
xlUnicodeText = 42;
xlWebArchive = 45;
xlWJ2WD1 = 14;
xlWJ3 = 40;
xlWJ3FJ3 = 41;
xlWK1 = 5;
xlWK1ALL = 31;
xlWK1FMT = 30;
xlWK3 = 15;
xlWK3FM3 = 32;
xlWK4 = 38;
xlWKS = 4;
xlWorkbookNormal = -4143;
xlWorks2FarEast = 28;
xlWQ1 = 34;
xlXMLSpreadsheet = 46;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Workbooks.Open('c:\test.xls');
Excel.ActiveWorkbook.SaveAs('c:\test.csv', xlCSV);
Excel.ActiveWorkbook.Close(False);
//Excel.Visible := true;
Excel := unassigned;
end;
Wie auch in deinem VB Beispiel wird bei SaveAs zuerst der Dateiname und dann das Format
übergeben.
Wenn du dir bei sowas mal unsicher bist, kannst du die Hilfe von Excel/VBHilfe heranziehen,
dort stehen auch die Konstanten.