您的位置：首页 > 移动开发

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

2016-11-15 15:33 465 查看

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

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航