VBA编译错误：Object Required 求助（联系人批量处理宏报错）

嘿，这个错误其实很好排查！咱们直接看问题核心：

你代码里声明了pathOrig是字符串类型（Dim pathOrig As String），但却用了Set关键字来给它赋值——这在VBA里是绝对不允许的操作！

Set这个关键字是专门用来给对象类型变量（比如Workbook、Range、Worksheet这类实实在在的对象）赋值的，而像字符串、数字这种普通数据类型，直接用等号=赋值就够了，根本不需要加Set。

你写的这行代码：

Set pathOrig = ActiveWorkbook.path

VBA看到后会一脸懵：你用给对象赋值的语法，去给一个普通字符串变量赋值，这不就冲突了嘛，所以直接抛出"Object Required"（需要对象）的编译错误。

修复方法超简单： #

把那行代码里的Set去掉就行，改成：

pathOrig = ActiveWorkbook.Path

（注：VBA不区分大小写，path或Path都能运行，但按规范写首字母大写可读性更强）

额外小提示： #

如果你的原始工作簿还没保存过，ActiveWorkbook.Path会返回空字符串，后续创建新工作簿的时候大概率会出问题，所以可以加个前置判断，提前规避风险：

' 先检查原始工作簿是否已保存
If ActiveWorkbook.Path = "" Then
    MsgBox "请先保存原始工作簿再运行宏！", vbExclamation
    Exit Sub
End If
' 再获取路径
pathOrig = ActiveWorkbook.Path

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