excel - 跨多个模块的文件名

Question

我有 5 个包含相同文件名的不同模块。例如模块 1-5 有这个代码
sFile = "CIP Split.xlsx 的数据文件"
我想为所有模块更新一次此文件名，但不知道如何执行此操作。

试图将其公开，但可能没有正确完成

Sub ALL_Run_First()

    Application.ScreenUpdating = False
    Dim Wb As Workbook
    Dim usedrng As Range, lastrow As Long
    Dim sFile As String
    Set usedrng = ActiveSheet.UsedRange
    lastrow = usedrng(usedrng.Cells.Count).Row

    sFile = "Data File for Test Split.xlsx"     
    sFile1 = "Test Template.xlsm"        

    Application.DisplayAlerts = False     

    If CheckFileIsOpen(sFile) = False Then        
        Workbooks.Open stPath & sFile, UpdateLinks = False
    End If
    Application.DisplayAlerts = True

当我尝试做 public const 时，我得到文件找不到。
模块 1-5 具有相同的代码，因此我希望在更改文件名时更新所有模块(通常每年一次)

感谢所有帮助它的人，真的很感激!我创建了一个隐藏的设置表，并让它在代码中引用该表。

sFile = ThisWorkbook.Sheets("设置").Range("A2").Value

SFile1 = ThisWorkbook.Sheets("设置").Range("A3").Value

我更新了所有模块以使用它，现在我只需要更新设置表，它就会提供其余模块。

Answer 1

看起来您正在寻找的是 Public Const - 见下文:

模块一:

Public Const mystring = "Hello!"
Sub Test()

'There's nothing here!

End Sub

模块 2:

Sub Test2()

MsgBox mystring

End Sub

并运行 Test2产生: