本示例将默认保存文件格式更改为“et” 。 If Application.SaveAsFileType = ".xls" Then Application.SaveAsFileType = ".et" End If