te paso un ejemplo

Excel.Workbooks.Open xlFilenameGerentes
    Set xlWorkbook = Excel.ActiveWorkbook
    Set xlSheet = xlWorkbook.ActiveSheet
    row = 1
    count = 1
    With xlSheet
        Dim doc As New notesdocument(db)
        While Not .cells(row,1).value=""
            Print Str(count)
            count = count +1
            Set doc = db.CreateDocument '// ' Creamos un nuevo documento
            doc.Form = "F011"
            doc.Catergoria = .Cells( row, 1 ).Value
            doc.Cadena = .Cells( row, 2 ).Value
            Call doc.Save( True, True ) '// Save the new doc
            row = row + 1
        Wend
    End With

saludos