VB-Code in Delphi

[marabu]

Herzlich willkommen in der Delphi-PRAXiS.

Hier ein Beispiel für dich, das du sicher an deine Bedürfnisse anpassen kannst:

Delphi-Quellcode:

procedure TDemoForm.SplitButtonClick(Sender: TObject);
var
  wb: ExcelWorkbook;
  ws: ExcelWorkSheet;
  r, dr: ExcelRange;
  fi: OleVariant;
  s: string;
begin
  xl.Connect;
  wb := xl.WorkBooks.Add(null, GetUserDefaultLCID);
  ws := wb.Sheets.Add(null, null, 1, null, GetUserDefaultLCID) as ExcelWorkSheet;
  r := ws.Range['A1', 'A1'];
  r.Value2 := 'nur;ein;beispiel';
  fi := VarArrayOf([
    VarArrayOf([1, xlTextFormat]),
    VarArrayOf([2, xlTextFormat]),
    VarArrayOf([3, xlTextFormat])
  ]);
  dr := ws.Range['B1', 'B1']; // nur linke Zelle muss angegeben werden
  r.TextToColumns( dr, xlDelimited, xlTextQualifierNone,
    Null, False, True, False, False, False, Null, fi, Null, Null, Null
  );
  ShowMessage(Format('%s :: %s :: %s', [dr.Item[1, 1], dr.Item[1, 2], dr.Item[1, 3]]));
  xl.Disconnect;
end;

Vorweihnachtliche Grüße vom marabu