vb调用excel对象的使用实例：使用excel.application与workbook等并保存工作薄

Private Sub Command1_Click()          Dim xlApp As Object     Set xlApp = CreateObject("Excel.Application")        'Dim xlapp As Excel.Application 'Excel对象   ' Dim xlbook As New Excel.Workbook '工作簿    'Dim xlsheet As Excel.Worksheet '工作表                'Dim exlApp As New Excel.Application             'Dim exlBook As Object     'Set exlBook = CreateObject("Excel.Workbook")              'Dim exlBook As New Excel.Workbook         ' Set exlApp = New Excel.Application    xlApp.Visible = True '显示Excel窗口
    Set exlBook = xlApp.Workbooks.Open("d:\testvb\1.xls") 'Excel文件路径及文件名     '向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格     xlApp.Sheets(1).Cells(1, 1) = "11"     xlApp.Sheets(1).Cells(1, 2) = "12"    xlApp.Sheets(1).Cells(2, 1) = "21"     xlApp.DisplayAlerts = False     'exlBook.Close True  '先保存修改再关闭工作簿     xlApp.Save     xlApp.Quit   '关闭Excel      End Sub
注意表的删除与表的添加的方式与方法： Private Sub Command1_Click()     Dim xlApp As Object     Set xlApp = CreateObject("Excel.Application")        'Dim xlapp As Excel.Application 'Excel对象   ' Dim xlbook As New Excel.Workbook '工作簿    'Dim xlsheet As Excel.Worksheet '工作表                  'Dim exlApp As New Excel.Application               'Dim exlBook As Object     'Set exlBook = CreateObject("Excel.Workbook")              ' Dim exlBook As New Excel.Workbook     

   ' Set exlApp = New Excel.Application    xlApp.Visible = True '显示Excel窗口
    Set exlBook = xlApp.Workbooks.Open("d:\testvb\1.xls") 'Excel文件路径及文件名     '向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格     xlApp.sheets(1).cells(1, 1) = "11"     xlApp.sheets(1).cells(1, 2) = "12"     xlApp.sheets(1).cells(2, 1) = "21"     xlApp.sheets(1).cells(3, 4) = "34"     xlApp.DisplayAlerts = False     'exlBook.Close True  '先保存修改再关闭工作簿         xlApp.sheets(2).Delete'表2的删除，即位置处于2号位的表的删除          xlApp.sheets.Add'表的添加，添加后表处于1号位         xlApp.sheets(2).Select'这两句是表位置的调整，使1号位与2号位的表的位置与换     xlApp.sheets(2).Move Before:=xlApp.sheets(1)          xlApp.Save     xlApp.Quit   '关闭Excel End Sub

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！