Importing an Excel spreadsheet

Declarations:
Type ColStruc
      FieldName As String
      FieldDelimiter As String
End Type

Sub Initialize
'Call Terminate
      Dim xlFilename As String
      
      ExcelPath=Inputbox$("Enter Directory Path of Excel Sheets","Cleansing Import","c:\temp")
      If (ExcelPath="c:\temp") Or (ExcelPath="") Then
            Exit Sub
      End If
      ExcelPath1=Inputbox$("Enter no.of rows to export","Importing no.of Rows","0")
 '// This is the name of the Excel file that will be imported
      'xlFilename = "H:\Passport0600FinalB.xls"
      xlFilename=ExcelPath
      
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Dim view As NotesView
      Dim doc As NotesDocument
      Dim row As Integer
      Dim written As Integer
      Set db = session.CurrentDatabase
      Set doc = New NotesDocument(db)
      
 '// Next we connect to Excel and open the file. Then start pulling over the records.
      Dim Excel As Variant
      Dim xlWorkbook As Variant
      Dim xlSheet As Variant
      Print "Connecting to Excel..."
      Set Excel = CreateObject( "Excel.Application.8" )
      Excel.Visible = False '// Don't display the Excel window
      Print "Opening " & xlFilename & "..."
      Excel.Workbooks.Open xlFilename '// Open the Excel file
      Set xlWorkbook = Excel.ActiveWorkbook
      Set xlSheet = xlWorkbook.ActiveSheet
      
 '// Cycle through the rows of the Excel file, pulling the data over to Notes
      Goto Records
      Print "Disconnecting from Excel..."
      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
      Print " " '// Clear the status line
      
      
Records:
      row = 1 '// These integers intialize to zero anyway
      written =0
      
      Print "Starting import from Excel file..."
      
      Do While True '// We use a test a few lines down to exit the loop
Finish:
            With xlSheet
                  row = row + 1
                  
                  Set view= db.GetView("assetlistingviewfornotes")
                  Set doc = db.CreateDocument '// Create a new doc
                  doc.Form = "assets" 'Form name
                  'Update to Fields
                  doc.aclient_x = .Cells(row, 1).Value
                  doc.alocation_x = .Cells( row, 2).Value
                  doc.aslno_x = .Cells( row, 3).Value
                  doc.adesc_x = .Cells(row, 4).Value
                  doc.aquantity_x = .Cells(row, 5).Value
                  doc.assetshost_x="Yes"
                  doc.arem_x=""
                  doc.ajobno_x=""
                  doc.dbpath=""
                  doc.Escape="OK"
                  doc.client_x=.Cells(row, 1).Value
                  
                  Call doc.Save( True, True ) '// Save the new doc
                  written = written + 1
                  k=k+1
'Below line is cool, will print the doc being imported'
                  Print"Document Created:"+Cstr(k)
                  
                  If ExcelPath1= written Then  
                        Goto Done
                  Else
                        Goto Finish
                  End If
                  
            '      If written = 1000 Then
            '            Print written
            '            Print written & " Documents Imported"
            '            Goto Done
            '      Else
            '            Goto Finish
            '      End If
                  
            End With
            
            Print written & " records imported...", doc.assetsjobno_x(0)
            
            
      Loop
      Return
Done:
End Sub

Place this in an agent and call it in a Action button