object与variant变量传递差异

何洋

各位老师，最近在写VBA代码时,遇到一个问题, 传递 Variant类型与Object类型的参数会有一些差异,想不明白
表格中原始数据




1. 以下这种方式定义调用会报错
主函数中如果这样定义，applExcel中的参数 xlbook 必须为 ByVal，否则会报错

  Dim wb  '默认为 Variant型
  Set wb = ThisWorkbook
  Call appExcel(wb)


  修改 appExcel中的参数改为按值传递(ByVal)的方式，运行成功，想不明白为什么

  此时我查询了wb的变量类型，既是Variant型，又是Object型，还是ThisWorkbooK，为什么一个变量会有3种类型？运行TypeName()方法，wb 是Workbook类型。


2. 直接用下面的方式定义调用不会报错
主函数中如果这样定义，applExcel中的参数 xlbook 为 ByVal 或 ByRef  都会运行成功

  Dim wb As Object  '定义为Object类型
  Set wb = ThisWorkbook
  Call appExcel(wb)

（1）appExcel中的参数定义为 ByVal 方式传递，运行成功

（2）appExcel中的参数定义为 ByRef 方式(VBA 默认为 ByRef)传递，运行成功

此时我查询了wb的变量类型，是Object/ThisWork类型，运行TypeName()方法查询 wb 的类型是 WorkBook 类型，为什么？


    上面2种方法运行成功后看起来没有差，按理说如果 appExcel 中的参数 xlbook 是 ByRef 方式，修改xlbook 就相当于修改 wb; 如果 appExcel中的参数是 ByVal 方式，传递的是 wb 的副本，按理说修改 xlbook 与 wb 没任何关系，但现在看起来 xlbook 无论是ByVal还是ByRef，结果是一样的，都是修改wb，想不明白

leolee82

ByRef 方式，是先将Object转换为引用类型的Variant再传递，如果无特殊要求建议用ByVal 方式