Можно попробовать создать вообще новый Transformation Task - возможно тогда произойдет автоматический маппинг входных/выходных столбцов (ведь такое же происходит в ручном режиме)

Не знаю что меня дернуло использовать одну только строчку из примера в BOL, но у меня (правда SQL2000) все заработало


Dim dtsPackage
Set dtsPackage = DTSGlobalVariables.Parent

Dim dtsDataPumpTask, dtsTransformation, dtsCustomTask
'Я для быстроты проверки сразу подставляю имя Task, а не ищу его по description
Set dtsDataPumpTask = dtsPackage.Tasks("DTSTask_DTSDataPumpTask_1")
Set dtsCustomTask = dtsDataPumpTask.CustomTask
msgbox dtsCustomTask.Properties("SourceObjectName").Value

Dim dtsSourceColumn, dtsDestinationColumn
'Список всех Transformation
For Each Transformation In dtsCustomTask.Transformations
Set dtsTransformation = Transformation
msgbox dtsTransformation.Name
' Список всех SourceColumn
For Each SourceColumn In dtsTransformation.SourceColumns
Set dtsSourceColumn = SourceColumn
msgbox dtsSourceColumn.Name
Next

' Список всех DestinationColumn
For Each DestinationColumn In dtsTransformation.DestinationColumns
Set dtsDestinationColumn = DestinationColumn
msgbox dtsDestinationColumn.Name
Next
Next


Поможет это вам ?

Еще вариант - не создавать Transformation для каждого столбца, а создать один ActiveX Script Transformation, в которм обрабатывать все столбцы разом. Тогда для новой таблицы вообще нет надобности обрабатывать каждый столбец - достаточно заменить текст ActiveX Script, а список столбцов для таблицы источника получать используя стандартные способы.

PS
Извиняюсь, если говорю про что-то, чего нет в SQL Server 7.0