如何使用Microsoft.Office.Interop.Excel在SSIS 2013中找到VB.Net的正确语法？

Question

我正在使用SSIS将数据从Excel 2013加载到SQL Server 2014.一列的数据超过255个字符。 使用源Excel任务只会读取前255个字符，截断其余部分。

我写了一个.vb脚本来打开文件并将其保存为csv，同时保持所有char超过255，但是我还没有找到如何在将其保存为csv文件之前激活指定的工作表。

我决定使用Microsoft.Office.Interop.Excel将代码转换为VB.Net来访问该文件，但是我仍然无法获得正确的语法。 我使用Microsoft.Office.Interop.Excel找不到VB.Net的任何内容。

Public Sub Main()

    Dim FilePath As String = "I:\DSS Clarity\Clarity Technical\METADATA MINING\INPUT_SAP_BO_UNIVERSE_FILES\"
    Dim FileName As String = "UNV Universes.xlsx"


    Dim excel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application
    excel.DisplayAlerts = False

    ' Open Excel spreadsheet.
    Dim wb As Workbook
    wb = excel.Workbooks.Open(FilePath & FileName)

    'wb.Worksheets.Select("Tables")    <-- need to make the Tables sheet active - how do i do that?


    wb.SaveAs(FilePath & Left(FileName, InStrRev(FileName, ".")) & "csv", 24)
    wb.Close()

    Dts.TaskResult = ScriptResults.Success
End Sub

我希望看到以csv格式保存的指定工作表的所有数据，而不仅仅是一个字段的max 255 char的excel约束。

Answer 1

我对您的代码进行了以下编辑：

1. 我在保存之前选择了第一张工作表
2. 我编辑了SaveAs()函数参数
3. 您必须使用脚本末尾的excel.Quit()命令关闭应用程序

Public Sub Main()

    Dim FilePath As String = "I:\DSS Clarity\Clarity Technical\METADATA MINING\INPUT_SAP_BO_UNIVERSE_FILES\"
    Dim FileName As String = "UNV Universes.xlsx"


    Dim excel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application
    excel.DisplayAlerts = False

    ' Open Excel spreadsheet.
    Dim wb As Workbook
    wb = excel.Workbooks.Open(FilePath & FileName)

    wb.Worksheets(0).Select(Type.Missing) 'Or try wb.Worksheets(0).Select()

    wb.SaveAs(FilePath & Left(FileName, InStrRev(FileName, ".")) & "csv", Excel.XlFileFormat.xlCSV,Excel.XlSaveAsAccessMode.xlNoChange)
    wb.Close(false)
    excel.Quit()

    Dts.TaskResult = ScriptResults.Success

End Sub