1.创建文件
Dim wordDoc,wordapp As Variant
Dim workspace As New notesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.currentDocument
Set wordapp = CreateObject("Excel.Application")
Call wordapp.sheets.add("E:/f1.xls")
Set worddoc = wordapp.activedocument
Set doc=uidoc.document
wordapp.visible = True
2.打开文件
Dim wordDoc,wordapp As Variant
Dim workspace As New notesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.currentDocument
Set wordapp = CreateObject("Excel.Application")
Call wordapp.sheets.add("E:/f1.xls")
Set worddoc = wordapp.activedocument
Set doc=uidoc.document
wordapp.visible = True
如果你有现成的一个EXCEL工作表,那么不应用 CreateObject,而应用getobject
Set wordapp =getobject("E:/f1.xls")