来自路径的 vba 文件 - VBA

在使用 VBA 开发的过程中，我们有时需要使用其他 VBA 文件中的代码或函数，这就需要我们引入来自其他文件路径的 VBA 文件。

引入 VBA 文件的两种方式

1. 手动引入

手动引入 VBA 文件，即在 VBA 编辑器中选择“文件”-“导入文件”，然后选择要引入的文件路径即可。引入后，我们就可以在当前文件中使用该文件中的代码或函数。

2. 自动引入

自动引入 VBA 文件，即将要引入的文件路径写入 VBA 代码中，在 VBA 代码执行时，系统会自动引入该文件。代码如下：

' 引入路径为 "D:\VBA\Funcs.vba" 的 VBA 文件
Private Const FuncsPath As String = "D:\VBA\Funcs.vba"
Private Function GetFileContent(ByVal FilePath As String) As String
    Open FilePath For Binary As #1
    GetFileContent = Space$(LOF(1))
    Get #1, , GetFileContent
    Close #1
End Function
Private Sub AutoImportVbaFile()
    Dim FuncsCode As String
    FuncsCode = GetFileContent(FuncsPath)
    ThisWorkbook.VBProject.VBComponents.Import FuncsPath
End Sub

在上面的代码中，我们首先定义了一个 FuncsPath 常量，值为要引入的 VBA 文件的路径。然后，我们在 AutoImportVbaFile() 函数中使用 GetFileContent() 函数读取该文件的内容，再通过 ThisWorkbook.VBProject.VBComponents.Import 方法将该文件导入到当前文件中。

总结

通过手动或自动引入其他 VBA 文件，我们可以方便地复用其他文件中的代码和函数，提高我们开发 VBA 代码的效率。而自动引入文件还可以在代码执行时自动引入，避免了每次手动引入的繁琐操作。