Excel VBA从MS Access调用时取值异常问题求助

核心问题定位 #

你的代码出现取值混乱的根本原因是循环逻辑错误，加上对象引用不够严谨：

1. 设置的vrCurRange是A列到B列的区域，For Each vrCurCell In vrCurRange会逐个遍历该区域的每个单元格（比如A2→B2→A3→B3...），但每次循环都会执行vrCurRowNum = vrCurRowNum + 1，导致行号被重复递增，取值时错位。
2. 在Access调用的Excel实例中，Workbooks("Fedex.xlsm")可能因为实例隔离出现引用问题，不如直接用ThisWorkbook可靠。

修复步骤 #

1. 修正循环逻辑（关键） #

把遍历单元格的循环改成按行循环，直接处理每一行的数据，避免重复触发：

' 替换原来的循环部分
vrCurRowNum = 2
With wksFilesToExportEMail
    vrLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    ' 按行循环，从第2行到最后一行
    Do While vrCurRowNum <= vrLastRow
        ' 只处理A列非空的行
        If .Range("A" & vrCurRowNum).Value <> "" Then
            ' 这里保留原来的取值逻辑
            vrQueryName = .Range("A" & vrCurRowNum).Value
            vrPasteToCell1 = .Range("B" & vrCurRowNum).Value
            vrPasteToRow1 = .Range("C" & vrCurRowNum).Value
            vrPasteToCell2 = .Range("D" & vrCurRowNum).Value
            vrPasteToRow2 = .Range("E" & vrCurRowNum).Value
            vrChartName = .Range("F" & vrCurRowNum).Value
            NoOfTotalsLines = .Range("G" & vrCurRowNum).Value
            NoOfHeadersLines = .Range("H" & vrCurRowNum).Value
            vrPasteFromCell1 = .Range("I" & vrCurRowNum).Value
            vrPasteFromRow1 = .Range("J" & vrCurRowNum).Value
            vrPasteFromCell2 = .Range("K" & vrCurRowNum).Value
            vrPasteFromRow2 = .Range("L" & vrCurRowNum).Value
            vrVariableRows = .Range("M" & vrCurRowNum).Value
            vrNoOfRowsInTable = .Range("N" & vrCurRowNum).Value

            ' 以下保留原有的业务代码（复制工作表、处理数据等）
            Set wksCopyTo = wbkNewFile.Sheets("Conclusion")
            If sheet_exists(vrQueryName) Then
                Set wksCopyFrom = wbkM.Sheets(vrQueryName)
                ' ... 原有的业务逻辑代码 ...
                wbkM.Worksheets(vrQueryName).Delete
            End If
        End If
        vrCurRowNum = vrCurRowNum + 1
    Loop
End With

2. 优化对象引用 #

将Set wbkM = Workbooks("Fedex.xlsm")改为：

Set wbkM = ThisWorkbook ' 直接引用宏所在的工作簿，避免实例隔离问题

3. 调试排查技巧 #

在Access调用时，先设置vrExcelApp.Visible = True，让Excel窗口可见，同时在取值后添加调试输出，确认变量值：

' 在取值后添加
MsgBox "当前行号：" & vrCurRowNum & vbCrLf & _
       "vrPasteToCell1：" & vrPasteToCell1 & vbCrLf & _
       "vrPasteToRow1：" & vrPasteToRow1, vbInformation

这样可以直观看到什么时候取值出现错位，确认修复效果。

额外注意事项 #

• 避免隐式激活工作表：所有Range操作都要明确指定所属的Worksheet对象，不要依赖默认激活的工作表。
• Access调用Excel时，确保文件路径vrCurPath是正确的绝对路径，避免相对路径导致的文件找不到问题。

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