VBA宏单独运行正常整合后报错：导出工作表时编译错误

看起来你遇到的问题很典型——宏在串联运行时出现编译错误，但单独执行导出步骤却正常，这通常和变量声明、运行上下文或者宏的作用域有关。针对你提到的DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")这行错误，我整理了几个排查和解决方向：

1. 强制显式变量声明（最可能的原因） #

如果你的SplitWorkbook宏没有开启Option Explicit，当它在AddNew宏的上下文里运行时，DateString可能被意外地当作其他类型的变量（比如之前的代码里有同名的Variant变量），导致编译失败。

解决方法：在SplitWorkbook宏的模块顶部添加Option Explicit，并明确声明DateString的类型：

Option Explicit

Sub SplitWorkbook()
    Dim DateString As String ' 明确声明为字符串类型
    DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
    
    ' 你的导出逻辑代码...
End Sub

2. 明确指定工作簿上下文，避免混淆 #

当你通过AddNew宏创建新工作簿后，宏的运行上下文可能还停留在原工作簿，导致SplitWorkbook在错误的环境里执行。建议将新创建的工作簿对象传递给SplitWorkbook，确保操作目标正确：

修改AddNew宏：

Sub AddNew()
    Dim targetWB As Workbook
    Set targetWB = Workbooks.Add ' 将新工作簿赋值给变量
    
    ' 1. 导入.csv文件的代码...
    ' 2. 格式化数据的代码...
    
    ' 调用导出宏时传入目标工作簿
    SplitWorkbook targetWB
End Sub

修改SplitWorkbook宏，接收工作簿参数：

Option Explicit

Sub SplitWorkbook(targetWB As Workbook)
    Dim DateString As String
    DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
    
    Dim ws As Worksheet
    For Each ws In targetWB.Worksheets
        ws.Copy ' 复制工作表到新工作簿
        ' 保存时明确路径和文件名
        ActiveWorkbook.SaveAs "你的保存路径\" & ws.Name & "_" & DateString & ".xlsx"
        ActiveWorkbook.Close SaveChanges:=False
    Next ws
End Sub

3. 替换Format函数，避免区域设置冲突 #

虽然你单独运行时没问题，但系统区域设置的差异可能在串联运行时触发Format函数的异常。可以尝试用基础日期函数拼接字符串，替代Format：

' 手动拼接日期字符串，避免Format的区域依赖
DateString = _
    Year(Now) & "-" & Format(Month(Now), "00") & "-" & Format(Day(Now), "00") & " " & _
    Format(Hour(Now), "00") & "-" & Format(Minute(Now), "00") & "-" & Format(Second(Now), "00")

4. 检查宏的存放位置 #

确保AddNew和SplitWorkbook宏放在同一个模块里，避免跨工作簿/模块的作用域冲突。如果宏分散在不同位置，可能导致变量或函数的引用异常。

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