【VB】VB操作Excel相关处理

Option Explicit
Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim xlChart As Excel.Chart     ' Excel Chart
'我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。
Private Sub Excel_Out_Click()
    Dim i, j As Integer
    Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
    'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件
    Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
    'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
    'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
   
    xlapp.Visible = True '设置EXCEL对象可见（或不可见）
    xlapp.Caption = "VB打开Excel"
   
    Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''
    ''~~~当前工作簿的第一页,这里也可以换成“表名”
   
    xlsheet.Range(Cells(6, 1), Cells(6, 10)).Merge