Domino 9 und frühere Versionen > ND8: Entwicklung

Zugriff auf Excel Tabelle

<< < (2/2)

Hedwig14:
Somit lese ich die Werte aus der Excel-Tabelle aus:

'Excel Beschluss-Doc auslesen (Excel Tabelle)
   If Not doc.HasEmbedded Then
      Msgbox "Kein Beschluss-Dokument vorhanden !",, "Hinweis"
      Exit Sub
   End If
   pfad = "u:\"
   zaehler = 0
   Dim rtitem As Variant
   Dim object As NotesEmbeddedObject
   Set rtitem = doc.GetFirstItem( "tabelle" )
   If doc.HasEmbedded Then
      Call doc.ComputeWithForm( False, False )
      Call doc.Save( False, True )
      If ( rtitem.Type = RICHTEXT ) Then
         Forall o In rtitem.EmbeddedObjects
            If ( o.Type = EMBED_ATTACHMENT ) Then
               Redim Preserve dateinamen (Cint(zaehler))
               dateinamen (Cint(zaehler)) = o.Source
               zaehler = zaehler +1
            Else
               Msgbox "Kein Beschlussdokument vorhanden !",, db.Title
               Exit Sub
            End If
         End Forall
      End If
   End If
   
   If zaehler > 1 Then
      dateinametmp = ws.Prompt ( PROMPT_OKCANCELLIST,db.Title,"Wählen Sie das aktuelle Beschlussdokument aus:", dateinamen(0), dateinamen)
      dateiname = "IGK_Tmp5_" & dateinametmp
   Else
      dateinametmp = dateinamen(0)      
      dateiname = "IGK_Tmp5_" & dateinamen(0)
   End If
   
   If dateiname = "" Then
      Exit Sub
   Else
      Forall o In rtitem.EmbeddedObjects
         If o.Type = EMBED_ATTACHMENT Then 
            If o.Name = Cstr(dateinametmp) Then
               Call o.ExtractFile(Cstr(pfad & dateiname))
               Print (Cstr(pfad & dateiname))
            End If
         End If
      End Forall
      Dim excelreturn As Variant
      excelreturn = get_excelwerte(Cstr(pfad & dateiname))
      Kill pfad & dateiname
      
      If Not excelreturn(0) = "" Then
         For i = 0 To Ubound(excelreturn)
            Msgbox excelreturn(i),, i+1 & ". Wert aus Excel"
'         Next   

Thomas Schulte:
Da fehlt am Ende noch Code.

Bis jetzt sehen wir nur, das du das Attachment abhängst und dann nachdem du die Excelwerte mit einer anderen Routine zurückgelesen hast das abgehängtee File killst.

Die spannenden Sachen wie, wo gibst du die gefundenen Werte ans entsprechende Item zurück und speicherst du das Document auch irgendwann, erwähnst du nicht.

Hedwig14:
ich hatte im Reopen ein Save vergessen....
Nun läuft es erstmal gut !

Vielen Dank !

Navigation

[0] Themen-Index

[*] Vorherige Sete