Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: William Wallace am 11.05.07 - 10:19:51
-
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
-
... du musst die Vorlage lösen und die gelöste Datei dann initialisieren...
Toni
-
bestimmt...und genau dafür wären die klassen hilfreich, dann kämpfe ich mich dadurch. ;)
Gruß,
William
-
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
-
und genau dafür wären die klassen hilfreich
... und dafür gibt es die Notes Hilfe - hast du damit schon mal gearbeitet?
Toni ;)
-
nur wenn ich hier keine hilfe bekomme...lesen lasse ich liber andere
-
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 ...
-
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
-
... 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 O0
Um die Stimmung nicht weiter anzuheizen bitte weiteres nur noch per PM...
Toni
-
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...
-
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.
-
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?
-
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
-
aber Hautpsache man steht wieder auf ;)
na dann ist ja alles Bestens - ein Emoticon hätte das vielleicht schneller zum Vorschein gebracht...
Toni :)
-
Und jetzt noch ein etwas freundlicherer Tonfall vom Hr. Wallace und alles ist wieder gut. >:(
-
@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