Solved

How to import Excel data and update Notes document

Posted on 2001-07-02
5
221 Views
Last Modified: 2013-12-18
I need to import selected data from Excel or 1-2-3 worksheet to Notes. How can I import selected field from Excel to update a specific field in Notes form, assuming both records have a common unique identifier field.
0
Comment
Question by:kamar
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 4

Expert Comment

by:sloeber
ID: 6247594
Hey Kamar,

Here's an example of importing data from an excelfile to notes.
You can customize it, so that it works for you.
This is from a picture button in a navigator.
Import Excel Spreadsheet.

Sub Click(Source As Navigator)
     
     Dim filename As String
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim Doc As NotesDocument
     Dim xlApp As Variant
     Dim xlsheet As Variant
     Set db = Session.currentdatabase
     filename =  Inputbox$("Enter name of Excel file. Ex: c:\test.xls", "Data Entry Box")
     If filename = "" Then
          Exit Sub
     End If
     Set xlApp = CreateObject("Excel.application")
     xlApp.Visible = False
     xlApp.Workbooks.Open filename
     Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
     ARangeValue = xlsheet.Range("A1").Value
     i = 2
     Do Until ARangeValue = ""
          Set doc = db.CreateDocument
          doc.Name = xlsheet.Range("A" & Trim(Str(i))).Value
          doc.Address = xlsheet.Range("B" & Trim(Str(i))).Value
          doc.City = xlsheet.Range("C" & Trim(Str(i))).Value
          doc.State = xlsheet.Range("D" & Trim(Str(i))).Value
          doc.ZipCode = xlsheet.Range("E" & Trim(Str(i))).Value
          doc.form = "CI"
          Call Doc.save(True, False)
          i = i + 1
          ARangeValue =   xlsheet.Range("A" & Trim(Str(i))).Value
     Loop
     xlapp.activeworkbook.close
     xlapp.quit
     Set xlapp = Nothing
End Sub


Greets,
Sloeber
0
 

Author Comment

by:kamar
ID: 6247840
That will just import the data over, but I need to update an existing Notes record with a field from the Excel file using a common unique field. How do I do that?
0
 
LVL 4

Expert Comment

by:sloeber
ID: 6247901
That's the same way of working.
You just go to the document in your database and upadate the field, just like you create a new doc.

Else you must give me an example.

Greets,
Sloeber
0
 

Author Comment

by:kamar
ID: 6247999
Example:
I have a record in Notes with customer code CAT12 and expiry date 12/06/2002.  I have an 2 column Excel spreadsheet with list of customer codes and their new expiry date.  I need to update my old Notes record with this new one without manually opening the Notes form and type in. Is there a way to use an Agent to do all that automatically?
0
 
LVL 4

Accepted Solution

by:
sloeber earned 100 total points
ID: 6248107
Sub Click(Source As Navigator)
   
    Dim filename As String
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim Doc As NotesDocument
    Dim xlApp As Variant
    Dim xlsheet As Variant
    Dim CustCode as string
    Dim CustExp as string
    Set db = Session.currentdatabase
    set view = db.getview("yourViewWithDocuments")
    set doc = view.getfirstdocument
    filename =  Inputbox$("Enter name of Excel file. Ex: c:\test.xls", "Data Entry Box")
    If filename = "" Then
         Exit Sub
    End If
    Set xlApp = CreateObject("Excel.application")
    xlApp.Visible = False
    xlApp.Workbooks.Open filename
While Not ( doc Is Nothing )
    CustCode = doc.CustCode(0)
    Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
    ARangeValue = xlsheet.Range("A1").Value
    i = 2
    Do Until ARangeValue = ""
         
         if CustCode = xlsheet.Range("A" & Trim(Str(i))).Value then {
         doc.CustExp = xlsheet.Range("B" & Trim(Str(i))).Value
         Call Doc.save(True, False)
         End if
         i = i + 1
         ARangeValue =   xlsheet.Range("A" & Trim(Str(i))).Value
    Loop
    set doc = view.getnextdocument(doc)
wend
    xlapp.activeworkbook.close
    xlapp.quit
    Set xlapp = Nothing
End Sub


Greets,
Sloeber

0

Featured Post

Enroll in June's Course of the Month

June’s Course of the Month is now available! Experts Exchange’s Premium Members, Team Accounts, and Qualified Experts have access to a complimentary course each month as part of their membership—an extra way to sharpen your skills and increase training.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This is an old article, please see an updated version of this article, located here: http://www.experts-exchange.com/articles/23619/Notes-8-5x-Windows-7-Notes-info-and-tips.html
  In today’s Arena we can’t imagine our lives without Internet as we are highly used to of it. If we consider our life style just for only 2 min we found that face to face communication is swapped by e-communication.  Every Where from Works place to…
There's a multitude of different network monitoring solutions out there, and you're probably wondering what makes NetCrunch so special. It's completely agentless, but does let you create an agent, if you desire. It offers powerful scalability …
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

695 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question