Excel VBA保存文件失败，自动生成8位字母数字文件名问题求助

你看到的8位随机字母数字文件名是Excel自动生成的临时缓存文件，触发该问题的核心原因是你的代码存在对象引用错误、逻辑缺陷，导致SaveAs方法无法获取合法的文件名/路径参数：

• 重复定义了strFileName变量，VBA解析变量时出现混乱，导致路径读取异常
• 循环外定义的Set Sheetname = Worksheets(1)引用的是宏所在工作簿的第一个工作表，而非你打开的CSV文件的工作表，取到的A2值为空或者非法值，SaveAs的文件名参数不符合Windows命名规则
• 循环中没有调用strFileName = Dir，代码永远重复处理第一个CSV文件，文件被重复锁定占用，无法正常保存
• 依赖ActiveWorkbook引用工作簿，调用PERSONAL.XLSB中的宏时焦点容易漂移到PERSONAL.XLSB本身，保存到XLSTART目录无权限时Excel就会生成随机临时文件兜底
• 修改后的代码中With WB的WB变量未赋值，With块完全不生效

以下是修正后的可运行代码：

Sub SHELLforMacros()
    Dim wbMatrix As Workbook
    Dim strFileName As String
    Dim newFileName As String
    Dim strSourcePath As String
    Dim strSavePath As String
    Dim strExt As String
    Dim invalidChars As Variant
    Dim i As Integer
    
    ' 预定义Windows文件名非法字符，用于后续校验
    invalidChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    
    ' 分开定义源文件路径和保存路径，不要在循环内重复赋值
    strSourcePath = "C:\Users\myname\Desktop\All_mricgcm3_files\45\Fall45\test\"
    strSavePath = "C:\Users\myname\All_mricgcm3_files\45\Fall45\test\"
    strExt = "csv"
    
    strFileName = Dir(strSourcePath & "*." & strExt)
    
    While strFileName <> ""
        ' 显式绑定打开的CSV工作簿，完全不依赖ActiveWorkbook
        Set wbMatrix = Workbooks.Open(strSourcePath & strFileName)
        ' 显式读取当前CSV文件第一个工作表的A2值
        newFileName = wbMatrix.Worksheets(1).Range("A2").Value
        
        ' 替换文件名中的非法字符
        For i = LBound(invalidChars) To UBound(invalidChars)
            newFileName = Replace(newFileName, invalidChars(i), "_")
        Next i
        
        ' 调用PERSONAL.XLSB中的宏
        Application.Run "'PERSONAL.XLSB'!Graph_NEW"
        
        ' 显式调用当前CSV工作簿的SaveAs方法
        wbMatrix.SaveAs Filename:=strSavePath & newFileName & ".xlsx", FileFormat:=51
        wbMatrix.Close SaveChanges:=False ' 已完成SaveAs，无需二次保存
        
        ' 取下一个待处理文件，避免死循环
        strFileName = Dir
    Wend
End Sub

额外校验建议 #

• 提前确认strSavePath路径真实存在，不存在可以调用MkDir方法提前创建
• 可以增加非空判断，如果newFileName为空时用原CSV文件名作为兜底，避免非法参数

内容的提问来源于stack exchange，提问作者David Montana