Phase 2 of the import

OK now I have the ability to import values from a excel spread sheet in to a form.  Here is the next issue I need to solve.

When the import runs it creates a document for every row in the spreadsheet.  This is fine.  When the second import comes at end of month I need it to edit the documents with the new data and not create all new documents.  Here is the way I am thinking - there are two fields in the form ( a lot more this just a example)

Jan_Plan
Jan_OL

The first import puts a value from the spreadsheet in Jan_Plan, then the second and others imports only edit the Jan_OL field.
Jan_Plan is a target field and Jan_OL is actual.  Please tell me if I need to make this more clear.  I will try to sum it up.

Import 1

All fields are populated from a spreadsheet and a bunch of documents are created.  The fields pertaining to months are populated in the Month_Plan fields.

Import 2

All the documents that were created is now edited and no new documents are created.  It only creates documents on the first import.  The values are now assigned to Month_OL.  That way I can have a 3rd field calculating the delta between Month_Plan and Month_OL

Here is the first import

Sub Click(Source As Button)
      On Error Goto barry
      Dim file As Variant
      Dim ws As New NotesUIWorkspace
      Dim xlFilename As String
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Dim doc As NotesDocument
      Dim colValues(1 To 30) As Variant
      Dim intCount As Integer
      Dim intRow As Integer
      Dim Excel As Variant
      Dim xlWorkbook As Variant
      Dim xlSheet As Variant
      Dim blankLine As Variant
      
      Set db = session.CurrentDatabase
      
      file = ws.OpenFileDialog(False, "File List", "", "c:")
      If Isempty(file) Then
            Exit Sub
      End If
      
     ' Connect to Excel and open the file. Then start pulling over the records.
      xlFilename = Cstr(File(0)) '// This is the name of the Excel file that will be imported
      Set Excel = CreateObject("Excel.Application")
      Excel.Visible = False '// Don't display the Excel window
      Excel.Workbooks.Open xlFilename '// Open the Excel file
      Set xlWorkbook = Excel.ActiveWorkbook
      Set xlSheet = xlWorkbook.ActiveSheet
      
     ' Get the data from the first row in Excel
      blankLine = True
      intRow = 1     ' Start with 2 instead of 1 if your Excel sheet has a header row
      For intCount = 1 To 30
            colValues(intCount) = xlSheet.Cells(intRow, intCount).Value
            If colValues(intCount) >< "" Then blankLine = False
      Next
      
     ' While we don't have a blank line, create a document out of what we do have.
      Do While Not blankLine
            Set doc = New NotesDocument(db)
            doc.Form = "Jat2"
            doc.Group = colValues(1)
            doc.Manager4th = colValues(2)
            doc.Area = colValues(3)
            doc.Category = colValues(4)
            doc.Jan = colValues(4)
            doc.Feb = colValues(5)
            doc.Mar = colValues(6)
            doc.Q1_Total = colValues(7)
            Call doc.Save(True, False)
          ' Get the data from the next line.
            intRow = intRow + 1
            blankLine = True
            For intCount = 1 To 30
                  colValues(intCount) = xlSheet.Cells(intRow, intCount).Value
                  If colValues(intCount) >< "" Then blankLine = False
            Next
      Loop
      
      xlWorkbook.Close False '// Close the Excel file without saving (we made no changes)
      Excel.Quit '// Close Excel
      Set Excel = Nothing '// Free the memory that we'd used
      Exit Sub
barry:
      Msgbox "error occured on line number" & Erl & "error is " & Error
      Exit Sub
End Sub