vb调用execl

VB中用程序处理WORD和 EXCEL的问题，我把我的经验在这里描述一下，希望对大家有帮助。关于在VB中对WORD或 EXCEL进行编程处理，一般可以通过录制新宏的方法获得WORD或 EXCEL中的VBA代码，然后再将代码剪贴到VB程序中去，具体执行步骤用下面的 EXCEL例子说明一下：

例：我们要在A1的地方输入"姓名"，B1的地方输入"工资"，然后A2输入张三，B2输入1000，。。。，最后在A5输入合计，并在B5计算出全部工资。

1）首先打开 EXCEL，选择菜单[工具]—[宏]—[录制新宏]

2）在A1格中输入：姓名；B1格中输入：工资；A2输入：张三；B2输入：1000；A3输入：李四；B3输入：1000；。。。A5输入：合计，并在B5输入：=SUM(B2:B4)

3）选择停止[宏]

4）选择菜单[工具]—[宏]—[Visual Baisic 编辑器]，这时为VBA的调试环境（几乎和VB的一样），然后打开“模块1”的代码窗口，就可以看到如下代码：

Sub 宏1()
'
' 宏1 Macro
' zhouch 记录的宏 2004-9-13
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "姓名"
Range("B1").Select
ActiveCell.FormulaR1C1 = "工资"
Range("A2").Select
ActiveCell.FormulaR1C1 = "张三"
Range("B2").Select
ActiveCell.FormulaR1C1 = "1000"
Range("A3").Select
ActiveCell.FormulaR1C1 = "李四"
Range("B3").Select
ActiveCell.FormulaR1C1 = "2000"
Range("A4").Select
ActiveCell.FormulaR1C1 = "王五"
Range("B4").Select
ActiveCell.FormulaR1C1 = "1500"
Range("A5").Select
ActiveCell.FormulaR1C1 = "合计"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
End Sub

5）在VB中新建一个工程，加1个Command控件，并在VB的菜单[工程]—[引用]下添加引用“Microsoft Excel 9.0 Object Library”，再添加如下 EXCEL调用的框架代码：

Private Sub Command1_Click()
Dim Ex As Excel.Application
Dim ExwBook As Excel.Workbook
Dim ExSheet As Excel.Worksheet
On Error Resume Next
'不带第一个参数调用 Getobject 函数将
'返回对该应用程序的实例的引用。
'如果该应用程序不在运行，则会产生错误。
Set Ex = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
    Err.Clear '如果发生错误则要清除 Err 对象。
    Set Ex = CreateObject("Excel.Application") '应用程序不在运行，则建立
End If
On Error GoTo 0
Set ExwBook = Nothing
Set ExSheet = Nothing
Set ExwBook = Ex.Workbooks().Add
Set ExSheet = ExwBook.Worksheets("sheet1")
'执行 EXCEL中的VBA代码
With Ex
'此处剪贴 Excel中的代码，并在每句前加一个点

End With
'保存.xls
'ExwBook.SaveAs "c:test.xls"

ExSheet.Application.Visible = True    '显示excel表格
ExSheet .PrintPreview                '预览
ExSheet .DisplayAlerts = False         '退出时不提示保存
ExwBook.Close False
'退出 excel
Ex.Quit
Set Ex = Nothing
End Sub

6）将 EXCEL中的VBA代码剪贴到VB程序中，并在每句前添加1个.，就得到如下的VB程序：

Private Sub Command1_Click()
Dim Ex As Excel.Application
Dim ExwBook As Excel.Workbook
Dim ExSheet As Excel.Worksheet
On Error Resume Next
'不带第一个参数调用 Getobject 函数将
'返回对该应用程序的实例的引用。
'如果该应用程序不在运行，则会产生错误。
Set Ex = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear '如果发生错误则要清除 Err 对象。
Set Ex = CreateObject("Excel.Application") '应用程序不在运行，则建立
End If
On Error GoTo 0
Set ExwBook = Nothing
Set ExSheet = Nothing
Set ExwBook = Ex.Workbooks().Add
Set ExSheet = ExwBook.Worksheets("sheet1")
'执行 EXCEL中的VBA代码
With Ex
'此处剪贴 Excel中的代码，并在每句前加一个点
.Range("A1").Select
.ActiveCell.FormulaR1C1 = "姓名"
.Range("B1").Select
.ActiveCell.FormulaR1C1 = "工资"
.Range("A2").Select
.ActiveCell.FormulaR1C1 = "张三"
.Range("B2").Select
.ActiveCell.FormulaR1C1 = "1000"
.Range("A3").Select
.ActiveCell.FormulaR1C1 = "李四"
.Range("B3").Select
.ActiveCell.FormulaR1C1 = "2000"
.Range("A4").Select
.ActiveCell.FormulaR1C1 = "王五"
.Range("B4").Select
.ActiveCell.FormulaR1C1 = "1500"
.Range("A5").Select
.ActiveCell.FormulaR1C1 = "合计"
.Range("B5").Select
.ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
End With
'保存.xls
ExwBook.SaveAs "c:test.xls"
ExwBook.Close False
'退出 excel
Ex.Quit
Set Ex = Nothing
End Sub

7）运行以上程序，并按“Command1”按钮，就会在C盘根目录下生成一个 EXCEL文件：test.xls，打开看一下，是不是我们想要的啊？