lotus中操作excel--引入excel数据至notes中

Const ExcelName="d:档案检索.xls"
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set doc = New NotesDocument(db)
  Dim item As NotesItem
  Dim One As String
  Dim row As Integer
  Dim written, records,ver  As Integer
  Dim FName As String
  Dim VName As String
  Dim xlFilename As String
  On Error Goto Error_call
 
  ''Set view = db.GetView("Import" 
 
  FormName= "frmhanjian" 
 
 
 
 
  Dim Excel As Variant
  Dim xlWorkbook As Variant
  Dim xlSheet As Variant
 
  Set Excel = CreateObject( "Excel.Application.9"  ''
  Excel.Workbooks.Open ExcelName ''
  Set xlWorkbook = Excel.Workbooks.Item(1)
  Set xlSh