Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim item As NotesItem
Dim files As Variant
Dim schar As String
Dim doc As NotesDocument
Dim cp As NotesDocument
Dim excelapplication
Dim i
Dim sheet
Set db=ss.CurrentDatabase
files=ws.OpenFileDialog(False,"请选择要导入的excel文件","Ex
Dim ws As New NotesUIWorkspace
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim item As NotesItem
Dim files As Variant
Dim schar As String
Dim doc As NotesDocument
Dim cp As NotesDocument
Dim excelapplication
Dim i
Dim sheet
Set db=ss.CurrentDatabase
files=ws.OpenFileDialog(False,"请选择要导入的excel文件","Ex