Office365更新后VBA生成.CSV而非.csv，如何恢复原有设置？

核心原因 #

Office365的更新调整了SaveAs方法在未指定文件后缀时的默认行为，会自动添加大写的.CSV后缀，而之前版本会默认生成小写.csv，这导致对扩展名大小写敏感的程序无法正常读取文件。

解决方案 #

1. 显式指定小写后缀（最可靠直接） #

直接在SaveAs的FileName参数里明确加上小写的.csv后缀，彻底规避系统自动生成大写后缀的问题：

ActiveWorkbook.SaveAs FileName:="*path*\export.csv", _
    FileFormat:=xlCSV, CreateBackup:=False, Local:=True

这种写法不依赖任何系统或Office设置，无论版本如何更新，生成的文件后缀都会是小写.csv，从根源解决兼容性问题。

2. 优化代码健壮性（可选） #

原代码大量使用Select和Activate，容易因工作表激活状态变化引发错误，建议修改为不依赖激活状态的写法，同时保留原有功能：

Sub CSV_transfer()
    Dim header As Range
    Dim rngToSave As Range
    Dim newSheet As Worksheet
    Dim newWB As Workbook
    
    Application.DisplayAlerts = False
    
    ' 直接引用目标工作表，避免Activate操作
    Set header = ThisWorkbook.Sheets("sheet1").Range("AY3:AY6")
    Set rngToSave = ThisWorkbook.Sheets("sheet1").Range("AX3:AX450")
    
    ' 添加新工作表并粘贴数据
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.ActiveSheet)
    header.Copy
    newSheet.Range("A1").PasteSpecial Paste:=xlPasteValues
    rngToSave.Copy
    newSheet.Range("A5").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    ' 将新工作表移动到独立工作簿
    newSheet.Move
    Set newWB = ActiveWorkbook
    newWB.Sheets(1).Name = "export"
    
    ' 显式指定小写后缀保存
    newWB.SaveAs FileName:="*path*\export.csv", _
        FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    ThisWorkbook.Saved = True
    newWB.Close
    Application.DisplayAlerts = True
End Sub

3. 系统层面补充说明（不推荐依赖） #

Windows系统默认不区分文件扩展名的大小写，但部分程序对大小写敏感。如果不想修改代码，可尝试检查Office的区域语言设置，但这种方法不稳定——Office后续更新可能再次改变默认行为，因此优先推荐显式指定后缀的方案。

内容的提问来源于stack exchange，提问作者Capt.Krusty