Domino 9 und frühere Versionen > ND7: Entwicklung

Excelexport will nicht sortieren

(1/4) > >>

WildVirus:
Moin,

habe eine Exceltabelle erstelle und alles klappt bis auf das Sortieren.

Es kommt immer die Meldung "Microsoft Office Excel: Bezug ist ungültig."

Dim xlsheet As Variant
   Set xlsheet = xl.Workbooks(1).ActiveSheet
   xl.Range("A2","D" & Cstr(row)).Select
   
   'Sortiere
   xl.Selection.Sort  xlSheet.Columns("B"), xlAscending , "", xlSheet.Columns("A"), xlAscending , xlYes,1, False, xlTopToBottom   

Hat jemand eine Idee ?

Thx.

CU,
Axel

ascabg:
Hallo,

Aber die VBA-Konstanten (xlAscending, ...) sind schon definiert in deinem LN-Code?



Andreas

WildVirus:
Hallo Andreas,

ja, da ich generell mit Option Declare arbeite:

Const xlDiagonalDown=5
Const xlNone=-4142
Const xlDiagonalUp=6
Const xlEdgeBottom=9
Const xlEdgeLeft=7
Const xlEdgeRight=10
Const xlEdgeTop=8
Const xlAutomatic=-4105
Const xlContinuous=1
Const xlThin=2
Const xlInsideVertical=11
Const xlUnderlineStyleNone=-4142
Const xlPrintNoComments=-4142
Const xlLandscape=2
Const xlPaperA4=9
Const xlDownThenOver=1
Const xlYes = 1
Const xlAscending = 1
Const xlSortNormal = 0
Const xlTopToBottom = 1

CU,
Axel

DerAndre:
Aus der VBA Hilfe:

Ausdruck.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)

Dein Key2 ist "" dadurch Folgefehler, oder?

ascabg:

--- Zitat ---Dein Key2 ist "" dadurch Folgefehler, oder?

--- Ende Zitat ---
Das sollte eigentlich keine Auswirkungen haben, da es sich bei den meisten der Parameter um Optionale Parameter handelt.

Ich wuerde mal folgendes versuchen.

--- Code: ---call ApplicationObject.Selection.Sort(xlSheet.Columns("B"), xlAscending , "", xlSheet.Columns("A"), xlAscending , xlYes,1, False, xlTopToBottom)

--- Ende Code ---


Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite