Autor Thema: Importieren von Ecxel Datensätzen in eine Maske  (Gelesen 2843 mal)

Offline Dija

  • Frischling
  • *
  • Beiträge: 6
  • Geschlecht: Weiblich
Importieren von Ecxel Datensätzen in eine Maske
« am: 19.08.02 - 10:33:36 »
Hallo,

habe probleme einzelne Datensätze aus Excel in eine Notes Maske zu importieren.  ???

Theoretisch müsste dies funktionieren wenn die einzelnen Datensätzen Namen vergeben werden und diese dann in die Dateieigenschaften eingetragen werden. Da es in Notes einen austausch von Datentypen aus Datei Eigenschaften gibt. Danach wird die Tabelle als eingebettetes Objekt in eine Maske importiert in der Felder mit der Bezeichung aus der Datei Eigenschaft erstellt wurden. (Felder berechnet).
Die berechneten Felder werden dann in einer Ansicht angezeigt wo die Spalten den Feldnamen haben.

Irgendwo hab ich einen Denk-/Ausführunsfehler.  :-[
Kann mir jemand nen Tip geben oder einen anderen Ansatz von Datensätzenimport aus Excel.
Wär super Dankbar für eure Hilfe....  ;D

Gruss Andreja
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline Wipe

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 873
  • Geschlecht: Männlich
Re: Importieren von Ecxel Datensätzen in eine Mask
« Antwort #1 am: 19.08.02 - 12:37:39 »
Hallo,

schau mal hier nach ob das geeignet ist.

http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=002-1;action=display;num=1029409824

Gruss
Bubble
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline Dija

  • Frischling
  • *
  • Beiträge: 6
  • Geschlecht: Weiblich
Re: Importieren von Ecxel Datensätzen in eine Mask
« Antwort #2 am: 19.08.02 - 14:25:45 »
Hi Bubble,

danke für die Info... ist aber leider nich ganz wie ichs mir gewünscht habe... Trotzdem hats mich weitergebracht.

Versuch jetzt aber mal das ganze mit nem Agenten zu importieren.

danke nochmal..

gruss andrejs  :)
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline Dija

  • Frischling
  • *
  • Beiträge: 6
  • Geschlecht: Weiblich
Re: Importieren von Ecxel Datensätzen in eine Mask
« Antwort #4 am: 19.08.02 - 17:03:36 »
hi eknori,

danke.... echt gut....  ;D

hätte da auch noch was wie du excel schön importieren kannst in ne view....


Sub Click(Source As Button)
'The action button is located on a view named Import1
     Dim ws As New NotesUIWorkspace
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Set db = session.CurrentDatabase
     Dim view As NotesView
     Dim doc As NotesDocument
     Dim temp1 As String
     Dim temp2 As String
     Dim temp3 As String
     Dim temp4 As String
     Dim temp5 As String
     Dim temp6 As String
     Dim xlApp As Variant
     Dim xlSheet As Variant
     Dim cursor As Integer
     Dim recordcheck As String
     
     On Error Goto ERRORLABEL
     Dim FileName As String
     Dim DefaultFileName As String
     DefaultFileName="c:tempsheet.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 Goto SubEnd
     'Create an Excel object for the spreadsheet
     'It may be necessary to have the proper MS Office DLLs installed on the PC running this application
     'That is, the person must be able to open the XLS file with Excel
     Set xlApp = CreateObject("Excel.Application")
     xlApp.Application.Workbooks.Open Filename
'File not found will return ERR=213 and the routine will be ended
     With xlApp.workbooks.Add
     'Not sure what this line is for, unless it's to be sure that at least one workbook is present in the XLS file
     End With
'Stop
     Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
     recordcheck="x"
     r=1 ' Row counter - first row contains fieldnames from the database;
'these fieldnames are not needed as long as the spreadsheet follows a specified format
     While recordcheck <>"0" And recordcheck <> "" And r<100
           'Recordcheck = "0" when there is no value in the first cell of the row,  if integer, or "", if string
           'Important - Set r to a value that will stop the import routine without missing any data, if the other criteria do not
'For this example, six columns are imported
           cursor=0
           r=r+1
           temp1=xlSheet.Cells(r,1).value
           recordcheck=Cstr(temp1)
           If recordcheck="0" Then Goto Finished ' Avoid generating empty record
           temp2=xlSheet.Cells(r,2).value
           temp3=xlSheet.Cells(r,3).value
           temp4=xlSheet.Cells(r,4).value
           temp5=xlSheet.Cells(r,5).value
           temp6=xlSheet.Cells(r,6).value
           'The above lines lines could be combined with those below, but keep separate for ease in debugging until ready to finalize the code
           Set doc = New NotesDocument(db)
           doc.Form = "frmName"
           doc.Field1 = temp1
           doc.Field2 = temp2
           doc.Field3= temp3
           doc.Field4 = temp4
           doc.field5 = temp5
           doc.field6 = temp6
           Call Doc.Save(True, False)
Finished:
     Wend
     Goto SubClose
     
ERRORLABEL:
     'Msgbox "An error was encountered."
     'Print "Error: " Error(), "   Err:" Err(), " Erl:" Erl()
     If Err=213 Then
           Messagebox Filename & " was not found. Verify Path and Filename, then try the Import again."
           Resume SubEnd
     Else
           Messagebox "Error" & Str(Err) & ": " & Error$
     End If
     Resume Next
SubClose:
     xlApp.activeworkbook.close
     xlApp.Quit
     Set xlapp = Nothing
     Set view=db.getview("import1")
     Call ws.viewrefresh
SubEnd:
End Sub


Danke nochmal  ;)

gruss dija
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz