DLL文件是应用文件的扩展，就是我们使用的一些应用程序附加的一些功能性文件，某些情况下是必不可少的一些文件。

特别是在VBA开发的时候，仅仅使用Excel提供的一些控件是不能很好地完成我们的需要的，那么就用扩展其它功能来丰富我们的应用操作。

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

下图为操作界面

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

组合框里自动搜索出电脑某一目录中的Dll文件，这个是自动进行，"选择目录"按钮可以打开文件对话自定义要搜索的文件夹。

注册和注销两个按钮分别进行DLL文件的注册和注销。

示例图中注册了一个名为:CheckDate.dll的文件。

接下来，看一下代码。

整个过程中重要代码只有两行，附加的一些代码就比较多了，其实没有意义，也有一些意义。

意义在于实现一些本来知道但操作人并不知道的一些过程。

下面这个过程就是获取某目录下的Dll文件过程：

Private Function getDllName(xPath As String)    Dim dArr(), di As Integer    Dim dllName As String    If VBA.Len(xPath) = 0 Then xPath = ThisWorkbook.Path       dllName = Dir(xPath & "\*.Dll", vbNormal)    If dllName = "" Then        ReDim dArr(0)        dArr(0) = ""        getDllName = dArr        Exit Function    Else        ReDim Preserve dArr(di)        dArr(di) = dllName    End If    Do While dllName <> dArr(0)        di = di + 1        dllName = Dir(ThisWorkbook.Path & "\*.Dll", vbNormal)        DoEvents        MsgBox dllName        Stop    Loop    getDllName = dArr    Erase dArrEnd Function

注册过程代码

'注册控件Sub login(dllName As String)   Shell "regsvr32 /s " & Chr(34) & ThisWorkbook.Path & "\" & dllName & Chr(34)End Sub

注销过程代码

'注销控件 注意/u 后面加空格Sub unlogin(dllName As String)   Shell "regsvr32 /s /u " & Chr(34) & ThisWorkbook.Path & "\" & dllName & Chr(34)End Sub

注册按钮代码

Private Sub CommandButton1_Click()Dim dllName As StringdllName = VBA.Trim(Me.ComboBox1.Value)If VBA.Len(dllName) = 0 Then Exit Sublogin dllNameMsgBox "注册成功！", vbInformation, "成功"End Sub

注销按钮代码

Private Sub CommandButton2_Click()Dim dllName As StringdllName = VBA.Trim(Me.ComboBox1.Value)If VBA.Len(dllName) = 0 Then Exit Subunlogin dllNameMsgBox "注销成功！", vbInformation, "成功"End Sub

总得来说，如果对Dll文件功能有一些了解，那么使用这个工具真的很省心，不信可以试试。

如果没有对控件引用有一定的了解，可能就不知所云了，不过没关系，当某一天突然学到这个地步的时候，会恍然大悟，原来如此。

人生就是从一个又一个未知到一个又一个明白的过程，当明白昨天的努力，只不是今天低头沉思后的微笑的时候，说明昨天的无知真的是一件很快乐的事情。

欢迎关注、收藏

---END---