DTS语句有下划线,因为它们无法识别。这是一个较旧的生产服务器,所以我不喜欢玩安装,但似乎缺少一些东西。 SQL 2008R2和SQL 2012,VS 2010,Excel 2013,Server 2012 R2。
#Region "Imports"
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.IO
Imports System.Data.OleDb
#End Region
Public Class ScriptMain
Public Sub Main()
Dim fileToTest As String
fileToTest = Dts.Variables("ExcelFile").Value.ToString
If File.Exists(fileToTest) Then
Dts.Variables("ExcelFileExists").Value = True
Else
Dts.Variables("ExcelFileExists").Value = False
End If
Dts.TaskResult = ScriptResults.Success
End Sub
End Class