Domino 9 und frühere Versionen > ND6: Entwicklung

ExportToExcel mit Vorlage

(1/4) > >>

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:

--- Zitat ---und genau dafür wären die klassen hilfreich
--- Ende Zitat ---

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

Toni  ;)

Navigation

[0] Themen-Index

[#] Nächste Seite