Macro-Save as

L

Lois

I need to know how to 'default' the save file type as an .xls from a .dat
within a macro. After a macro has completed changing many .dat files into
excel spreadsheets to include subtotals, the file type is defaulted to .dat
and when I go to save the file, I have to constantly change the file type
from .dat to .xls.
 
B

bigwheel

Lois said:
I need to know how to 'default' the save file type as an .xls from a .dat
within a macro. After a macro has completed changing many .dat files into
excel spreadsheets to include subtotals, the file type is defaulted to .dat
and when I go to save the file, I have to constantly change the file type
from .dat to .xls.
Click to expand...

Check the SaveAs method which allows you to specify the desired FileFormat
e.g.
ActiveWorkbook.SaveAs(test, fileFormat:=xlNormal)
 
B

bigwheel

bigwheel said:
Check the SaveAs method which allows you to specify the desired FileFormat
e.g.
ActiveWorkbook.SaveAs(test, fileFormat:=xlNormal)
Click to expand...

Sorry, bit of an error with the syntax above ...

Try ActiveWorkbook.SaveAs FileFormat:=xlNormal
 
L

Lois

Thanks, but I'm still having trouble. I probably wasn't very clear before.
Here is the macro that we currently have and need to change to include
'changing the file type from .dat to .xls. before we save the file.
Any help is appreciated!!!

SendKeys "%fa~"
ActiveSheet.Outline.ShowLevels Rowlevels:=4
Columns("B:E").Select
Selection.EntireColumn.Hidden = True
Columns("G:T").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PrintOut
SendKeys "n~"
ActiveWindow.Close
End Sub
 
B

bigwheel

OK see if this helps. Change ActiveWindow.Close to

a = ActiveWindow.Close(True,awName)

Insert immediately above this, and all on one line, as follows:-

awname = Left(ActiveWorkbook.Name, Application.WorksheetFunction.Find(".",
ActiveWorkbook.Name) - 1) & ".xls"
 
Top