分步过程：

>使用sql Scripts部分下给出的脚本创建三个名为dbo.TablesList,dbo.Source1和dbo.Source2的表.
>使用屏幕截图#1中显示的数据填充表dbo.TablesList,dbo.Source1和`dbo.Source2“.
>在SSIS包的连接管理器上,创建名为sqlServer的OLE DB连接以连接到sql Server实例,如屏幕截图#2所示.
>在包中,创建4个变量,如屏幕截图#3所示.
>在控制流中,在Foreach循环容器中放置一个执行sql任务,一个Foreach循环容器和一个脚本任务,如屏幕截图#4所示.
>配置执行sql任务,如屏幕截图#5和#6所示.
>配置Foreach循环容器,如屏幕截图#7和#8所示.
>使用脚本任务代码部分下给出的代码替换脚本任务中的Main方法.
>屏幕截图#9显示了包执行.
>屏幕截图#10 – #12显示使用脚本任务代码从SSIS导出的文件.

希望有所帮助.

sql脚本：

CREATE TABLE [dbo].[Source1](
    [Id] [int] IDENTITY(1,1) NOT NULL,[ItemNumber] [varchar](20) NOT NULL,[ItemName] [varchar](50) NOT NULL,CONSTRAINT [PK_Source1] PRIMARY KEY CLUSTERED ([Id] ASC)) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Source2](
    [Id] [int] IDENTITY(1,[Country] [varchar](20) NOT NULL,[StateProvince] [varchar](50) NOT NULL,CONSTRAINT [PK_Source2] PRIMARY KEY CLUSTERED ([Id] ASC)) ON [PRIMARY]
GO

CREATE TABLE [dbo].[TablesList](
    [Id] [int] IDENTITY(1,[TableName] [varchar](50) NOT NULL,[FilePath] [varchar](255) NOT NULL,CONSTRAINT [PK_Tables] PRIMARY KEY CLUSTERED ([Id] ASC)) ON [PRIMARY]
GO

脚本任务代码:(使用下面给出的代码替换脚本任务中的Main()方法)

可以在SSIS 2005及更高版本中使用的VB Main()方法代码：

Public Sub Main()

    Dim varCollection As Variables = Nothing

    Dts.VariableDispenser.LockForRead("User::TableName")
    Dts.VariableDispenser.LockForRead("User::FileName")
    Dts.VariableDispenser.LockForRead("User::Delimiter")
    Dts.VariableDispenser.GetVariables(varCollection)

    Dim fileName As String = varCollection("User::FileName").Value.ToString()
    Dim query As String = "SELECT * FROM " & varCollection("User::TableName").Value.ToString()
    Dim delimiter As String = varCollection("User::Delimiter").Value.ToString()

    Dim writer As StreamWriter = Nothing
    Dim connection As OleDbConnection = New OleDbConnection(Dts.Connections("sqlServer").ConnectionString)
    Dim command As OleDbCommand = Nothing
    Dim reader As OleDbDataReader = Nothing

    Try
        If File.Exists(fileName) Then
            File.Delete(fileName)
        End If

        connection.Open()
        command = New OleDbCommand(query,connection)
        reader = command.ExecuteReader()

        If reader.HasRows Then

            writer = New System.IO.StreamWriter(fileName)
            Dim row As Integer = 0
            While reader.Read()

                Dim header As Integer = 0
                Dim counter As Integer = 0
                Dim fieldCount As Integer = reader.FieldCount - 1

                If row = 0 Then
                    While header <= fieldCount
                        If header <> fieldCount Then
                            writer.Write(reader.GetName(header).ToString() & delimiter)
                        Else
                            writer.WriteLine(reader.GetName(header).ToString())
                        End If
                        header += 1
                    End While
                End If

                While counter <= fieldCount
                    If counter <> fieldCount Then
                        writer.Write(reader(counter).ToString() & delimiter)
                    Else
                        writer.WriteLine(reader(counter).ToString())
                    End If
                    counter += 1
                End While

                row += 1
            End While
        End If
    Catch ex As Exception
        Throw ex
    Finally
        connection.Close()
        writer.Close()
    End Try

    Dts.TaskResult = ScriptResults.Success

End Sub

截图#1：

截图#2：

截图#3：

截图#4：

截图#5：

截图#6：

截图#7：

截图#8：

截图#9：

截图#10：

截图#11：

截图#12：