Domino 9 und frühere Versionen > ND6: Entwicklung

Probleme mit nem Excelimport

(1/1)

C_T:
HI  @all

Ich habe ein problem mit einem import Von Excel in Notes.

Dim session As New NotesSession
   On Error Goto ERRORLABEL

   Dim db As NotesDatabase
   Dim xlApp As Variant
   Dim xlSheet As Variant
   Dim cursor As Integer
   Dim FileName As String
   Dim DefaultFileName As String

   Set db = session.CurrentDatabase

   DefaultFileName = "w:\Excel.xls"

   NamePrompt$="Enter the complete Path and File Name of the Excel file to be imported:" &Chr(13)
   FileName=Inputbox(NamePrompt$,"Import File Name Specification",DefaultFileName,100,100)

   If FileName="" Then
      Exit Sub
   End If
   
   Set xlApp = CreateObject("excel.Application")
   xlApp.Application.Workbooks.Open Filename
   ' Wenn nicht gefunden wird ERR=213 zurückgegeben - Abbruch
   With xlApp.workbooks.Add
   End With
   
   Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
   recordcheck="x"
   r=5 ' Spaltenzähler;
   '__________________Anfang Schleife________________________
   While recordcheck <>"ENDE"
      cursor=0
      r=r+1
      temp=xlSheet.Cells(r,1).value
      recordcheck=Cstr(temp)
      If recordcheck="" Then
         xlApp.activeworkbook.close
         xlApp.Quit
         Set xlapp = Nothing
......


Nun ist das Problem das er mir bei den beiden Zeilen

         xlApp.activeworkbook.close
         xlApp.Quit

jeweils einen Fehler auswirft.

Warum????

Wenn noch mehr Details notwendig sind einfach melden schonmal vielen Dank  für eure Hilfe...

CU
C_T

C_T:
Komisch naja jetzt läufts auf einmal doch

SRY fürs SPAMMEN

TROTZDEM Danke

CU

C_T

Navigation

[0] Themen-Index