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 Binding と 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 に答える