Sub SaveAs(Filename As String, Format As String)
'XLS Format
If UCase(Format) = "XLS" Then
ActiveWorkbook.SaveAs Filename:= _
Filename, FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Else
'default
'XLSX Format
ActiveWorkbook.SaveAs Filename:= _
Filename, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End If
End Sub
Sub Test()
SaveAs "C:\tmp\Filename.xls", "xlsx"
SaveAs "C:\tmp\Filename.xlsx", "xls"
End Sub
Song : O Saathi Re Film : Mukhathar Ka Sikkandhar Uses : C D D# E G A Note : The numbers at the end of the lines indicate line numbers. Pallavi: O saathi re, tere binaa bhi kya jina, tere binaa bhi kya jina A- C D D#....,D D C DD E...C..CA-...,D D C DD E...CC.......1 Play line 1 again phulon men khaliyon men sapnom ki galiyon men GGG...GAGE.. GGG G A G E.................................................2 tere bina kuchh kahin naa E A G E D C D D#.......................................................................3 tere binaa bhi kya jina, tere binaa bhi kya jina D D C DD E....C..CA-..., D D C DDE....CC.............................4 Charanam: har dhadkan men, pyaas hai teri, sanson men teri khushboo hai CCC C D C A-, CCC C D C A-, DDD DED CD EE.. CCCC......................5 is dharthi se, us ambar tak, meri nazar men tu hi tu hai CCC C D C A-, CCC C D C A-, DDD DED CD EE.. CCCC......................6 pyaar yeh tute naa GGG... GAG D#......E............................