关于VBA代码使用VB6封装成DLL文件后运行，激活单元格行号读取问题

zz16326556

使用VB6将代码封装成DLL文件后，为什么我的光标是放在EXCEL表格的A5单元格上面，而运行封装后的DLL文件，在EXCEL表格的单元格B1和B2得到的值全是0。

代码如下：

Sub test()
Dim CO As Integer
Dim RO As Integer
    On Error Resume Next
    Dim VBt, YB     '定义变量VBt
    Set VBt = GetObject(, "Excel.Application")    '使VBt表示为EXCEL对象
    Set YB = VBt.ActiveSheet  '使YB表示为EXCEL的当前·工作表
'此时我的光标是放在EXCEL表格的A5单元格上面
CO = YB.ActiveCell.Column
RO = YB.ActiveCell.Row
YB.Range("B" & 1) = CO
YB.Range("B" & 2) = RO
End Sub