Domino 9 und frühere Versionen > Entwicklung

Befehle für einen formatierten Excel-Export

<< < (7/7)

Catrex:
ok das scheint zu klappen mit den Summen aber kann ich das auch flexibelmachen ? also weil die Zeilenzahl ja unterschiedlich ist ?

Muss ich das mit dem Z1S1-Bezug noch im Script einstellen wenn das Problem auf anderen Rechner auch auftritt ?

Ist das auch der Grund für den Fehler bei dem Zahlenformat ?

Axel:

--- Zitat von: Catrex am 18.06.04 - 13:33:10 ---aber kann ich das auch flexibelmachen ? also weil die Zeilenzahl ja unterschiedlich ist ?

--- Ende Zitat ---

Klar geht das auch "dynamisch". Du brauchst nur eine Variable in der du die Anzahl der Docs hast. Dann baust du dir die Formel zusammen.

row = 10
ActiveCell.Formula = "=Summe(F1:F" & Trim$(Str$(row)) & ")"



--- Zitat von: Catrex am 18.06.04 - 13:33:10 ---Muss ich das mit dem Z1S1-Bezug noch im Script einstellen wenn das Problem auf anderen Rechner auch auftritt ?

--- Ende Zitat ---

Das ist eine Einstellung in Excel. Ob man diese Einstellung auch über die COM-Schnittstelle ändern kann, weiß ich nicht. Auf die Schnelle hab ich in der VBA-Hilfe nichts gefunden.



--- Zitat von: Catrex am 18.06.04 - 13:33:10 ---Ist das auch der Grund für den Fehler bei dem Zahlenformat ?

--- Ende Zitat ---

Wenn es sich um die Fehlermeldung "Die NumberFormat-Eigenschaft des Range-Objektes ..." handelt, vermute mal ja.


Axel

Markus Henke:
Es gibt eine Eigenschaft, die Dir die letzte benutzte Zeile zurückgibt.

Hier ist ein Beispiel dazu:


Dim xlApp As Variant
Dim xlSheet As Variant


Function OpenExcel() As String
   
   'Errorroutine
   On Error Goto Errorhandler
   
   'Excel Applikation öffnen
   Set xlApp = CreateObject("Excel.application")
   'neues Arbeitsblatt
   xlApp.Workbooks.Add
   Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
   
   OpenExcel = "OK"
   Exit Function
   
Errorhandler:
   OpenExcel = "ERROR"
   
End Function


Sub Click(Source As Button)
   
   'Excel öffnen und Rückgabe überprüfen
   Rückgabe = OpenExcel()
   If Rückgabe <> "OK" Then
      'abbrechen
      Exit Sub
   End If
   
   'Werte schreiben
   'Cells benötigt Zahlen, Range benötigt z.B. "A5"
   For i = 1 To 50
      xlSheet.Cells(i,1).Value = "TEST"
   Next i
   
   'letzte Zeile finden und ausgeben (4 entspricht xlUp)
   Msgbox xlApp.Columns("1,1").End(4).Row
   
   'Excel sichtbar machen
   xlApp.Visible = True
   
   'Variablen freigeben
   Set xlSheet = Nothing
   Set xlApp = Nothing
   
End Sub


Packs in einen Button und probiers mal aus.

Markus

Axel:
Hi,

ich zur Umstellung der Bezugsart noch was gefunden. Sie lässt sich mit

Application.ReferenceStyle = xlA1 umstellen, wobei xlA1 den Wert 1 hat.

Mit Application.ReferenceStyle = xlR1C1 stellt du das Ganze wieder zurück.
xlR1C1 hat den Wert -4150


Axel

Catrex:
Also nochmal besten Dank für die Infos & Hilfen.
Ich denke hier gibt es nun nichts mehr zu klären !

Navigation

[0] Themen-Index

[*] Vorherige Sete