Access VBA操作Excel添加单引号时遇运行时错误6溢出求助

嘿，我来帮你搞定这个溢出错误！首先咱们得揪出问题的根源，再一步步修复：

核心问题：Integer类型的范围限制 #

你把循环变量i声明成了Integer，但Integer的取值范围是**-32768到32767**，而Excel工作表的最大行数能到1048576行。当你的目标Excel文件第2列的有效行数超过32767时，循环上限就超出了Integer的承载范围，直接触发溢出错误。这也是为什么你在Excel里测试小文件没问题，但在Access里处理实际文件就报错的原因。

其他需要修复的细节 #

除了类型问题，代码里还有几个小坑得填上：

• 对象引用不明确：Rows.Count前面没加.，在With objWS代码块里，应该写成.Rows.Count，确保引用的是当前工作表的行数，避免和Access的对象模型混淆。
• Cells值引用遗漏：.Cells(i, mc)应该明确写成.Cells(i, mc).Value，虽然VBA有时会自动读取Value属性，但明确写出能避免潜在的类型匹配问题。
• 工作簿打开的对象归属：Workbooks.Open要改成objExcel.Workbooks.Open，在Access环境里，直接用Workbooks可能会指向错误的对象，明确归属Excel应用更稳妥。
• 文件路径错误：最后DoCmd.TransferSpreadsheet里的路径"R:GEMI\Drop\TransToday.xlsx"少了一个反斜杠，应该是"R:\GEMI\Drop\TransToday.xlsx"，不然会找不到目标文件。
• 变量声明遗漏：mc变量没有提前声明，最好补上Dim mc As Integer，符合VBA的规范。

修改后的完整代码 #

Private Sub cmdImport_Click()
    Dim objExcel As Excel.Application
    Dim objWB As Excel.Workbook
    Dim objWS As Excel.Worksheet
    Dim i As Long ' 把Integer改成Long，支持更大的行数范围
    Dim mc As Integer ' 补充声明mc变量

    Set objExcel = New Excel.Application
    objExcel.Visible = True
    ' 明确通过objExcel对象打开工作簿
    Set objWB = objExcel.Workbooks.Open("R:\GMI\Drop\AP04 2018.xlsx", , False)
    Set objWS = objWB.ActiveSheet

    With objWS
        .Range("a2:a7").EntireRow.Insert
        mc = 2 ' 注意：你注释写的column I是第9列，如果实际要处理I列，改成mc=9
        ' 修复Rows.Count的引用，确保指向当前工作表
        For i = 1 To .Cells(.Rows.Count, mc).End(xlUp).Row
            ' 明确读取和赋值Cells的Value属性
            .Cells(i, mc).Value = "'" & .Cells(i, mc).Value
        Next i
    End With

    objWB.SaveAs "C:\EMI\Drop\JV.xlsx"
    objWB.Close
    Set objWB = Nothing
    objExcel.Quit
    Set objExcel = Nothing

    ' 修复文件路径的反斜杠问题
    DoCmd.TransferSpreadsheet acImport, , "Transactions", "R:\GEMI\Drop\TransToday.xlsx", True
    MsgBox "Pre-import/Import complete", vbOKOnly
End Sub

另外提一句：你代码里注释写的'column I，但mc=2对应的是第2列（B列），如果实际要处理的是I列（第9列），记得把mc=2改成mc=9，别搞混了哦！

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