VB编程打开和关闭EXCEL文件

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim xlrange As Excel.Range
'上面为公共变量
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application") '第一层
Set xlbook = xlapp.Workbooks.Open("d:\123.xlsx")
xlapp.Visible = True
End Sub
Private Sub Command2_Click()
xlbook.Close
End Sub

Dim EApp As Object‘定义一个全局变量
Private Sub CommandButton1_Click()'打开
Set EApp = CreateObject("Excel.Application")
EApp.Visible = True
End Sub

Private Sub CommandButton2_Click()'关闭
If Not EApp Is Nothing Then
EApp.Quit
End If
End Sub

直接按ALT+F11不就行了。
或者点击左上角的圆形按钮，”常用“第三行”在功能区显示开发工具选项卡“勾上，在开发工具选项卡左边第一个按钮就是~