使用VB的<em>ole控件</em>插入excel，如何调用不同的sheet

希望能帮到你

Dim xlApp As Object ' Excel.Application
Dim xlBook As Object ' Excel.Workbook
Dim xlSheet As Object 'Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlApp.Visible = False
Set xlSheet = xlBook.Worksheets(1)

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "/test.xls") '打开已经存在的test.xls工件簿文件
Set xlSheet = xlBook.Worksheets(1) '设置e79fa5e98193e78988e69d83330活动表

.......
.......

xlSheet.SaveAs App.Path & "/test.xls" '保存文件
xlBook.Close
xlApp.Quit
Set xlApp = Nothing

使用VB的ole控件插入excel，如百何调用不同的sheet

在求和公式度的单元格区域前加回上表名即可。如：=SUM(Sheet1!A1:A20)。
如果是楼答上ssg365的举例，公式为=SUM(Sheet1:Sheet2!A1)更好
excel导入vb 实例可提供

sizemode设为 strech，设为Clip!，cells四周为空白，个数仍然固定。