请教Dll的做法

2004-05-06 07:47:52 324 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

JAVA NIO之浅谈内存映射文件原理与DirectMemory JAVA类库中的NIO包相对于IO 包来说有一个新功能是内存映射文件，日常编程中并不是经常用到，但是在处理大文件时是比较理想的提高效率的手段。本文我主要想结合操作系统中（OS）相关方面的知识介绍一下原理。在传统的文件IO操作中，我们都是调用操作系统提供的底层标准IO系统调用函数 read()、write() ，此时调用此函数的进程（在JAVA中即java进程）由当前的用户态切换到内核态阅读详情

一个Microsoft Excel工作表：AAA.XLS
宏中有：UserForm1、UserForm2窗体、模块1等

现在我想用VB将AAA.XLS中的代码做成DLL：
1、我将thisworkbook中的代码复制到VB的类模块Class1中，在生成工程1。DLL时，因为代码中有UserForm2.show，所以出现了UserForm2变量未定义的错误。要怎么解决呀？

...全文

hpm6750evk2开发板（一）菜鸟入门 hpm6750与我们平时常用的stm单片机在开发环境和开发方法上有很大的区别，所以上手还是需要花一点时间的，拿到板子先不要急着上电调试，我们先找资料学习一下了，免得多走冤枉路，以下是我整理的一些学习资源，包括开发板使用手册、芯片SDK、开发工具、视频资料等，建议先把使用手册和学习视频先看了，再取搭建环境测试。最近刚入手一块hpm6750evk2开发板，花了几天时间学习，算是菜鸟入门了，今天分享一下学习过程。看完资料后，把开发工具安装上，下一篇文章我们分享一下调试工程的过程和遇到的问题。阅读详情

luojie1

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

切换为时间正序

junglerover 2004-05-14

打赏
举报

不是吧，哥们你能不能稍微举一反三一点呢？

1。在你的类模块头上，加上
Option Explicit

有助于你理解，使用变量前，必须有它的来源的概念；

2。你的方法里，WorkSheets/Cells/Rows/Selection这些对象是从哪里来？原来在EXCEL里面，他们都是全局的默认对象，那么现在你从哪里才能获得这些呢？再想一下！希望你能自己琢磨明白，真正理解对象的概念。

luojie1 2004-05-13

打赏
举报

AAA.XLS的模块1的代码：
Sub 隐藏空行()
dim obj as Object
set obj=createobject("MyDll.MyObj")
set obj.application=application '把APPLICATION对象传进DLL里
call obj.HideRows '把原来直接写在宏里的代码写到这个方法里面
End Sub

我在MYDLL的类MYOBJ里的代码：
public application as object '定义的APPLICATION对象
public sub HideRows()
' 原来宏里隐藏空行的代码：
Dim i As Integer
Dim r As Integer
Worksheets("汇总表").Select
i = 3
Do Until Cells(i, 2) = "合计"
i = i + 1
If Cells(i, 4) = 0 Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
If Cells(i, 2) = "合计" Then
Rows(i).Select
Selection.EntireRow.Hidden = False
End If
Loop
end sub

在执行时出现了错误，提示是：运行时错误1004，方法作用于对象失败。
是哪里做错了？
现在有谁在呀，帮我看看呀。

luojie1 2004-05-08

打赏
举报

我试过了，还是出现一样的错误提示呀。
public sub HideRows()

' 原来宏里隐藏空行的代码
end sub

junglerover 2004-05-08

打赏
举报

DLL里默认方法是私有的，必须改一下

MYDLL的类MYOBJ里，必须改为
public sub HideRows()

' 原来宏里隐藏空行的代码
end sub

luojie1 2004-05-08

打赏
举报

To junglerover(灌木丛)：
关于这里：
Sub 隐藏空行()
dim obj as Object
set obj=createobject("MyDll.MyObj")

set obj.application=application '把APPLICATION对象传进DLL里
call obj.HideRows '把原来直接写在宏里的代码写到这个方法里面
End Sub

我在MYDLL的类MYOBJ里这样做：
public application as object '定义的APPLICATION对象
sub HideRows()

' 原来宏里隐藏空行的代码

end sub

在执行时出现了错误，提示是：运行时错误1004，方法作用于对象失败。
我按调试，程序运行到这一行：
Call obj.HideRows '把原来直接写在宏里的代码写到这个方法里面
是什么原因呀？还请不烦指教，多谢！

luojie1 2004-05-07

打赏
举报

To junglerover(灌木丛):
用了你的方法，userform2显示出来了。
我是第一次做DLL。有许多地方都不懂。
希望junglerover(灌木丛)以后多教教我。
多谢！

luojie1 2004-05-07

打赏
举报

请问以下语句在AAA.XLS里是可以执行的，做成DLL又不成了，是什么原因？
'1、
Private Sub CommandButton2_Click()
Unload Me
Application.Quit
ActiveWorkbook.Close savechanges:=False
End Sub
'2、
Application.CommandBars("定额").Visible = True

junglerover 2004-05-07

打赏
举报

？？？道理还是一样的啊

OFFICE似乎并没有提供在点击自定义按钮时，直接执行一段代码的功能，所以你仍然需要定义这几个宏，来做个接口。

AAA.XLS中模块1的代码：

Sub 查询定额()
dim obj as Object
set obj=createobject("MyDll.MyObj")

set obj.application=application '把APPLICATION对象传进DLL里
call obj.ShowForm1
End Sub

Sub 隐藏空行()
dim obj as Object
set obj=createobject("MyDll.MyObj")

set obj.application=application '把APPLICATION对象传进DLL里
call obj.HideRows '把原来直接写在宏里的代码写到这个方法里面
End Sub

等等等等。而自定义按钮对宏的指定关系，则不必改变。

这样，原来写了实际代码的宏就被虚化了，变成了一个接口。那么你就可以实现，在不更改宏代码的情况下，变更实际执行的操作内容的功能。

dongge2000 2004-05-07

打赏
举报

一楼满厉害的啊！

luojie1 2004-05-07

打赏
举报

多谢 junglerover(灌木丛)的热心帮助！以上问题都解决了。
再请教：
我将AAA.XLS中模块1的代码复制到VB的Class2中，集中生成一个DLL。
----------------------------
AAA.XLS中模块1的代码：

Sub 查询定额()
UserForm1.Show
End Sub

Sub 隐藏空行()
'……
End Sub

Sub 显示全部()
'……
End Sub

Function 公式(Action As String, Key As String, Src As String) As String
Dim Count As Integer, KeyPos As Integer, KeyLen As Integer, SrcAsc As Integer, test As String, offset As Integer, TmpSrcAsc, SrcPos
KeyLen = Len(Key)
'……
End Function
------------------------------

因为我是在AAA.XLS的工具栏里做三个图标，然后指定宏来分别引用：查询定额、隐藏空行、显示全部。做成DLL后，我一样要在AAA.XLS的工具栏里做三个图标分别引用到查询定额、隐藏空行、显示全部，要怎么做呀？

junglerover 2004-05-07

打赏
举报

哥们，你的逻辑真的有点问题哎。

DLL里，当然不像在VBA环境里面，能够直接获得APPLICATION, ACTIVEWORKBOOK等对象。你得把它们传进DLL里才能用啊。

应该改成这样：
AAA.XLS里：
Private Sub Workbook_Open()
dim obj as Object
set obj=createobject("MyDll.MyObj")

set obj.application=application '把APPLICATION对象传进DLL里
call obj.ShowForm2
End Sub

MYDLL的类MYOBJ里：
public application as object '定义的APPLICATION对象

Public sub ShowForm2()
'把APPLICATION和ACTIVEWORKBOOK对象传进FORM里
set userform2.application=application
set userform2.activeworkbook=application.activeworkbook

userform2.show 0
end sub

MYDLL的USERFORM2里：
public application as object
public activeworkbook as object

Private Sub CommandButton2_Click()
Unload Me
Application.Quit
ActiveWorkbook.Close savechanges:=False
End Sub

这样就可以了。

junglerover 2004-05-06

打赏
举报

？？？你这个事件处理程序是在EXCEL里面才有效的，未必你在DLL里面也还是一样的写法？
它的事件怎么能触发到DLL里呢？

应该改成这样：
AAA.XLS里：
Private Sub Workbook_Open()
dim obj as Object
set obj=createobject("MyDll.MyObj")

call obj.ShowForm2
End Sub

MYDLL的类MYOBJ里：
Public sub ShowForm2()
userform2.show 0
end sub

这样就可以了。

luojie1 2004-05-06

打赏
举报

刚才试了一下，在打开AAA.XLS时，以下的代码可以通过，UserForm2显示出来。
Private Sub Workbook_Open()
UserForm2.Show
End Sub
但是做成DLL后，为什么UserForm2不出来呀？

luojie1 2004-05-06

打赏
举报

多谢 junglerover(灌木丛) ，我先试试。

junglerover 2004-05-06

打赏
举报

你只能照着原来XLS宏里的USERFORM2，再做一个功能一样的VBFORM，添加到你的DLL里了。

要想不改任何代码而实现原来同样的功能，是不可能的。

请教Dll的做法

相关推荐