Domino 9 und frühere Versionen > ND6: Entwicklung

Notes to Excel Export und sortieren

(1/2) > >>

Fitz:
Hallo Forum,

ich verzweifle hier beim Versuch von Notes aus ein Excel XP Tabellenblatt zu sortieren :-(
Der Export der Daten klappt einwandfrei, nur beim sortieren kommt folgende Fehlermeldung:

"Microsoft Excel: Die Sort-Eigenschaft des Range-Objektes kann nicht zugeordnet werden"

Ich habe über die Suche viele Hinweise gelesen aber leider konnte ich nichts davon umsetzen. (Bin in Lotus Script nicht so fit)

Server 6.5.5FP1
Client 6.5.5 deutsch

Danke für Infos!

Gruß

Bernd

hier auszugsweise mein Script:

Dim Session As New NotesSession
   Dim Doc As NotesDocument
   Dim CurrDB As NotesDatabase
   Dim Collection As NotesDocumentCollection
   Dim Application As Variant
   Dim Book As Variant
   Dim Sheet As Variant
   Dim i As Integer
   Dim xlsStartzeile As Integer

   Set CurrDB = Session.CurrentDatabase
   Set Collection = CurrDB.UnprocessedDocuments
   Set Doc = Collection.GetFirstDocument
   Set Book=Nothing
   Set Sheet = Nothing
   Set Application=Nothing
   

      
   Const xlDiagonalDown=5
   Const xlNone=-4142
   Const xlCenter=-4108
   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 xlAscending=1
   Const xlGuess=0
   Const xlTopToBottom=1
   Const xlSortNormal=0   
   

   Set Application = CreateObject("Excel.Application")
   Set Book = Application.Workbooks.Add
   If Application.Workbooks(1).Worksheets.Count=0 Then
      Set sheet = Application.Workbooks(1).Worksheets.Add
   End If
   Set Sheet = Application.Workbooks(1).Worksheets(1)
   Sheet.Name = "Report" 'Name der Arbeitsmappe
   Book.Application.Visible=True

...
.... Export der Daten und Formatierung der Zellen geht ohne Probleme
...

   ' sortiere den Report nach Name
   Sheet.Range("A6:K5000").Select
   Application.Selection.Sort.Key1 = Sheet.Range("A7")  ' hier kommt der Fehler
   Application.Selection.Sort.Order1= xlAscending
   Application.Selection.Sort.Header = xlGuess
   Application.Selection.Sort.OrderCustom = 1
   Application.Selection.Sort.MatchCase = False
   Application.Selection.Sort.Orientation = xlTopToBottom
   Application.Selection.Sort.DataOption1 = xlSortNormal

ZaLudtske:
Wie lautet den die Fehlermeldung?

Rainer

pReD:

--- Zitat von: Fitz am 25.10.06 - 10:44:56 ---Hallo Forum,

ich verzweifle hier beim Versuch von Notes aus ein Excel XP Tabellenblatt zu sortieren :-(
Der Export der Daten klappt einwandfrei, nur beim sortieren kommt folgende Fehlermeldung:

"Microsoft Excel: Die Sort-Eigenschaft des Range-Objektes kann nicht zugeordnet werden"

Ich habe über die Suche viele Hinweise gelesen aber leider konnte ich nichts davon umsetzen. (Bin in Lotus Script nicht so fit)



--- Ende Zitat ---

ZaLudtske:
Wer lesen kann ist klar im Vorteil.

Versuch doch mal den Aufruf mit Parametern für Key1, Order1... (Sort(Key1, Order1....)

Rainer

Axel:
So was hatten wir hier schon mal (ist aber schon ein paar Tage her  ;) )

Schau mal hier: http://atnotes.de/index.php?topic=9114.msg49803#msg49803


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite