从外部工作簿读取数组粘贴至活动工作簿时遇应用程序定义错误求助

我先帮你排查代码里的几个关键问题，这些大概率就是触发Application defined or object defined error的原因：

1. 变量声明不规范（隐性类型错误） #

VBA里如果在一行声明多个变量，只有最后一个会被指定类型，前面的变量默认是Variant类型，这种隐性的类型不匹配很容易导致对象操作出错：

Dim wbpath, bidp_name As String ' 只有bidp_name是String，wbpath是Variant
Dim wb, tabb As Workbook ' 只有tabb是Workbook，wb是Variant

同时你用到的b_name变量也没有提前声明，建议在模块开头加上Option Explicit强制声明所有变量，能快速揪出这类问题。修正后的声明应该是：

Dim wbpath As String, b_name As String
Dim wb As Workbook, tabb As Workbook

2. 目标工作表可能不存在或名称错误 #

这个错误提示的常见诱因之一是wb.Sheets("B")这个工作表不存在，或者名称拼写有误（比如实际叫"Sheet B"、"数据表B"等）。你可以先确认目标工作表的准确名称，或者改用工作表的代码名称（比如Sheet2）来引用，避免因重命名导致的引用失败。

3. 未处理源数据只有单个单元格的情况 #

如果源工作簿第一个工作表的UsedRange只有单个单元格，inpb = tabb.Sheets(1).UsedRange会把inpb变成单个值而非二维数组，此时调用UBound(inpb, 1)就会直接报错——因为单个值没有数组的维度属性。

你可以在赋值后先判断是否为数组：

inpb = tabb.Sheets(1).UsedRange.Value
tabb.Close False ' 源工作簿未修改，用False避免不必要的保存操作

If IsArray(inpb) Then
    wb.Sheets("B").Cells(3, 3).Resize(UBound(inpb, 1), UBound(inpb, 2)).Value = inpb
Else
    wb.Sheets("B").Cells(3, 3).Value = inpb
End If

修正后的完整代码 #

Option Explicit ' 必须放在模块最开头，强制变量声明

Sub BT_CA_ADJ()
    Dim wbpath As String, b_name As String
    Dim wb As Workbook, tabb As Workbook
    Dim inpb As Variant
    
    wbpath = ThisWorkbook.Path
    Set wb = ThisWorkbook ' 直接引用当前代码所在工作簿，无需Activate
    b_name = wb.Sheets("Instructions").Cells(4, 3).Value ' 加上.Value确保获取单元格值
    
    ' 增加文件存在性判断，避免打开失败
    On Error Resume Next
    Set tabb = Workbooks.Open(wbpath & "\" & b_name)
    On Error GoTo 0
    
    If tabb Is Nothing Then
        MsgBox "找不到目标文件：" & wbpath & "\" & b_name, vbExclamation
        Exit Sub
    End If
    
    ' 读取数据到数组
    inpb = tabb.Sheets(1).UsedRange.Value
    tabb.Close False
    
    ' 写入目标工作表
    With wb.Sheets("B")
        ' 可选：清空目标区域旧数据
        .Range("C3").Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).ClearContents
        
        If IsArray(inpb) Then
            .Cells(3, 3).Resize(UBound(inpb, 1), UBound(inpb, 2)).Value = inpb
        Else
            .Cells(3, 3).Value = inpb
        End If
    End With
End Sub

额外建议 #

• 尽量避免使用Activate和ActiveWorkbook，直接用对象引用（比如ThisWorkbook）更稳定，减少窗口切换带来的意外错误。
• 增加错误处理逻辑（比如文件打开判断），让代码更健壮。
• 用With语句简化对工作表的重复引用，提升代码可读性和运行效率。

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