关闭所有的excel工作簿（excel的几个实例可能会打开）

我试图关闭所有的excel工作簿，当我发布一个新的personal.xlsb或当用户需要升级到最新版本时。下面是我的代码关闭所有Excel工作簿，但它只是关闭PERSONAL.XLSB当其运行：关闭所有的excel工作簿（excel的几个实例可能会打开）

Public Sub CloseAll() 

Dim wb As Workbook 



For Each wb In Application.Workbooks() 

    wb.Close True ' Or False if you don't want changes saved 

Next wb 

Application.Quit 

End Sub

这里是发布代码，也就是我的personal.xlsb复制到服务器（可能是有用的人，因此在这里发布）

Sub publish() 
    Call Settings.init 'Contains excelMakroVersjon="101" 

    Dim hFile As Long 
    Dim FileContents1 As String 
    Dim versionNumber As String 
    Dim strFile1 As String 


    strFile1 = "Z:\Dokumentstyring\LatestVersion\CopyMacro.bat" 

    Kill strFile1 
    Kill "Z:\Dokumentstyring\LatestVersion\PERSONAL*" 

    versionNumber = Left(excelMakroVersjon, 1) & "." & Right(excelMakroVersjon, Len(excelMakroVersjon) - 1) 

    FileContents1 = "ping -n 5 127.0.0.1 > nul " & vbNewLine _ 
     & "echo f | xcopy /f /y /z ""%APPDATA%\Microsoft\Excel\XLSTART\PERSONAL.XLSB"" ""Z:\Dokumentstyring\LatestVersion\PERSONAL_" & versionNumber & ".XLSB"" " 

    Open strFile1 For Binary As #1 
    Put #1, , FileContents1 
    Close #1 
    Shell "cmd.exe /k " & strFile1 
    Call CloseAll 
End Sub

和这里的代码来检查，如果你有乐特的版本，这也需要使用CLOSEALL方法：

Sub checkLatestVersion() 
    Dim temp, temp2 As Variant 
    Call Settings.init 
    temp = Dir("Z:\Dokumentstyring\LatestVersion\Personal*") 
    temp = Mid(temp, 8, 4) 
    temp2 = val(Replace(temp, ".", "")) 

    If temp2 > val(Settings.excelMakroVersjon) Then 
     Select Case MsgBox("Upgrade to latest Version: " & temp, vbYesNo) 
      Case vbYes 
      Shell "cmd.exe /k Z:\Dokumentstyring\LatestVersion\updateExcel.bat" 
      Call CloseAll 
      Case vbNo 
      'Do nothing. 

     End Select 
    End If 

End Sub

来源

2016-03-01 skatun

你可能想看看下面的Q＆A，因为我相信你的Excel运行的几个实例：http://stackoverflow.com/questions/2971473/can-vba -reach-across-instances-of-excel – Ralph

感谢Ralph，好像有很多代码来关闭所有实例。升级算法在每次启动excel时运行，因此没有工作簿可以打开，发布由我运行，并且我可以手动关闭alll，然后关闭personal.xlsb，所以这意味着我可能宁愿只实现它我生成的批处理文件：'taskkill/f/im Excel.exe' – skatun

试试这个...（请注意，以下代码关闭了一个LSO当前Excel文件）

Dim oServ As Object 
Dim cProc As Variant 
Dim oProc As Object 

Set oServ = GetObject("winmgmts:") 
Set cProc = oServ.ExecQuery("Select * from Win32_Process") 

For Each oProc In cProc 
If oProc.Name = "EXCEL.EXE" Then 
    MsgBox "Close?" 
    errReturnCode = oProc.Terminate() 
End If 
Next

来源

2016-03-01 21:57:22

关闭所有的excel工作簿（excel的几个实例可能会打开）

回答

相关问题