[ Delphi ] Excel sortering

Pagina: 1
Acties:

  • Tryharder
  • Registratie: April 2002
  • Laatst online: 17-08 17:00
Voor degene die veel weten over koppelingen tussen Delphi en Excel of veel weten van het overzetten van Visual Basic Code naar Delphi:

Ik probeer vanuit Delphi een excel veld te sorteren. Als ik een macro maak in excel van hoe ik een selectie maak en die vervolgens sorteer krijg ik dit als code in Visual Basic Editor:

Visual Code (uitgaande van selectie) na macro in Excel 2000.

Selection.Sort Key1:=Range('A4'), Order1=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Als ik de parameters opvraag wat horen bij het sorteren binnen Delphi zijn dit de vereiste parameters:


Key1: Ole Variant; Order1: TOleENum; Key2: OleVariant; Type_: OleVariant; Order2: TOleEnum;
Key3: OleVariant; Order3: ToleEnum; Header: ToleEnum; OrderCustom: OleVariant;
MatchCase: OleVariant; Orientation: TOleEnum; SortMethod: TOleEnum;
IgnoreControlCharacters: OleVariant; IgnoreDiacritics: OleVariant; IgnoreKashida: OleVariant


Van daaruit heb ik dit zelf gemaakt:

WS.Range['A4','K125').Sort((Range['a4']),xlAscending,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam,xlGuess,
1,False,xlTopToBottom,Emptyparam,Emptyparam,Emptyparam,Emptyparam);


Dit pikt hij echter niet."Variant type conversion" blijkt het probleem te zijn... Iemand een idee???

Thanx.

  • Tryharder
  • Registratie: April 2002
  • Laatst online: 17-08 17:00
Verbeterde versie (nog steeds niet werkend)
("Invalid Type Coversion")

WS.Range['A4','K125').Sort((WS.Range['a4'],['a4']),xlAscending,Emptyparam,Emptyparam,Emptyparam,Emptyparam,Emptyparam,xlGuess,
1,False,xlTopToBottom,Emptyparam,Emptyparam,Emptyparam,Emptyparam);

  • ArieProductions
  • Registratie: Januari 2002
  • Laatst online: 27-11-2024
Range['A4','K125')
Range['A4','K125']

"Quidquid latine dictum sit, altum videtur" (Whatever is said in Latin sounds profound)


  • Tryharder
  • Registratie: April 2002
  • Laatst online: 17-08 17:00
thanx voor het nakijken, maar helaas is dat niet de oplossing. Dit had ik al eerder gezien. Anders zou ik ook niet DIE foutmelding krijgen...Excuses voor mijn typfout.