本示例将默认保存文件格式更改为“et” 。

If  Application.SaveAsFileType = ".xls" Then
    Application.SaveAsFileType = ".et"
End If