【发布时间】:2018-03-21 16:56:02
【问题描述】:
我正在尝试使用 SSIS 上的脚本任务删除 Excel 上的一些内容范围(A2:BC2000),或者你们是否提供了任何替代方法。 这是我使用的代码
Public Sub Main()
Dim Wexcel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim Wb As Workbook = Wexcel.Workbooks.Open("C:\Users\Shawn\Documents\Depart.xlsx")
Dim wf As WorksheetFunction = Wexcel.WorksheetFunction
Dim sheet As Worksheet
For Each sheet In Wexcel.Worksheets
If wf.CountA(sheet.Range("A2:BC20000").Value) > 0 Then
Wexcel.DisplayAlerts = False
sheet.Delete()
Wexcel.DisplayAlerts = True
End If
Next sheet
Dts.TaskResult = ScriptResults.Success
End Sub
如果我用这个脚本任务运行我的包,我会在下面收到一个错误
谁能解决这个问题?
【问题讨论】:
-
只是一个建议 - 您的脚本是否有可能尝试删除所有工作表? - 这将导致错误,因为必须至少剩下一个。
-
你的权利!!这是我的错,我只是删除了所有的床单。谢谢你的帮助!!!
标签: excel ssis script-task vba