Excel宏通过快捷键运行时打开CSV文件后停止的解决方法

嘿，这个问题我之前帮好几个朋友处理过！先给你捋清楚根因：你用ActiveWorkbook的时候，快捷键触发宏的上下文是绑定在PERSONAL.XLSB上的，当第一个CSV打开并成为活动工作簿后，宏的执行上下文可能因为焦点切换被打断，导致后续代码直接停了。但手动从「视图>宏」界面运行时，你是在PERSONAL.XLSB的上下文里触发的，稳定性更强，所以能顺利跑完。

给你改个靠谱的版本，核心思路是不依赖活动工作簿，用对象变量明确控制每个文件，再加上点优化避免干扰：

Sub SaveAsXLSX()
' SaveAsXLSX Shortcut: Ctrl+Shift+W
    Dim wb As Workbook
    Dim csvPath1 As String, csvPath2 As String
    Dim xlsxPath1 As String, xlsxPath2 As String
    
    ' 关闭屏幕刷新，减少焦点切换干扰还能提速
    Application.ScreenUpdating = False
    
    ' 单独定义文件路径，后续改起来更方便
    csvPath1 = "T:\Temp\File1.csv"
    xlsxPath1 = "T:\Temp\File1.xlsx"
    csvPath2 = "T:\Temp\File2.csv"
    xlsxPath2 = "T:\Temp\File2.xlsx"
    
    ' 处理第一个CSV文件
    Set wb = Workbooks.Open(Filename:=csvPath1)
    wb.SaveAs Filename:=xlsxPath1, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    wb.Close SaveChanges:=False ' 已经转存过，无需重复保存
    
    ' 处理第二个CSV文件
    Set wb = Workbooks.Open(Filename:=csvPath2)
    wb.SaveAs Filename:=xlsxPath2, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    wb.Close SaveChanges:=False
    
    ' 恢复屏幕刷新状态
    Application.ScreenUpdating = True
End Sub

关键改动说明： #

• 用wb对象变量代替ActiveWorkbook：不管Excel焦点切换到哪个窗口，宏都能精准操作我们指定打开的工作簿，不会因为窗口切换丢失目标。
• 关闭屏幕刷新：运行时不会跳来跳去，既避免了焦点切换导致的中断，还能大幅提升宏的运行速度。
• 路径单独变量化：以后要修改文件路径时，直接改变量值就行，不用在代码里逐行查找修改。

测试步骤： #

1. 把这段代码替换你原有的宏，保存PERSONAL.XLSB。
2. 确认快捷键（Ctrl+Shift+W）仍绑定到这个SaveAsXLSX宏。
3. 用快捷键触发测试，应该能顺利完成两个文件的转换了！

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