VB中使用WORD OR EXCEL

这里不讲VB中调用word 或是excel文件（shell命令）。
  首先引用word 或excel
在窗体上设置一个按钮。代码如下：

1. ‘变量声明
   
2. Option Explicit
   
3. Dim xlsApp As Excel.Application
   
4. Dim wrdApp As Word.Application
   
5. ’按钮操作
   
6. ‘excel操作
   
7. Private Sub Command1_Click()
   
8. Set xlsApp = Excel.Application ‘设置应用
   
9. ’显示excel
   
10. xlsApp.Visible = True
    
11. '创建一个新的工作表
    
12. xlsApp.Workbooks.Add
    
13. '在需要的单元格中写入数据
    
14. xlsApp.ActiveCell.Value = ""
    
15. xlsApp.Range("E3").Value = ""
    
16. End Sub
    
17. ’word操作
    
18. Private Sub Command2_Click()
    
19. Set wrdApp = New Word.Application
    
20. With
    
21. '显示 word
    
22. wrdApp.Visible = True
    
23. '创建文件
    
24. wrdApp.Documents.Add
    
25. '增加文本文件
    
26. wrdApp.ActiveDocument.Content.Text = "Hi"
    
27. wrdApp.ActiveDocument.Content.Text = "This is a test example"
    
28. End With
    
29. End Sub

复制代码