1

以下是使用 VB.net 的 SSIS 脚本任务中

我已经阅读了这个错误,似乎这行有问题:worksheet = CType(workbook.Sheets(4), Excel.Worksheet)

我的代码如下。我认为对于这里更有经验的人来说这将是简单的。

我的代码有错误

文本:

Public Sub Main()
       Dim excel As New Excel.Application
        Dim filename As String = "S:\UK\Clients\Direct\xxxxxxx.xls"

    excel.Visible = True
    excel.DisplayAlerts = False

    Dim workbook As Excel.Workbook
    workbook = excel.Workbooks.Open(filename, , False) 'True = ReadOnly

    Dim worksheet As Excel.Worksheet
    worksheet = CType(workbook.Sheets(4), Excel.Worksheet)


    worksheet.Rows(1).delete()








    Dts.TaskResult = ScriptResults.Success
End Sub
4

1 回答 1

2

Option Strict Off在代码顶部添加,这将允许后期绑定。

要了解 Early 和 Late Binding ,请参阅此处

您可以替换此语句

worksheet.Rows(1).delete()

Dim rw As Excel.Range
rw = CType(worksheet.Rows(1), Excel.Range)
rw.Delete()

并在顶部设置 Option Strict On

您的所有代码都将被提前绑定。希望这可以帮助

于 2013-07-05T14:34:50.563 回答