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