Bueno este es el código que uso para exportar los datos que se me están duplicando; paso como parámetros a la función el nombre del servidor, el usuario, la contraseña, el Id del paquete, el Id de versión del paquete, el nombre del paquete, la ruta donde está ubicado el archivo DTS y la carpeta o ruta destino donde se desargara el paquete... espero me puedan ayudar en esto...
Public Function EjecutarPackage_Descarga(Servidor As String, Usuario As String, Contraseña As String, _
ByVal IDPaquete As String, ByVal IDVersion As String, Nombre_Paquete As String, Ruta_Paquete As String, Destino_Archivo As String) As Boolean
Dim objPackage As DTS.Package2
Dim objStep As DTS.Step
Dim objTask As DTS.Task
Dim objExecPkg As DTS.ExecutePackageTask
'Dim objConnection As DTS.Connection2
Dim Isql As String
On Error GoTo Error_Ejecucion_Paquete
Set objPackage = New DTS.Package
'Set mobjPkgEvents = objPackage
objPackage.FailOnError = True
'DTSExecutePackageTask
'Create the step and task. Specify the package to be run, and link the step to the task.
Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")
'Recuperamos el Paquete del Archivo DTS para alterar el Destino
objPackage.LoadFromStorageFile Ruta_Paquete, "", IDPaquete, IDVersion, Nombre_Paquete
'Cambiamos la Ruta del Origen del Archivo
objPackage.Connections(1).DataSource = Servidor
'Cambiamos la Ruta del Destino del Archivo
objPackage.Connections(2).DataSource = Destino_Archivo
'Guardamos los cambios en el Paquete.
'objPackage.SaveToStorageFile _
Ruta_Paquete, , , , True
Set objExecPkg = objTask.CustomTask
With objExecPkg
.ServerName = Servidor
.ServerUserName = Usuario
.ServerPassword = Contraseña
.PackageID = IDPaquete
.VersionID = IDVersion
.FileName = Ruta_Paquete
.Name = "ExecPkgTask"
End With
With objStep
.TaskName = objExecPkg.Name
.Name = "ExecPkgStep"
.ExecuteInMainThread = True
End With
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask
'Run the package and release references.
objPackage.Execute
EjecutarPackage_Descarga = True
Err_Salida:
Set objExecPkg = Nothing
Set objTask = Nothing
Set objStep = Nothing
objPackage.UnInitialize
Exit Function
Error_Ejecucion_Paquete:
MsgBox Err.Description
EjecutarPackage_Descarga = False
objPackage.UnInitialize
GoTo Err_Salida
End Function
