将PowerShell SQL执行脚本嵌入VBA直接调用失败，求解决方案

你的问题主要出在PowerShell命令的引号转义和参数格式错误上，我来帮你一步步修正：

核心问题分析 #

1. 你在Shell命令里重复调用了powershell.exe，只需要一次即可
2. -Command参数后的脚本内容必须用引号包裹，否则PowerShell会把脚本拆分成多个参数解析
3. VBA中要表示PowerShell里的双引号，需要用**两个双引号""**来转义
4. PowerShell的字符串如果用单引号'，里面的变量（比如$Server）不会被解析，所以连接字符串要改用双引号

修正后的完整代码 #

Public Sub Script2()
    Dim ScriptText As String
    
    ' 构建PowerShell脚本内容，注意VBA里用""转义双引号
    ScriptText = "$Connection = New-Object System.Data.SqlClient.SqlConnection;" & vbCrLf & _
                 "$Server = ""*****"";" & vbCrLf & _
                 "$Database = ""****"";" & vbCrLf & _
                 "$User = ""****"";" & vbCrLf & _
                 "$Pwd = ""****"";" & vbCrLf & _
                 "$Connection.ConnectionString = ""Server= $Server; Database= $Database; Integrated Security= False; uid= $User; Password= $Pwd;"";" & vbCrLf & _
                 "$Connection.Open();" & vbCrLf & _
                 "[string]$Query = Get-Content ""C:\Users\****\Desktop\testSQL.sql"";" & vbCrLf & _
                 "$cmd = $Connection.CreateCommand();" & vbCrLf & _
                 "$cmd.CommandText = $Query;" & vbCrLf & _
                 "if ($cmd.ExecuteNonQuery() -ne -1) { Write-Host ""Failed"" };" & vbCrLf & _
                 "$Connection.Close();"
    
    ' 调用PowerShell，注意-Command后用""把整个脚本包起来，同时处理VBA的引号转义
    Call Shell("powershell.exe -ExecutionPolicy Bypass -noexit -Command """ & ScriptText & """", vbNormalFocus)
End Sub

关键修改点说明 #

• 把PowerShell里的单引号全部换成VBA转义后的双引号""，确保PowerShell能正确解析变量（比如$Server）
• 整个PowerShell脚本用"""包裹（VBA里三个双引号：前后两个表示包裹的引号，中间的""转义成一个双引号）
• 移除了重复的powershell.exe调用，简化命令参数
• 给每一行PowerShell代码末尾加上分号;，避免换行导致的语法问题
• 把echo换成更规范的Write-Host（两者功能相近，但Write-Host是PowerShell推荐的写法）

这样修改后，VBA就能直接把PowerShell代码嵌入字符串执行，不需要依赖外部脚本文件了。

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