Domino 9 und frühere Versionen > ND6: Entwicklung

Einzellne Felder nach Excel exportieren

(1/2) > >>

Andreas Huhn:
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

Glombi:
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"

Andreas Huhn:
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

Axel:
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

Andreas Huhn:
Danke Axel und Andreas.

Viele Grüße!

Navigation

[0] Themen-Index

[#] Nächste Seite