编写Excel宏实现Chrome启停并返回表格时触发运行时错误13，求排查

错误13（类型不匹配）的直接原因 #

你的代码里Application.Wait (Now + TimeValue("0:00:00:30"))这一行存在格式错误：TimeValue仅接受"hh:mm:ss"格式的参数，你多写了一个冒号（写成了0:00:00:30），导致VBA无法解析为合法的时间类型，直接触发类型不匹配错误。

其他潜在问题及优化建议 #

除了这个直接错误，代码还有几个可能导致异常的点：

• Chrome启动路径：直接写chrome.exe可能因系统环境变量配置问题导致程序找不到，建议搭配start命令或使用完整路径
• SendKeys的不可靠性：SendKeys依赖当前窗口焦点，很容易因系统延迟或其他窗口干扰失效，关闭Chrome更可靠的方式是通过进程管理命令

修正后的代码 #

Private Sub test()
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")
    
    ' 用start命令启动Chrome，确保能正确定位程序
    objShell.Run "start chrome.exe www.google.com"
    
    ' 修正Wait的时间格式，等待30秒
    Application.Wait Now + TimeValue("00:00:30")
    
    ' 通过taskkill命令关闭Chrome，比SendKeys更稳定
    objShell.Run "taskkill /im chrome.exe /f", , True
    
    ' 激活Excel窗口，替代SendKeys切换窗口的不可靠方式
    AppActivate Application.Caption
End Sub

代码说明 #

• 用start命令启动Chrome，避免路径找不到的问题
• 把TimeValue的参数改成正确的"00:00:30"，解决类型不匹配错误
• 用taskkill命令强制关闭Chrome，不会因为焦点问题失效
• 用AppActivate直接激活Excel窗口，替代SendKeys切换窗口的不可靠操作

内容的提问来源于stack exchange，提问作者Hunt86