如何通过win32com直接实例化Excel工作簿中自定义的VBA类对象

核心结论 #

不存在你想要的、类似内置对象直接创建的公开方法。VBA自定义类属于VBA运行时的私有类型，没有对外暴露COM注册信息，Excel对象模型也没有提供直接实例化这类自定义类的公开接口，因此无法实现类似Dispatch("CHouse")或者wb.CHouse.Add这类调用。

目前可行的实现方案 #

方案1：VBA侧编写工厂函数（最稳定，推荐） #

这也是你当前正在使用的方案，兼容性最好，不需要修改Excel安全配置。
首先在Excel工作簿的标准模块（不要放在类模块中）添加如下工厂函数：

Public Function CreateCHouse() As CHouse
    Set CreateCHouse = New CHouse
End Function

Python侧调用示例：

import win32com.client as win32

# 启动Excel打开目标工作簿
excel = win32.gencache.EnsureDispatch("Excel.Application")
wb = excel.Workbooks.Open(r"C:\你的工作簿路径.xlsm")

# 调用VBA工厂函数直接得到CHouse实例
house_instance = excel.Run("CreateCHouse")

# 正常操作类的公共属性、方法
house_instance.pAddress = "北京市朝阳区某某路12号"
house_instance.pOwner = "李四"
print(house_instance.pAddress, house_instance.pOwner)

# 用完退出
wb.Close(SaveChanges=False)
excel.Quit()

方案2：动态注入VBA代码实例化（不需要预先写宏） #

如果不想提前在工作簿里写工厂函数，可以通过操作VBA工程对象动态注入临时代码完成实例化，该方案需要提前在Excel信任中心开启「信任对VBA工程对象模型的访问」选项，否则会触发权限报错。
Python侧调用示例：

import win32com.client as win32

excel = win32.gencache.EnsureDispatch("Excel.Application")
wb = excel.Workbooks.Open(r"C:\你的工作簿路径.xlsm")

# 动态添加临时标准模块写入工厂函数
temp_module = excel.VBE.ActiveVBProject.VBComponents.Add(1) # 1代表标准模块
temp_module.CodeModule.AddFromString("""
Function TempCreateCHouse() As CHouse
    Set TempCreateCHouse = New CHouse
End Function
""")

# 调用临时函数创建实例
house_instance = excel.Run("TempCreateCHouse")

# 可选：删除临时模块
excel.VBE.ActiveVBProject.VBComponents.Remove(temp_module)

# 后续操作属性和方案1一致
house_instance.pAddress = "上海市静安区某某巷8号"
house_instance.pOwner = "王五"
print(house_instance.pAddress, house_instance.pOwner)

wb.Close(SaveChanges=False)
excel.Quit()

补充说明 #

所有可行的实例化方案本质上都是绕到VBA运行时内部完成对象创建，再把实例引用返回到Python侧，不存在完全跳过VBA代码调用的直接实例化方式。

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