[已解决]求解，封装DLL 运行ab出错代码91

759857387

vb代码如下：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
Sub Filter()         '筛选过滤单元格B1、C1、D1、E1出现↑↑或者↓↓时打开Sheet1.Range("G28")单元格的exe
    Dim el As Object
    Set el = GetObject(, "Excel.Application")

        st = el.Sheet3.Range("b11") & el.Sheet3.Range("c11") & el.Sheet3.Range("d11") & el.Sheet3.Range("e11")
        If st Like "*↑↑*" Or st Like "*↓↓*" Then
            Application.Run "muzic"
            
            hWnd = FindWindow(vbNullString, "用户登录")
            If hWnd = 0 Then
            Shell el.Sheet1.Range("b4")
            End If
         End If
   
    DoEvents
    el.OnTime Now + TimeSerial(0, 2, 0), "Filter"
    DoEvents
   
    Set el = Nothing
End Sub
股票买卖信号接收客户端（FRC版）.rar (38.57 KB, 下载次数: 27)

2012-6-20 23:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

吕?布

2012-6-26 08:14

上传附件，你试试 (, 下载次数: 27)

上传

点击文件名下载附件

跳转到最佳答案楼层

759857387

错误代码：

吕?布

你看看你的引用里有没 丢失引用之类

759857387

吕?布 发表于 2012-6-21 10:32
你看看你的引用里有没 丢失引用之类

有，是做的第一个(相同代码），SYS32删除了

吕?布

我们没办法调试的

759857387

吕?布 发表于 2012-6-21 16:49
我们没办法调试的

首先谢谢吕布老师，能否复制1楼的代码，在vb6做个DLL，然后引用到我上传的附件里呢？

吕?布

实际上你可以上传你有疑问的DLL源码，
用一楼代码没办法弄出可用的DLL,其一是没有Music,其二也没有你的"用户登录"窗口，所以没有办法测试

759857387

吕?布 发表于 2012-6-25 07:19
实际上你可以上传你有疑问的DLL源码，
用一楼代码没办法弄出可用的DLL,其一是没有Music,其二也没有你的"用 ...

谢谢，老师多次关注。
DLL未引用，vba代码运行正常。
不是DLL有疑问，是生成DLL后，引用成功了，在调用DLL时，宏ab出错（见2楼），是d没有属性和方法（问过excelhome的wqfzqgk ）
Music可以找一个测试机上的（把地址换一下）
用户登录可以换成QQ（把地址换一下）
我正准备上午测试的程序，下午我重做一个DLL并上传。

吕?布

没有属性，一般是注册有问题，而自动生成COM都可以自动注册的
所以，也许只有看到附件才有可能找到原因。

759857387

吕?布 发表于 2012-6-25 08:37
没有属性，一般是注册有问题，而自动生成COM都可以自动注册的
所以，也许只有看到附件才有可能找到原因。
...

我就是用baomaboy 的COM加载宏全自动安装.rar做自动加载，当然有成功的（vb声明代码相同），可这个就是不行。