sql-server - ssisを使用してxls 2タブ区切りファイルのグループを変換するには?

Question

ssis を使用して xls ファイルのグループをタブ区切りファイルに変換する方法は?

Google検索でこれを行うためのスクリプトを入手しました.ssisを使用してこれを達成する方法を教えてください

    Dim objFSO, objFile, objFileTSV
    Dim strLine, strNewLine, strNewText
    Dim FileNameLength, LineLength, NewFileName, Linepos, Quote, QuoteCount, TotalFilesConverted

    objFSO = CreateObject("scripting.filesystemobject")
    strCurPath = objFSO.GetAbsolutePathName(".")
    TotalFilesConverted = 0

    For Each objFile In objFSO.getfolder(strCurPath).Files
        If UCase(Right(objFile.Name, 4)) = ".CSV" Then
            FileNameLength = Len(objFile.Name) - 4
            NewFileName = Left(objFile.Name, FileNameLength) & ".tsv"
            objFile = objFSO.OpenTextFile(objFile, 1)

            Do Until objFile.AtEndOfStream
                strLine = objFile.ReadLine
                LineLength = Len(strLine)
                Linepos = 1
                strNewLine = ""
                Quote = False
                QuoteCount = 0

                Do While Linepos <= LineLength
                    If Mid(strLine, Linepos, 1) = "," And Not Quote Then
                        strNewLine = strNewLine + vbTab
                        Quote = False
                    ElseIf Mid(strLine, Linepos, 1) = Chr(34) Then
                        QuoteCount = QuoteCount + 1
                        If QuoteCount = 2 And Linepos <> LineLength Then
                            If Mid(strLine, Linepos, 2) = Chr(34) & Chr(34) Then
                                strNewLine = strNewLine + Chr(34)
                                Linepos = Linepos + 1
                                Quote = True
                                QuoteCount = 1
                            Else
                                Quote = False
                                QuoteCount = 0
                            End If
                        Else
                            Quote = True
                        End If
                    Else
                        strNewLine = strNewLine + Mid(strLine, Linepos, 1)
                    End If
                    Linepos = Linepos + 1
                Loop
                strNewText = strNewText & strNewLine & vbCrLf
            Loop
            objFile.Close()

            objFileTSV = objFSO.CreateTextFile(NewFileName)
            objFileTSV.WriteLine(strNewText)
            TotalFilesConverted = TotalFilesConverted + 1
            strNewText = ""
            objFileTSV.Close()

        End If
    Next

    MsgBox(CStr(TotalFilesConverted) + " Files Converted from CSV to TSV.")

これはスクリプトタスクで使用できることが理解されています..しかし、いくつかの手がかりを教えてください