SendKeys "^s"无法保存文件，替代ActiveWorkbook.Save遇兼容问题求助

核心问题分析 #

SendKeys完全依赖窗口焦点和系统键盘模拟，稳定性极差——任何焦点切换、系统后台进程干扰都可能导致它失效。而ActiveWorkbook.Save引发其他软件报错，本质是Excel默认保存CSV时的编码/格式设置和目标软件的预期不匹配（手动保存时你可能选过适配的编码，自动保存用了默认值）。

替代SendKeys的可靠方案 #

直接用SaveAs指定CSV格式和编码，彻底规避SendKeys的不稳定问题，同时解决其他软件的读取报错：

方案1：保存为UTF-8编码的CSV（兼容多数现代软件）

Sub Copy_selected_to_CIM_Item()
    Dim wb As Workbook
    Set wb = Workbooks("ITEM.csv")
    
    wb.Activate
    Range("A2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    ' 用UTF-8编码覆盖保存CSV，避免编码不兼容
    wb.SaveAs Filename:=wb.FullName, FileFormat:=xlCSVUTF8, Local:=False
End Sub

方案2：适配本地系统分隔符的CSV（针对依赖特定分隔符的旧软件）

如果目标软件只认本地系统默认的分隔符（比如中文系统的逗号/分号差异），用Local:=True：

wb.SaveAs Filename:=wb.FullName, FileFormat:=xlCSV, Local:=True

若非要修复SendKeys（不推荐） #

如果坚持要用SendKeys，尝试以下步骤提升稳定性：

• 在SendKeys前强制激活Excel窗口：AppActivate wb.Windows(1).Caption
• 增加短延迟确保粘贴操作完成：Application.Wait Now + TimeValue("00:00:00.5")
• 关闭可能拦截键盘输入的软件（如杀毒工具、窗口管理插件）

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