先祝大家新春快乐，这里还有个小问题，请高手帮助。delphi+DTS
使用DTS向导导入数据成功。但另存为.bas文件后转成delphi后程序无法实现数据导入的功能。代码有在网上找的，也有.bas转过来的。不好意思，过年还麻烦大家。祝各位大侠猪年好运！

[解决办法]
建一个DTS包,然后执行

uses ..COMObj;

var
ObjPackage, ObjStep, ObjTask, ObjExecPkg: variant;
begin
ObjPackage := CreateOLEObject( 'DTS.Package2 ');
ObjPackage.failonerror := true;
ObjStep := ObjPackage.steps.new;
ObjTask := ObjPackage.tasks.new( 'DTSExecutePackageTask ');
ObjExecPkg := ObjTask.customtask;

ObjExecPkg.PackagePassword := 'user ';
ObjExecPkg.FileName := 'C:\DTS_UE\TestPkg\VarPubsFields.dts ';
ObjExecPkg.Name := 'ExecPkgTask ';

ObjStep.TaskName := objExecPkg.Name;
ObjStep.Name := 'ExecPkgStep ';
ObjStep.ExecuteInMainThread := True;

ObjPackage.Steps.Add(ObjStep);
ObjPackage.Tasks.Add(ObjTask);
ObjPackage.Execute;

ObjExecPkg := Null;
ObjTask := Null;
ObjStep := Null;

ObjPackage.UnInitialize;
end;




[解决办法]
happy new year