导入数据时VBA运行时错误1004：应用程序定义或对象定义错误

可能的错误原因及解决方法 #

1. 源数据范围无效 #

如果源工作表Proforma的A列只有表头（第1行有数据，第2行及以下为空），lastRow = sourceWS.Cells(sourceWS.Rows.Count, "A").End(xlUp).Row会返回1，此时定义的sourceRange是反向范围（起始行>结束行），赋值时直接触发错误。

解决：
在定义源范围前增加有效性判断：

If lastRow < 2 Then
    MsgBox "源工作表无有效数据可导入", vbExclamation
    sourceWB.Close SaveChanges:=False
    Exit Sub
End If

2. 工作表名称不匹配 #

目标工作表Wire ACH 2025或源工作表Proforma名称拼写错误、大小写不一致，或工作表已被删除，都会导致对象引用失败。

解决：

• 核对两个工作表的名称，确保和代码中的完全一致（注意空格、特殊字符）
• 增加工作表存在性检查：

' 检查源工作表
On Error Resume Next
Set sourceWS = sourceWB.Sheets("Proforma")
On Error GoTo 0
If sourceWS Is Nothing Then
    MsgBox "源工作簿中未找到「Proforma」工作表", vbCritical
    sourceWB.Close SaveChanges:=False
    Exit Sub
End If

' 检查目标工作表
On Error Resume Next
Set targetWS = targetWB.Sheets("Wire ACH 2025")
On Error GoTo 0
If targetWS Is Nothing Then
    MsgBox "目标工作簿中未找到「Wire ACH 2025」工作表", vbCritical
    sourceWB.Close SaveChanges:=False
    Exit Sub
End If

3. 目标工作表空行计算错误 #

如果目标工作表A列存在合并单元格，或顶部有大量空行，End(xlUp)会返回错误行号，导致nextRow超出工作表最大行限制，或引用无效区域。

解决：
改用更可靠的空行计算逻辑，并限制行号范围：

nextRow = targetWS.Cells(targetWS.Rows.Count, "A").End(xlUp).Row
' 若A列全空，从第2行开始导入（假设第1行是表头）
If nextRow = 1 Then nextRow = 2 Else nextRow = nextRow + 1
' 防止超出Excel最大行（2007+版本为1048576）
If nextRow + sourceRange.Rows.Count - 1 > targetWS.Rows.Count Then
    MsgBox "目标工作表剩余行数不足，无法导入全部数据", vbCritical
    sourceWB.Close SaveChanges:=False
    Exit Sub
End If

4. 文件权限或路径问题 #

源文件路径错误、被其他程序锁定、无读取权限，会导致sourceWB引用无效，后续操作报错。

解决：

• 核对Load工作表B3单元格的文件路径（需包含完整扩展名，如.xlsx）
• 增加文件存在性检查：

If Dir(filePath) = "" Then
    MsgBox "指定的源文件不存在，请检查路径", vbCritical
    Exit Sub
End If

优化后的完整代码 #

Sub Proforma()
    Dim sourceWB As Workbook
    Dim sourceWS As Worksheet
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    Dim filePath As String
    Dim sourceRange As Range
    Dim nextRow As Long
    Dim lastRow As Long, lastCol As Long
     
    ' 绑定目标工作簿
    Set targetWB = ThisWorkbook

    ' 获取源文件路径
    filePath = targetWB.Sheets("Load").Range("B3").Value
    
    ' 检查源文件是否存在
    If Dir(filePath) = "" Then
        MsgBox "指定的源文件不存在，请检查路径", vbCritical
        Exit Sub
    End If
    
    ' 打开源工作簿
    On Error Resume Next
    Set sourceWB = Workbooks.Open(filePath)
    On Error GoTo 0
    If sourceWB Is Nothing Then
        MsgBox "无法打开源文件，可能文件被锁定或无权限", vbCritical
        Exit Sub
    End If
    
    ' 检查源工作表是否存在
    On Error Resume Next
    Set sourceWS = sourceWB.Sheets("Proforma")
    On Error GoTo 0
    If sourceWS Is Nothing Then
        MsgBox "源工作簿中未找到「Proforma」工作表", vbCritical
        sourceWB.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 定位源数据的最后一行和列
    lastRow = sourceWS.Cells(sourceWS.Rows.Count, "A").End(xlUp).Row
    lastCol = sourceWS.Cells(1, sourceWS.Columns.Count).End(xlToLeft).Column
    
    ' 检查源数据有效性
    If lastRow < 2 Then
        MsgBox "源工作表无有效数据可导入", vbExclamation
        sourceWB.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 定义源数据范围
    Set sourceRange = sourceWS.Range(sourceWS.Cells(2, 1), sourceWS.Cells(lastRow, lastCol))
    
    ' 检查目标工作表是否存在
    On Error Resume Next
    Set targetWS = targetWB.Sheets("Wire ACH 2025")
    On Error GoTo 0
    If targetWS Is Nothing Then
        MsgBox "目标工作簿中未找到「Wire ACH 2025」工作表", vbCritical
        sourceWB.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 计算目标工作表的下一个空行
    nextRow = targetWS.Cells(targetWS.Rows.Count, "A").End(xlUp).Row
    If nextRow = 1 Then
        nextRow = 2 ' A列全空时从第2行开始导入
    Else
        nextRow = nextRow + 1
    End If
    
    ' 检查目标工作表剩余行数
    If nextRow + sourceRange.Rows.Count - 1 > targetWS.Rows.Count Then
        MsgBox "目标工作表剩余行数不足，无法导入全部数据", vbCritical
        sourceWB.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 仅粘贴值到目标工作表
    targetWS.Cells(nextRow, 1).Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).Value = sourceRange.Value
    
    ' 关闭源工作簿不保存
    sourceWB.Close SaveChanges:=False
    
    DeleteRefErrors
    
    ' 导入成功提示
    MsgBox "Table imported successfully!", vbInformation

End Sub

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