Printable View
objWorkbook.SaveAs FileName:="C:\Test.txt", FileFormat:=xlText
This is not working for me.
I get SaveAs method of workbook failed (1004)
I changed x|Text to one of many wdformats they fail too. ex(wdFormatDOSTextLineBreaks )
i need to export the spread sheet after making changes to a tab delimited file.
thanks.
Can you save it in any format at all using this code? Even a format you aren't interested it? Is there some problem with using the filename you have chosen?
zaza
no formats work. filename is temp.txt. if i leave off FileFormat:=xlText then is saves it with the new file name only not readable in notepad obviously.
I'm gonna mark this resolved. looks like i have to use this:
objWorkbook.SaveAs FileName:="C:\Test.txt", FileFormat:=3
i was not setting the constants. thanks for your help. any further info on this will still be helpful.
Hmmmm ... typical MegaShaft SNAFU. Here are some of the significant enumerations from '2003 xlFileFormat Class Members in the Object Browser(Hit <F2>). Of course, "3" is missing!Produces the following table:Code:Debug.Print "xlSYLK", xlSYLK
Debug.Print "xlWKS", xlWKS
Debug.Print "xlWK1", xlWK1
Debug.Print "xlCSV", xlCSV
Debug.Print "xlDBF2", xlDBF2
Debug.Print "xlText", xlText
Debug.Print "xlTextMac", xlTextMac
Debug.Print "xlTextMSDOS", xlTextMSDOS
Debug.Print "xlTextWindows", xlTextWindows
Debug.Print "xlTextPrinter", xlTextPrinter
Debug.Print "xlUnicodeText", xlUnicodeText
Debug.Print "xlAddIn", xlAddIn
Debug.Print "xlCSVMac", xlCSVMac
Debug.Print "xlCSVMSDOS", xlCSVMSDOS
Debug.Print "xlCSVWindows", xlCSVWindows
How did you find that "3" works?Code:xlSYLK 2
xlWKS 4
xlWK1 5
xlCSV 6
xlDBF2 7
xlText -4158
xlTextMac 19
xlTextMSDOS 21
xlTextWindows 20
xlTextPrinter 36
xlUnicodeText 42
xlAddIn 18
xlCSVMac 22
xlCSVMSDOS 24
xlCSVWindows 23