excel vba读取文本文档内的代码段，并执行

excel小白白2

       如题，求助一下各位。我目前的情况是，有批量的.xlsm文档，是由同一个模板复制而来（内部代码段相同，表格初始内容有区别），用于处理并记录不同规格产品的数据；后期发现部分代码需要更新逻辑修改代码时，要在每个表格内逐一进行修改，非常繁琐。所以，我目前的一个想法就是，将通用的代码段外置，每个.xlsm文档用类似于调用子程序的方式调用代码段，来执行。这样维护时，只需要对外置的代码段更新一次就行。

       请教一下各位高手，我上面的这种想法，在VBA中有较为方便的实现手段吗，或者同样的能达成批量的vba代码维护的功能方法。感激不尽！

excel小白白2

现我现在只能实现一些外置字符串、常量的外置读取，但是读取代码段到vba中，然后还能顺序执行的，目前还没找到办法

边缘码农

使用VBA在VBE中插入一个模块，在这个模块中插入一个宏，文本文件的内容作为这个宏的代码，然后执行这个宏。

ykcbf1100

我的经验是：把通用代码存在一个xlam文件中，使用时调用这些模块就行了。这样，只要改这个xlam文件中的代码就行了。

excel小白白2

边缘码农 发表于 2023-6-29 14:21
使用VBA在VBE中插入一个模块，在这个模块中插入一个宏，文本文件的内容作为这个宏的代码，然后执行这个宏。

前面几步都行，就是具体到 以文本文件内容做宏代码时，不知道怎么处理

Yalishanda30

excel小白白2 发表于 2023-6-29 14:37
前面几步都行，就是具体到 以文本文件内容做宏代码时，不知道怎么处理

可以考虑VBS脚本，Excel调用脚本，Excel本身可以没有代码

excel小白白2

Yalishanda30 发表于 2023-6-29 14:41
可以考虑VBS脚本，Excel调用脚本，Excel本身可以没有代码

嗯嗯，对的，就是想用类似脚本的东西，解决通用代码维护啥的，我去找找看这类资讯

excel小白白2

ykcbf1100 发表于 2023-6-29 14:33
我的经验是：把通用代码存在一个xlam文件中，使用时调用这些模块就行了。这样，只要改这个xlam文件中的代码 ...

嗯嗯，谢谢啦， xlam我还从来没接触过，我去找找相关的帖子

边缘码农

Sub test()
    '------------------------------
    '测试：插入模块，将文本文件中的完整的宏代码写入模块中，并执行。
    '------------------------------
    '定义变量
    Dim TxtFile As String '文本文件名称
    Application.DisplayAlerts = False
    TxtFile = ThisWorkbook.Path & "\code.txt" '取得保存代码的文件文件
    ' 测试是否存在相应的代码，如有，则删除
    For Each oldModel In Modules
        If oldModel.Name = "TxtFileCode" Then
            oldModel.Delete
            Exit For
        End If
    Next
    '创建新模块
    Set NewModel = Application.Modules.Add
    NewModel.Name = "TxtFileCode"
    NewModel.InsertFile TxtFile
    Application.Run ("Hello")
    Application.DisplayAlerts = True
End Sub
文本文件的内容，就是一个完整的宏代码。

实际使用过程中还需要认真测试，不知道会遇到什么错误提示。

边缘码农

回复审核中。