Script Task在Visual Studio运行正常，部署至SQL Server后失败求助

我遇到过不少类似的SSIS部署后操作Excel失败的案例，结合你的代码和报错信息，核心问题基本都是开发环境（Visual Studio）和服务器端运行上下文的差异导致的——毕竟Excel是桌面应用，在服务器后台运行有很多权限和配置限制。下面是具体的排查和解决思路：

1. 账户权限与桌面交互问题 #

SSIS在服务器上运行时，默认使用SQL Server Agent的服务账户（或你指定的代理账户），这个账户通常没有桌面交互权限，而Excel的正常启动依赖桌面会话：

• 解决方法：给运行SSIS包的账户开启允许服务与桌面交互权限（在服务管理器找到SQL Server Agent，右键属性→登录选项卡勾选）；或者创建一个具备桌面交互权限的域账户作为SSIS代理，用这个账户执行包。
• 同时要确保该账户对模板文件所在路径（BrkStTmpFolder）有读写权限，并且路径要用绝对路径——服务器上的相对路径解析和开发环境完全不同，很可能找不到文件。

2. Excel进程清理的优化 #

你当前的代码会杀掉所有Excel进程，这在服务器上既不安全也可能导致冲突：

• 如果服务器上有其他业务在使用Excel，强行杀掉会引发问题；更关键的是，杀进程后没有等待进程完全终止就打开新实例，容易出现资源占用冲突。
• 优化方案：
  • 杀进程后添加等待逻辑，比如Thread.Sleep(2000)（记得导入System.Threading命名空间），确保进程彻底退出；
  • 更精准地清理：记录你自己创建的ExcelApp的进程ID，最后只终止这个进程，而不是所有Excel进程（可以通过ExcelApp.Hwnd获取窗口句柄，再关联到进程ID）。

3. Excel实例初始化顺序调整 #

你的代码里ExcelApp.Visible = False是在打开工作簿后设置的，这可能导致服务器端尝试创建可见窗口失败（因为没有桌面会话）。应该先配置好Excel实例的属性，再打开工作簿：

' 先初始化并配置Excel实例
Dim ExcelApp As New Microsoft.Office.Interop.Excel.Application()
ExcelApp.Visible = False
ExcelApp.DisplayAlerts = False

If CountOfT > 0 Or RowsUnallocated > 0 Then
    Workbook = ExcelApp.Workbooks.Open(BrkStTmpFolder + "NewTemplate.xlsx")
    Workbook.DoNotPromptForConvert = True
Else
    ExcelApp.Quit()
    Exit Sub
End If

另外，操作完成后一定要正确释放COM对象，避免内存泄漏和残留进程：

' 操作完成后的清理步骤
Workbook.Close(SaveChanges:=True)
ExcelApp.Quit()

' 强制释放COM对象，防止残留进程
System.Runtime.InteropServices.Marshal.ReleaseComObject(Workbook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(ExcelApp)
Workbook = Nothing
ExcelApp = Nothing

4. 服务器端Excel环境检查 #

• 确保服务器上安装了和开发环境同版本的Excel，并且安装了对应的Office Interop组件；如果是64位服务器，注意SSIS包的运行位数：如果Excel是32位，必须在SQL Server Agent作业步骤里勾选“使用32位运行时”。
• 手动用运行SSIS包的账户登录服务器，尝试打开模板文件，确认没有格式兼容、密码保护或文件损坏等问题。

5. 捕获真实的错误信息 #

“Exception has been thrown by the Target of an Invocation”是一个包装后的通用错误，你需要获取内部异常才能找到真正的问题。可以在Script Task里添加异常捕获，把内部错误信息写入日志：

Try
    ' 你的所有Excel操作代码
Catch ex As Exception
    Dim errorMsg As String = "Script Task Error: " & ex.Message
    ' 逐层获取内部异常
    Dim innerEx As Exception = ex.InnerException
    While innerEx IsNot Nothing
        errorMsg &= vbCrLf & "Inner Error: " & innerEx.Message
        innerEx = innerEx.InnerException
    End While
    ' 可以写入SSIS日志，或者输出到文本文件
    System.IO.File.WriteAllText("C:\SSIS_Logs\ExcelError.log", errorMsg)
    Throw ' 重新抛出异常让SSIS捕获
End Try

这样就能看到具体的错误原因，比如“文件访问被拒绝”“找不到Excel组件”等，更精准地解决问题。

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