Save as prn in VBA

[markh1182]

Hi, As part of some code I save a spreadsheet as a prn (formatted text (space delimited)) file, however when I open that file from the folder it is corrupt and not in a recognisable format. The code is:

    Set xlbook = ActiveWorkbook
    Sheets(1).Select
    Application.ActiveWorkbook.SaveAs ("H:\94\Users\MIL\_Hincma\precost1.prn")
    Application.ActiveWorkbook.Close

Do I have to do something else to save it as this file type and keep it usable?

 

[bozack]

Hi Mark,

I just tried your code and it worked fine for me?

Could it be that it has something to do with what is in the sheet you are trying to save? Try a simple sheet and see if that corrupts.

Also what version of Excel are you using? I'm using Excel Office 2003, SP2.

Boz

 

[markh1182]

Thanks for your reply but I have managed to solve it now by changing my saveas line to:

ActiveWorkbook.SaveAs Filename:="H:\94\Users\MIL\_Hincma\precost3.prn", FileFormat:=xlText