Einzellne Felder nach Excel exportieren

[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!

[Andreas Huhn]

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)

[Axel]

... 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

[Andreas Huhn]

Hm.. danke! War wirklich wieder nicht so schwer. Aber ohne das doc. gehts halt nicht...

Grüße,

Andreas

[Michael84]

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

[Andreas Huhn]

Grüß dich Michael,

sieht interessant aus, ist aber für meine Anforderungen momentan absolut überdimensioniert. Trotzdem danke für den Link!

Grüße,

Andreas