Excel2019+VB6.0精简版封装，引用中找不到 Microsoft Excel 16.0 Object Library

makelot

Excel 2019 64位 + VB 6.0 精简版封装，引用中为什么找不到 Microsoft Excel 16.0 Object Library ？
Excel 2019 的版本是 16.0
求助，多谢！

山菊花

点击浏览，定位到EXCEL.EXE文件。

makelot

山菊花 发表于 2020-10-15 12:02
点击浏览，定位到EXCEL.EXE文件。

感谢帮助！我引用的是 C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE 这个文件很大，56.8 MB，不知道对不对？
以管理员身份启动VB6.0，封装过程貌似没有问题，我保存到了桌面某文件夹，并用regsvr32命令做了注册，但是加载过程出了问题。
按COM加载项 → 添加，提示“xxx.dll不是有效的Office加载项。”
按Excel加载项 → 自动化 → 浏览 → 确定，提示“所选文件没有包含新的自动化服务器或者没有足够的权限在自动化服务上注册。”
按Excel加载项  → 浏览 → 显示所有文件 → 确定，倒是可以加载，但是工作表中无法使用，VBA中 Dim ... as New 时，列表中也看不到封装的模块名称。
到底是哪里出了问题？是不是除了引用 Microsoft Excel 16.0 Object Library，还需要引用 Microsoft Office 16.0 Object Library ？后者我这里也找不到。
我封装的代码是：
Function TheCell(RowNumber As Integer, Optional ColumnName As String = "A")
    Dim xlApp As Object
    Set xlApp = GetObject(, "Excel.Application")
    Set TheCell = xlApp.ActiveSheet.Cells(RowNumber, ColumnName)
End Function
恳求指点迷津，非常感谢！

山菊花

建议先花点时间浏览一下知识树：
http://club.excelhome.net/tree/index-50.html

makelot

山菊花 发表于 2020-10-15 20:42
建议先花点时间浏览一下知识树：
http://club.excelhome.net/tree/index-50.html

非常感谢，终于找到了原因，原来是在VBE里引用.dll文件，而不是在Excel加载宏或COM加载宏里引用。
不过虽然成功引用，使用时还是出错，测试下：
Sub Test()
    Dim x As New TestCls '这一句没问题。
    x.TheCell(6).Select '这一句执行时提示运行时错误 '-2147221164 (80040154)': 没有注册类。
End Sub
不知怎么回事？麻烦您再给看看，非常感谢！

jeson411

makelot 发表于 2020-10-16 06:48
非常感谢，终于找到了原因，原来是在VBE里引用.dll文件，而不是在Excel加载宏或COM加载宏里引用。
不过 ...

找到原因了吗？我也被卡在这步了，找不到解决办法。

xyxcc177

jeson411 发表于 2022-12-21 17:54
找到原因了吗？我也被卡在这步了，找不到解决办法。

64位系统不支持VB6编译的dll

jeson411

xyxcc177 发表于 2022-12-22 19:12
64位系统不支持VB6编译的dll

请问有什么解决办法的教程吗？谢谢

excel1202

xyxcc177 发表于 2022-12-22 19:12
64位系统不支持VB6编译的dll

VB6依然可以在WIN10中豪横！只要在WIN10中安装vb6和32位的Ms office即可。
win10成功安装VB6要点，封装的DLL在win10的excel中正常调用
https://club.excelhome.net/thread-1686496-1-2.html