Karen,
Would you like to try to use Excel Spreadsheet and save it as text file by
using ActiveXScript after the export?
Function Main()
' Launch Excel
Dim Xl
Dim sSourceFile
Dim sOutputFile
sSourceFile = DTSGlobalVariables("gSourceFile").Value
sOutputFile = DTSGlobalVariables("gOutputFile").Value
'MsgBox sSourceFile
'MsgBox sOutputFile
Set Xl = CreateObject("Excel.Application")
'Make it in-visible
Xl.Visible = False
'Open my execl file, and sheet
Xl.Workbooks.Open(sSourceFile)
Xl.Worksheets("YourWorkSheetName").Select
Xl.ActiveWorkbook.SaveAs sOutputFile,-4158,0
Xl.ActiveWorkbook.Close(0)
Xl.quit
Main = DTSTaskExecResult_Success
End Function
Hope this help
Ed
"karenmiddleol (AT) yahoo (DOT) com" wrote:
Quote:
I want to keep appending to an existing text file destination output
file everytime I run a DTS Package.
Unfortunately DTS keeps ovwerwriting what is in the file.
How do I append into a text file destination.
Thanks
Karen |