Private Sub Command1_Click()
Dim xlApp AsObject
Set xlApp =CreateObject("Excel.Application")
'Dim xlapp AsExcel.Application 'Excel對(duì)象
' Dim xlbook As New Excel.Workbook'工作簿
'Dim xlsheet AsExcel.Worksheet '工作表
'Dim exlApp As NewExcel.Application
'Dim exlBook AsObject
'Set exlBook =CreateObject("Excel.Workbook")
'Dim exlBook As NewExcel.Workbook
' Set exlApp = NewExcel.Application
xlApp.Visible = True'顯示Excel窗口
Set exlBook =xlApp.Workbooks.Open("d:\testvb\1.xls") 'Excel文件路徑及文件名
'向Excel表中寫入數(shù)據(jù)，Sheets(1)為第1個(gè)工作表，Cells(行號(hào),列號(hào))是單元格
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 '先保存修改再關(guān)閉工作簿
xlApp.Save
xlApp.Quit '關(guān)閉Excel
End Sub
注意表的刪除與表的添加的方式與方法：
Private Sub Command1_Click()
Dim xlApp AsObject
Set xlApp =CreateObject("Excel.Application")
'Dim xlapp AsExcel.Application 'Excel對(duì)象
' Dim xlbook As New Excel.Workbook'工作簿
'Dim xlsheet AsExcel.Worksheet '工作表
'Dim exlApp As NewExcel.Application
'Dim exlBook AsObject
'Set exlBook =CreateObject("Excel.Workbook")
' Dim exlBook As NewExcel.Workbook
' Set exlApp = NewExcel.Application
xlApp.Visible = True'顯示Excel窗口
Set exlBook =xlApp.Workbooks.Open("d:\testvb\1.xls") 'Excel文件路徑及文件名
'向Excel表中寫入數(shù)據(jù)，Sheets(1)為第1個(gè)工作表，Cells(行號(hào),列號(hào))是單元格
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 '先保存修改再關(guān)閉工作簿
xlApp.sheets(2).Delete'表2的刪除，即位置處于2號(hào)位的表的刪除
xlApp.sheets.Add'表的添加，添加后表處于1號(hào)位
xlApp.sheets(2).Select'這兩句是表位置的調(diào)整，使1號(hào)位與2號(hào)位的表的位置與換
xlApp.sheets(2).MoveBefore:=xlApp.sheets(1)
xlApp.Save
xlApp.Quit '關(guān)閉Excel
End Sub
