vb怎样打开excel关闭再打开

Question

如题所述

Answer 1

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

Answer 2

我遇我解决案杀进程 Private Sub Command一_Click()    Kill ("EXCEL.EXE")'调用     End Sub Private Sub Kill(str As String)  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv二")  Set colProcessList = objWMIService.ExecQuery("Select * from Win三二_Process Where Name='" & str & "'")  For Each objProcess In colProcessList    objProcess.Terminate '结束进程  Next  Set objProcess = Nothing  Set colProcessList = Nothing  Set objWMIService = Nothing End Sub