Excel 2007/2010 2003互換で保存

If Application.Version < 12 Then
     Workbooks(1).SaveAs FileName:=FileName, FileFormat:=xlExcel9795
Else
     Workbooks(1).SaveAs FileName:=FileName, FileFormat:=56
End If


http://blog.livedoor.jp/akf0/archives/51172335.html