[Rollin_Again]

Does anyone know how to save an Excel file as text using VBS?

Regards,
Rollin

[Rockn]

text as in CSV?

[Rollin_Again]

Not a CSV file but a tab delimited text file that will be opened with Notepad. If I was using VBA within Excel I could issue a command like

ActiveWorkbook.SaveAs Filename:= "C:\Test.txt" , FileFormat:=xlText

In my VBS script I have replaced "ActiveWorkbook" with "objExcel" which is the name of my workbook object but the code throws an error.

objExcel.SaveAs Filename:= "C:\Test.txt" , FileFormat:=xlText

The code will work when I change to what is listed below but unfortunately since I am not specifying the file format the text is garbled and out of place.

objExcel.SaveAs Filename("C:\Test.txt")

Regards,
Rollin

[Jimmy the Hand]

I don't know about VBS, but xlText is surely an Excel constant, which might not be understood by VBS compiler. Try using an integer constant, instead.

I run this macro in Excel to obtain integer values

Sub test()
    MsgBox xlText
    MsgBox xlTextWindows
    MsgBox xlUnicodeText
End Sub

Results:
xlText = -4158
xlTextWindows = 20
xlUnicodeText = 42

-4158 is a bit suspicious, I must admit... but maybe 20 or 42 will work.

Jimmy

[Rollin_Again]

Instead of my original plan to save the Excel file as text format, I've modified my VBS Script to create a new text file and to write the string values to it line by line. It works fine and my problem is solved for now but I will still give your recommendation a shot because I really want to know if there is another way to do this.

Regards,
Rollin