无法从Excel VBA编辑器（Immediate Window）粘贴文本至MS Edge求助

太懂这种无语的感觉了——自家生态里的产品居然在剪贴板这个基础功能上掉链子，尤其是你还靠这个流程来处理SQL语句，肯定急坏了。我之前帮同事排查过类似的问题，给你几个亲测有效的解决思路：

• 重置系统剪贴板缓存
  有时候剪贴板的临时缓存会出现异常，哪怕都是微软应用之间交互也会出问题。按下Win + V打开剪贴板历史记录，点击右上角的三个点，选择「清空所有」，然后重新复制VBA立即窗口的文本再尝试粘贴到Edge。很多时候这个简单操作就能搞定。

• 用纯文本中转绕过格式冲突
  VBA立即窗口复制的文本可能带有一些隐藏的格式标记，Edge对这些标记的处理逻辑和其他浏览器不一样。你可以先把内容粘贴到系统自带的记事本（Notepad）里，再从记事本复制后粘贴到Edge——记事本会自动清除所有格式，只保留纯文本，完美绕过格式兼容问题。

• 检查Edge的剪贴board权限设置
  有时候Edge的安全设置会拦截特定来源的剪贴board内容。打开Edge的「设置」→「隐私、搜索和服务」，向下滚动到「权限」板块，找到「剪贴board」选项，确保允许网站访问剪贴board。另外也可以暂时关闭「增强安全性模式」试试，这个模式偶尔会过度限制剪贴board操作。

• 从VBA源头直接复制纯文本
  如果你经常需要做这个操作，不如直接在VBA里把文本以纯文本格式复制到剪贴board，彻底绕开立即窗口的格式问题。比如写一段简单的宏：

  Sub CopySQLAsPlainText()
      Dim targetSQL As String
      ' 这里可以替换成你要复制的SQL语句，或者从变量/立即窗口获取内容
      targetSQL = "SELECT * FROM YourTable WHERE Condition = 1"
      
      ' 创建纯文本剪贴板对象
      With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
          .SetText targetSQL
          .PutInClipboard
      End With
  End Sub
  

  运行这个宏后，直接去Edge粘贴就可以了，完全不用再通过立即窗口中转。

• 更新Edge和Office到最新版本
  这种跨应用的兼容性bug很多时候是旧版本的问题，微软后续的更新会修复。打开Edge的「设置」→「关于Microsoft Edge」，它会自动检查并安装更新；Office则打开「文件」→「账户」→「更新选项」→「立即更新」，把两个软件都更到最新版后再测试。

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