Tabellen unter LN, bzw.Datenexport nach Excel

25. Januar 2005

Hallo zusammen,

zu viel Hektik, zu wenig Zeit und dazu noch ein Problem :cry:

Ich muss die Inhalte einer DB graphisch in Tabellenform (incl. Hintergrundfarbe) aufbereiten und darstellen.
Da die Zahl der Werte dynamisch ist, kann ich sie unter Domino 5 schlecht bearbeiten. Ich wüsste nicht, wie ich diese Tabelle programmatisch (z.B. mit LS) aufbauen und formatieren soll...

Eine Möglichkeit wäre die Daten zu exportieren und dann mit Excel + VBA + inhaltsbedingte Zellenformatierung
zu bearbeiten. Allerdings ein langer und aufwendiger Weg...

Gibt es auch eine andere Möglichkeiten diese Aufgabe zu lösen? Danke für jede Hilfe!

Gruß
Andreas

Diali · 26. Januar 2005

nach Excel exportieren und dann aufbereiten funktioniert im Script über OLE

Code

Sub Initialize
   Dim ws As New NotesUiWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument

   Dim xlApp As Variant	' Excel-Applikation
   Dim xlCells As Variant	' Excel-Zelle

   Dim SpalteTitel As String
   Dim iSpalte, iZeile, iSpalteCount As Integer

   Set db = Session.currentdatabase
   Set view = ws.CurrentView.view

   Set xlApp = Nothing
   Set xlApp = CreateObject("Excel.application")
   If xlApp Is Nothing Then Exit Function ' existiert die OLE-Verbindung
   xlApp.Visible = True   ' Excel anzeigen
   xlApp.Workbooks.add
   Set xlCells = xlApp.ActiveWorkbook.ActiveSheet.Cells   ' Excel-Zelle

   iSpalte = 0
   iZeile = 1

   ' Spaltentitel exportieren
   Forall c In view.Columns
      iSpalte = iSpalte + 1
      SpalteTitel = c.title
      If SpalteTitel = "" Then
         SpalteTitel = "Spalte " + Cstr(iSpalte)
      End If
      xlCells( iZeile, iSpalte).Value = SpalteTitel	
   End Forall

   ' Ansichtseinträge exportieren
   iSpalteCount = iSpalte
   Set doc = view.GetFirstDocument
   While Not doc Is Nothing
      iZeile = iZeile + 1
      For iSpalte = 1 To iSpalteCount
         xlCells(iZeile, iSpalte).Value = Cstr(doc.ColumnValues(iSpalte - 1))
      Next
      Set doc = view.GetNextDocument(doc)
   Wend
End Sub

Alles anzeigen

Gruß
Dirk

weisnix · 26. Januar 2005

Hallo Dirk,

funktioniert so ein Export auch zu Lotus 123? Falls ja, was muss man als Applikationsname nehmen?

Gruß
Andre

26. Januar 2005

Hallo Dirk,

vielen dank für Deine Hilfe.
Dein Script bringt mich ziemlich nah an mein Zeil :laola:

Sollte ich doch noch ins Stocken geraten, melde ich mich wieder.

Gruß
Andreas

dnotes · 26. Januar 2005

@weisueberhauptnix :lol:

Versuch mal
Set myApp = CreateObject ("Lotus123.Workbook")

weisnix · 26. Januar 2005

Das CreateObjectt funktioniert jetzt, aber bei der nächsten Zeile,

myApp.visible=True

kommt die Fehlermeldung, dass Instance Member "visible" nicht existiert.

Muss man da bei 123 mit anderen Befehlen arbeiten?

Würde mich echt über jede Hilfe freuen, weil wir bei uns auch kein Excel im Einsatz haben.

Diali · 26. Januar 2005

mit CreateObject erzeugst Du eine OLE-Verbindung.
Mit myApp. wird der nachfolgende Befehl, Funktion usw in der Anwendung ausgeführt, die Du mit CreateObject verbunden hast.

An Excel kannst Du VBA-Code weitergeben und an 123 musst Du die passenden Befehle für 123 weitergeben.

Gruß
Dirk

dnotes · 26. Januar 2005

Versuch mal:
myApp.Application.visible = true
set sheet = myApp.Application.ActiveDocument
set range = sheet.Ranges("A:A1")
range.contents = "Hello from Notes"

weisnix · 26. Januar 2005

Gibt es da irgendwo ne Übersicht, welche Befehle man da in 123 verwenden kann?

Die Notes-Hilfe ist da sehr zurückhaltend und beschränkt sich vorwiegend auf Verbindungen zu Microsoft-Objekten.

Danke
Andre

taurec · 26. Januar 2005

Schau mal in die Hilfe vom 123. Dort findest du genau wie in der Office Hilfe die entsprechenden Objekte und Eigenschaften die du dann über OLE/COM ansprechen kannst

Diali · 26. Januar 2005

da wirst Du eher etwas bei 123 in der Hilfe finden.

Gruß
Dirk

weisnix · 26. Januar 2005

Ja, werd da nun mal bissel drin stöbern.

Das mit dem Öffnen von 123 funktioniert jetzt erst mal. Danke dir, dnotes :idea:

28. Januar 2005

Hi,

zu der Geschichte mit dem Excel noch eine Frage.
Der Script von Dirk als Grundlage für eigene Programmiererei ist einwandfrei. Wie muss ich aber vorgehen, wenn in LS die Excel Konstanten verwendet werden müssten.

Ausschnitt aus dem Code:

.........
Dim xlApp As Variant ' Excel-Applikation
Dim xlCells As Variant
Set xlApp = CreateObject("Excel.application")
........
........
xlCells( iZeile, iSpalte).select
With xlApp.Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
End With

xlRight, oder xlBottom führen zu Fehlermeldungen. :cry:
Wie kann ich das Problem umgehen, bzw. wie behandelt man in LS diese Konstanten?

Danke für die Hilfe.

Gruß
Andreas

Diali · 28. Januar 2005

Du kannst im Excel die Konstanten mit der rechten Maustaste anklicken und Quickinfo wählen, dann wird Dir der Wert der Konstante angezeigt oder Du importierts die Konstanten von Excel in Dein Script.

Falls Du für Word, Excel,... die Konstanten brauchst, die habe ich mir mal als LSS-Datei für Notes zusammengebastelt.

Gruß
Dirk

Diali · 31. Januar 2005

hier die Dateien:

Teilen