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