Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Andreas Huhn am 01.12.05 - 13:37:47
-
Hi,
hab die Boardsuche zum Thema Excel-Export bemüht und da kommt schon einiges raus. Allerdings ist das für meine Anforderungen alles viel zu hochtrabend. Ich will nicht ganze docs exportieren oder Ansichten sondern eigentlich nur ein paar einzellne Felder einer Maske über einen Hotspot in eine neue Excel-Datei transportieren.
Gibts dafür auch eine einfache Möglichkeit?
Viele Grüße,
Andreas
-
Das geht mit der COM Schnittstelle. Hier mal ein Beispiel:
Dim appExcel As Variant
Dim xlsObject As Variant
Dim xlsSheet As Variant
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Open("c:\test.xls")
Set xlsSheet = appExcel.Workbooks(1).Worksheets(1)
appExcel.visible = True
xlsSheet.Range("A1").Value = "Wert für Zelle A1"
-
Hallo Andreas,
funktioniert eigentlich prächtig und ist tatsächlich glücklicherweise nicht besonders kompliziert, aber die Datei -test.xls in diesem Fall- muß schon bestehen sonst funzts nicht. Wie könnte ich denn die Datei im Zuge der Funktion erstellen lassen? Ich weiß daß xls ein proprietäres Format ist hoffe aber trotzdem daß dsa geht :)
Viele Grüße,
Andreas
-
Hi,
hier das Beispiel von Glombi, entsprechend angepasst.
Dim appExcel As Variant
Dim xlsObject As Variant
Dim xlsSheet As Variant
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Add
Set xlsSheet = appExcel.ActiveWorkbook.Worksheets(1)
appExcel.visible = True
xlsSheet.Range("A1").Value = "Wert für Zelle A1"
Axel
-
Danke Axel und Andreas.
Viele Grüße!
-
Wahrscheinlich ist die Lösung wieder sehr leicht, aber wie kann ich Werte aus Textfeldern schreiben lassen?
xlsSheet.Range("A1").Value = Bezeichnung1
funktioniert genauso wenig wie
xlsSheet.Range("A1").Value = Cstr(Bezeichnung1)
oder
xlsSheet.Range("A1").Value = Bezeichnung1(0)
-
... aber wie kann ich Werte aus Textfeldern schreiben lassen?
So:
xlsSheet.Range("A1").Value = doc.Name_des_Feldes(0)
Oder auch so:
Dim strValue As String
strValue = uidoc.FieldGetText("Name_des_Feldes")
xlsSheet.Range("A1").Value = strValue
Axel
-
Hm.. danke! War wirklich wieder nicht so schwer. Aber ohne das doc. gehts halt nicht...
Grüße,
Andreas
-
Wenn du mal mehr machen magst dann kann ich dir http://www.infoserv.de/webcontent_infoserv/website.nsf/urlnames/products_pump3_de!OpenDocument&Cat=4#
empfehlen. Der Link führt zu einer Demo Version für eine Pump.
Einfach zu bedienen und tolle Möglichkeiten....
Grüße Michael
-
Grüß dich Michael,
sieht interessant aus, ist aber für meine Anforderungen momentan absolut überdimensioniert. Trotzdem danke für den Link!
Grüße,
Andreas