Excel 2010 VBA宏导出CSV时SaveAs函数报错求助

嘿，这个问题我太熟悉了——你猜的完全没错！就是因为你先执行了删除A、B列的操作，导致原来的A30单元格直接被删掉了（毕竟A30就在A列里啊），后面调用SaveAs的时候根本找不到文件名，自然就报错了。

解决的核心思路很简单：先把A30的内容存到一个变量里锁死，再去做删列和保存的操作，这样不管工作表结构怎么变，变量里的文件名都稳稳的。

给你写个完整的可运行代码，注释都标清楚了：

Sub ExportToCSV()
    Dim saveFileName As String
    Dim targetWs As Worksheet
    
    ' 1. 锁定目标工作表，避免选错表（建议换成你实际的表名，比如Sheets("销售数据")）
    Set targetWs = ActiveSheet
    
    ' 2. 先把原A30的内容存到变量里——这一步必须在删列之前！
    saveFileName = targetWs.Range("A30").Value
    
    ' 3. 做一些基础校验，避免后续报错
    ' 检查文件名是否为空
    If saveFileName = "" Then
        MsgBox "A30单元格不能为空，请先填写要保存的文件名！", vbExclamation
        Exit Sub
    End If
    
    ' 检查文件名是否包含Windows禁止的非法字符
    Dim illegalChars As Variant
    illegalChars = Array("/", "\", ":", "*", "?", """", "<", ">", "|")
    Dim badChar As Variant
    For Each badChar In illegalChars
        If InStr(saveFileName, badChar) > 0 Then
            MsgBox "文件名里不能有" & badChar & "这种字符，麻烦改下A30的内容哈！", vbExclamation
            Exit Sub
        End If
    Next badChar
    
    ' 4. 现在可以放心删除A、B列了
    targetWs.Columns("A:B").Delete
    
    ' 5. 保存为CSV文件——这里默认存在当前工作簿的同目录下，你可以改成自己要的路径
    targetWs.SaveAs Filename:=ThisWorkbook.Path & "\" & saveFileName & ".csv", FileFormat:=xlCSV
    
    ' 如果你不想改动原工作表，可以用下面这段替代步骤4和5，复制一张临时表来操作：
    ' Dim tempWs As Worksheet
    ' ' 复制原表到最后
    ' Set tempWs = targetWs.Copy(After:=Sheets(Sheets.Count))
    ' ' 在临时表里删列
    ' tempWs.Columns("A:B").Delete
    ' ' 保存临时表为CSV
    ' tempWs.SaveAs Filename:=ThisWorkbook.Path & "\" & saveFileName & ".csv", FileFormat:=xlCSV
    ' ' 关闭临时表，不提示保存
    ' Application.DisplayAlerts = False
    ' tempWs.Delete
    ' Application.DisplayAlerts = True
End Sub

几个关键提醒：

• 一定要先存文件名再删列，顺序绝对不能搞反！
• 如果你不想破坏原工作表的数据，强烈建议用代码里注释的「临时表」方案，操作完自动删掉临时表，原表丝毫不影响。
• 记得给文件名加.csv后缀，不然可能会存成Excel格式。

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