以编程方式从源代码构建 XLA

Question

我有一个（版本控制的）VBA 插件导出组件的文件夹（即很多 cls、frm、frx、 bas 和 txt 文件）。有人可以给我一个构建脚本（可以是 VB 脚本，或更复杂的脚本），该脚本采用此文件夹的名称并生成（工作）XLA 吗？

我知道您可以以编程方式修改 XLA 文件（例如这个问题），所以它不应该编写一个创建空 XLA 的脚本，然后循环遍历文件夹中的所有文件以将它们添加到其中是否太难了...？

谢谢，

尼克

（编辑：Excel 2003，如果有什么不同的话）

Answer 1

我在 Excel 工作簿中使用一个非常简单的 VBA 宏来执行基本相同的操作，只是我没有任何表单，并且我在格式化文本文件中有一些单元测试信息。由于 VBA 与 VBScript 非常相似，并且下面的代码使用 VBScript 应该可用的文件系统和 Excel 对象模型内容，因此也许它对您有用。

这是 .bas 模块的摘录。我将其放入空白工作簿中，然后将文本文件放入该工作簿所在的任何目录中，然后运行导入。将其重新调整为更正式的用途应该很容易，无论是针对不同的新创建的工作簿的加载项还是在 Excel 之外完成整个构建的脚本：

'...

Private fs_ As FileSystemObject

'...

Private Sub import_()
    On Error GoTo EH

    Set fs_ = New FileSystemObject

    Call importTests_(Application.ThisWorkbook, Application.ThisWorkbook.path)
    Call importCode_(Application.ThisWorkbook, Application.ThisWorkbook.path)

    Exit Sub

EH:
    Debug.Print "Error in import_: " & Err.Number
End Sub

'...
'stuff about importing tests ignored...
'...

Private Sub importCode_(wbk As Workbook, folderName As String)
    Dim folderObj As Folder
    Set folderObj = fs_.GetFolder(folderName)

    Dim fileExt As String

    Dim fileObj As File
    For Each fileObj In folderObj.Files
        fileExt = fs_.GetExtensionName(fileObj.name)

        If fileExt = "bas" Or fileExt = "cls" Then
            Call wbk.VBProject.VBComponents.Import(fileObj.path)
        End If
    Next fileObj
End Sub

'...

我不知道导入有什么问题因为我从来没有在 Excel 中使用过它们。