如何在Excel中创建状态对话框

Sub ShowStatusDialog()
    Dim statusDialog As Object
    Set statusDialog = CreateObject("WScript.Shell")
    statusDialog.Run "powershell.exe -Command Start-Process -FilePath 'C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe' -ArgumentList '-NoExit','-Command & {Write-Host '正在处理中...'; Start-Sleep 5; Write-Host '处理完成！'}'"
End Sub