ExportToExcel mit Vorlage

[William Wallace]

Hallo,

ist es möglich bei einem ExportToExcel, eine bestehende ExcelVorlage zu benutzen, die im gleichen Dokument gespeichert ist, zu benutzen. D.h. Ich habe ein Notesdokument wo ich via Button (siehe Codefragment) Notesfelder an Excel übertrage. Es oll hier zstl. die ExcelDatei benutzt werden, die im selben Notesdokument vorhanden ist.


^{Sub Click(Source As Button)
   Dim session As New notessession
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As notesdocument
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Dim rtitem As NotesRichTextItem
   Dim object As NotesEmbeddedObject
   Dim xlApp As Variant
   Dim oWorkbook As Variant
   Dim Zeile As Integer
   
   'Create Excel Object
   uidoc.EditMode = True
   Set xlApp = CreateObject("Excel.Application")
   If xlApp Is Nothing Then
      message$ = "Could not create spreadsheet." & Chr$( 10 ) & _
      "Make sure Excel is installed on this computer."
      Msgbox message$, 16, "Creation of Spreadsheet Object Failed"
      Continue = False
      Exit Sub
   End If
   
   ' Settings
   xlApp.Visible = True
   Set oworkbook = xlApp.Workbooks
   oworkbook.Add}

[ata]

... du musst die Vorlage lösen und die gelöste Datei dann initialisieren...

Toni

[William Wallace]

bestimmt...und genau dafür wären die klassen hilfreich, dann kämpfe ich mich dadurch.   

Gruß,
William

[botschi]

Zum Beispiel so:

If ( gvRtitem.Type = RICHTEXT ) Then
      Set gvObject = gvRtitem.GetEmbeddedObject( "Vorlage.xls")
      If ( gvObject Is Nothing ) Then
         Call agentlog(gvDieserAgent.Name, "Es gibt keine Vorlage in dem Dokument)
         gvContinue = False
         Exit Sub
      End If
   End If
   gvDateiname = "Vorlage.xls"
   ' Verbindung zu EXCEL aufbauen
   Set FE2xlApp = CreateObject("Excel.Application")
   
      ' Datei auf c ablegen, damit man sie öffnen und beschreiben kann
      ' wird später wieder gelöscht
   Stop
   Call gvObject.ExtractFile("c:\" & "Vorlage.xls")
   
   FE2xlApp.Visible = False '// EXCEL nicht als Anwendung anzeigen lassen
   FE2xlApp.Workbooks.Open "c:\" & "Vorlage.xls" '// EXCEL Datei öffnen
   Set FE2xlWB = FE2xlApp.ActiveWorkbook
   Set FE2xlSheet = FE2xlWB.Worksheets(2)

Matthias

[ata]

und genau dafür wären die klassen hilfreich

... und dafür gibt es die Notes Hilfe - hast du damit schon mal gearbeitet?

Toni 

[William Wallace]

nur wenn ich hier keine hilfe bekomme...lesen lasse ich liber andere

[koehlerbv]

Habe ich das jetzt richtig verstanden??

nur wenn ich hier keine hilfe bekomme

Wieso bekommt man hier keine Hilfe??

...lesen lasse ich liber andere

Nochmal: Habe ich das wirklich richtig verstanden? Wir lesen - und machen dann für andere, die nicht lesen wollen,  die Arbeit??

Ich bin jetzt wirklich irritiert, denn sowas hätte ich bei AtNotes (so offen) noch nicht erlebt ...

[William Wallace]

so offen war lediglich gemeint, dass man bei fast jedem thread darauf hingewiesen wird "les' doch erstmal die desginer-hilfe"

das habe ich in diesem fall getan, bin aber nicht weitergekommen. Ausserdem stellte sich mir die frage, ob mein vorhaben überhaupt technisch machbar ist - deshalb habe ich mich ans forum gewandt.

Hilfe habe ich hier bekommen - dafür danke. finde es aber nervig jedesmal wieder als dummy dargestellt zu werden, dem unterstellt wird die hilfe nicht zu lesen.

Das hat mich dazu veranlasst einmal eine etwas polarisierende antwort darauf zu schreiben.

Sei's drum,
William

[ata]

... alle Klassen sind in der Hilfe ausreichend beschrieben und zum Teil mit kleinsten Änderungen per Copy & Paste verwendbar - du hast mit der Hilfe keine Erfahrung - denn sonst machst du es dir ganz schön bequem. Das Forum ist keine Dienstleistung, die dir Code postet, weil du mit der Hilfe nicht umgehen kannst / willst.

finde es aber nervig jedesmal wieder als dummy dargestellt zu werden

Hier wird keiner als Dummy hingestellt. Vielleicht bist du im falschen Forum 

Um die Stimmung nicht weiter anzuheizen bitte weiteres nur noch per PM...

Toni

[William Wallace]

stimmt: in der notes-hilfe sind alle klassen ausreichend beschrieben.

Aber ich erwähne nun schon zum 2. mal, dass ich a) erstmal geklärt haben wollte, ob mein vorhaben überhaupt gelingt und b) welche klassen dafür in frage kämen. Quasi ein stupps in die richtige richtung.

eine komplette lösung als antwort habe ich nicht erwartet und auch nicht drum gebeten.  Deshalb mache ich es mir auch nicht bequem. Für diese Unterstellung könnte ich das gleiche fordern wie Du in der PM.

Anheizen möchte ich die Stimmung auch nicht weiter. Aber vielleicht hilft es, wenn man sich diesen Thread-Verlauf hier nochmals genau durchliest!

In diesem Sinne...

[m3]

eine komplette lösung als antwort habe ich nicht erwartet und auch nicht drum gebeten. 

Dann lass mich mal ganz freundlich fragen, was Du an "du musst die Vorlage lösen und die gelöste Datei dann initialisieren" nicht verstehst? Da gibts keine fertige Klasse dafür. Du brauchst die Klassen zum Session, DB, View und Dokument öffnen, die RichTextKlasse, um das Template aus dem NotesDoc zu lösen und dann die Excel-Klassen, um ein neues File auf Basis des Templates zu erstellen. WO hast Du da ein Problem? Ist doch alles straightforward, bereits 20x im Forum durchgekauft, fertige Lösung auf OpenNTF vorhanden usw.

[William Wallace]

na dann freue ich mich für dich, dass du mit der aufgabenstellung wohl kein problem hast.

Der hinweis auf forumsuche und openntf ist nett, danke. Hilfe mir jedoch nur bedingt weiter, da ich doch gar nicht wusste nach was ich suchen sollte.

Aber, um das ganze mal abzuschließen: Hätte mir vorgestellt, dass jemand auf meine frage antwortet wie: "Ja, ist möglich. Du kannst eine Vorlage lösen und dann bearbeiten. Dabei werden dir die Klassen/Methoden Rtitem.GetEmbeddedObject, CreateObjectm, ... weiterhelfen."

Es gibt personen, denen die lösung nicht so spontan einfällt und die ohne konkrete hilfe nicht weiterkommen. Dürfen diese personen dann nicht weiter nachfragen, wenn sie mit der ersten antwort nicht weiterkommen?

[William Wallace]

Dank der Hilfestellung hier konnte ich mich nun in die jeweiligen Klassen/Methoden einlesen und habe auch schon einige Fortschritte gemacht.

Zur Aussage:

nur wenn ich hier keine hilfe bekomme...lesen lasse ich liber andere

Das war (aus meiner sicht selbstverstänflich) nicht ernst gemeint. Bildlich gesprochen bin ich bei der Suche in der Hilfe nach einer Lösung über meine eigenen Füße gestolpert. Ungeschickt könnte man sagen...aber Hautpsache man steht wieder auf 

Gruß,
William

[ata]

aber Hautpsache man steht wieder auf   

na dann ist ja alles Bestens - ein Emoticon hätte das vielleicht schneller zum Vorschein gebracht...

Toni 

[m3]

Und jetzt noch ein etwas freundlicherer Tonfall vom Hr. Wallace und alles ist wieder gut. 

[ata]

@m3

... es gab einige PM's im Hintergrund, die zur Klärung beigetragen haben, die ich hier aber nicht ausführlich im Thread führen wollte.

Ich nehme es als positives Zeichen von William an, daß er mit solch einer Haltung hier nicht weit kommt. Seine Ironie kam hier nicht durch. Das meint er wohl mit ungschickt...

Toni