Domino 9 und frühere Versionen > Entwicklung
Sortieren in Excel via Notes
ata:
Hallole,
... ich muß von Notes aus eine Excel-Tabelle erstellen. Zum Ende des Datenexportes ist es wichtig, einen Bereich zu sortieren. Bei der Methode
... .Range(...).Sort...
... meldet Excel, daß er das Objekt nicht kennt, obwohl es in den COM-Klassen angegeben ist - kennt jemand einen Weg der funktioniert?...
ata
wflamme:
Das Worksheet zum aktiven Worksheet machen?
Habe leider derzeit kein Excel installiert. Aber die kpl. von Dir verwendete Syntax wäre trotzdem hilfreich.
Axel:
Hi,
ich hab das mal gemacht. Hier die wichtigsten Codezeilen:
Dim objExcel As Variant
Dim objSheet As Variant
Set objExcel = CreateObject("Excel.Application")
Set objSheet = objExcel.Workbooks(1).Worksheets(1)
...
objSheet.Cells.Select 'Gesamtes Arbeitsblatt markieren
objExcel.Selection.Sort objSheet.Columns("A"), xlAscending , "", objSheet.Columns("B"), xlAscending , objSheet.Columns("C"), xlAscending, xlGuess,1, False, xlTopToBottom
...
Sortiert die ersten drei Spalten aufsteigend. In der ersten Zeile ist eine Überschrift vorhanden.
Axel
ata:
Hallo Wolfgang,
... hier ein Ausschnitt aus dem Code...
... alle Objekte sind sauber initialisiert...
... sSheet ist der Name des Arbeitsblattes
... bis auf die Methode .Sort sprechen alle Eigenschaften und Methoden sauber an...
Call xl.wbk.Sheets( sSheet ).Range("A10:C" + Cstr(.Cells(6 , 2).Value + iFirstRow - 1) ).Sort ("B10", 1, "A10", 1, 1, 1, 0, 1)
... ich habe die verschiedensten Varianten probiert - EXCEL behauptet: "Named product object does not exist"...
ata
ata:
@wflamme , @Axel
... ich danke euch. Im Moment habe ich es auch geschaftt. Entscheidend für die .Sort-Methode ist .ActiveSheet zu initialisieren...
@wflamme
... du bist richtig gelegen
@Axel
... ich nehme deinen Code in meine KnowledgeBase auf. Für Tabellen ohne größere Header funktioniert das prächtigst...
... also nochmals vielen Dank... ;D ;D ;D
ata
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln