Phil Chapman
asked on
Save Excel File as a Tab Delimited File
How can I modify the code below to save the OutPutFileName file as a Tab Delimited File
Public Sub saveSheets(InputFileName as String,OutPutFileName as String)
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim strOutputFileName
Set xlApp = CreateObject("Excel.Applic ation")
Set xlBook = xlApp.Workbooks.Open(Input FileName) ' Excel File
For Each xlSheet In xlBook.Worksheets
xlSheet.SaveAs OutPutFileName ' Needs to save as Tab Delimited File
Next
xlApp.Quit
End Sub
Public Sub saveSheets(InputFileName as String,OutPutFileName as String)
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim strOutputFileName
Set xlApp = CreateObject("Excel.Applic
Set xlBook = xlApp.Workbooks.Open(Input
For Each xlSheet In xlBook.Worksheets
xlSheet.SaveAs OutPutFileName ' Needs to save as Tab Delimited File
Next
xlApp.Quit
End Sub
xlSheet.SaveAs OutPutFileName FileFormat:=xlText
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
It looks like it's a WorkBook function
ActiveWorkbook.SaveAs FileName:= OutPutFileName, FileFormat:=xlText
ActiveWorkbook.SaveAs FileName:= OutPutFileName, FileFormat:=xlText
ASKER
Solution did not work and expert provided no follup up