DLL文件是应用程序文件的扩展，也就是我们使用的一些应用程序附带的一些功能文件，以及一些情况下不可或缺的文件。

尤其是在VBA开发中，仅仅使用Excel提供的一些控件已经不能很好的满足我们的需求，应该扩展其他功能来丰富我们的应用操作。

本节介绍如何注册DLL文件。当然，它不仅适用于VBA控件注册，也适用于其他Windows系统控件注册。本质上是一个很简单的工具，只在Excel平台下操作。

下图是操作界面。

可以看到界面没什么特别的，一个组合框，三个按钮。

组合框自动在计算机的目录中搜索Dll文件。这是自动完成的。"选择目录& # 34；按钮可以打开文件对话框，自定义要搜索的文件夹。

注册和注销按钮分别注册和注销DLL文件。

在本例中，注册了一个名为CheckDate.dll的文件。

接下来，看代码。

整个过程只有两行重要代码，附加代码再多，其实也没什么意义，有意义。

意义在于实现了一些操作者知道但不知道的过程。

以下是获取某个目录下的Dll文件的过程:

私有函数getDllName(xPath为字符串) Dim dArr()，di为整数 Dim dllName为字符串 If VBA。Len(xPath) = 0，则xPath = ThisWorkbook。path dllName = Dir(xPath & # 34；*.Dll & # 34，VB normal) If dllName = & # 34；"然后 ReDim dArr(0) dArr(0)= & # 34；" getDllName = dArr Exit函数 Else ReDim Preserve dArr(di) dArr(di)= dllName End If Do While dllName & lt；& gtdArr(0) di = di+1 dllName = Dir(this workbook。路径& & # 34；*.Dll & # 34，VB normal) Dovents MSGBOX DLLNAME Stop Loop GetDLLNAME = DARR Erase DAR End函数注册过程代码

'注册控制 子登录(DLLNAME作为字符串) shell & # 34；regsvr 32/s & # 34；& Chr(34) & ThisWorkbook。路径& & # 34；"& dllName & Chr(34) 结束Sub注销流程代码

'Control logout note /u后跟空case sub unilog in(dll name as string) shell & # 34；regsvr 32/s/u & # 34；& Chr(34) & ThisWorkbook。路径& & # 34；"& dllName & Chr(34) 结束子注册按钮代码

private Sub command button 1 _ Click() Dim dll name As String dllName = VBA。修剪(我。combobox 1 . Value) 如果VBA。Len(dllName) = 0，然后退出Sub log in dll name MsgBox & # 34；注册成功！"，vbInformation，& # 34；成功& # 34； 结束订阅注销按钮代码

private Sub command button 2 _ Click() Dim dll name As String dllName = VBA。修剪(我。combobox 1 . Value) 如果VBA。Len(dllName) = 0，然后退出Sub unlog in dll name MsgBox & # 34；注销成功！"，vbInformation，& # 34；成功& # 34； End Sub一般来说，如果你对Dll文件的功能有所了解的话，使用这个工具真的很容易。不信你可以试试。

如果你对控件引用没有一定的了解，你可能会很困惑，但没关系。当你有一天突然学到这一点的时候，你会恍然大悟，原来如此。

生活是从一个未知到另一个已知的过程。当你今天看不起之后才知道昨天的努力不仅仅是微笑，说明昨天的无知真的是一件很幸福的事。

欢迎，收藏

-结束-