暗淡和设置所有模块excel vbavariables

我有很多项目，我有多个模块相同的variables。 在每个模块中，我调暗并设置variables，每次variablestypes相同，并具有相同的值。 如何在整个项目/工作簿中变暗和设置variables？

例如：（我有一个工作簿中的许多模块，我不得不重复下面的所有内容以及许多其他类似的variables，这些variables在模块中不会改变）

Sub PullSFAFiles() Dim Wb As Workbook Dim WsSFAFiles As Worksheet Dim WsAllCourses As Worksheet Dim rngAllCourses As Range Dim rngCourse As Range Dim LoSFAFiles As ListObject Dim rngPreviousFiles As Range Dim rngRemoveLines As Range Dim strCourse As String Dim strApp As String Dim strPeCFldrPath As String Dim strFileLocation As String Dim strFileNm As String Dim objFile As Object Dim intSFARow As Integer Dim intCourseRow As Integer Dim intPFilesRow As Integer Dim dtLastUpdate As Date Dim intNumRemove As Integer Set Wb = ThisWorkbook Set WsSFAFiles = Wb.Sheets("sfafiles") Set WsAllCourses = Wb.Sheets("allcourses") Set rngAllCourses = WsAllCourses.Range("tblAllCourses[CourseName]") Set LoSFAFiles = WsSFAFiles.ListObjects("tblSFAFiles") strEBTypeFolder = "Exercise Booklet" strEBfiletype = "EB" strCISTypeFolder = "Classroom Information Sheet" strCISfiletype = "CIS" intCourseRow = rngCourse.Row - 1 strCourse = rngCourse.Value strApp = WsAllCourses.Range("tblallcourses[application]").Rows(intCourseRow) strPeCFldrPath = "\\Cx138\training\Live\Credentialed Trainers\" strEBFileLocation = strApp & "\" & strTypeFolder & "\" & strCourse & "_" & strEBfiletype & "*" & ".pdf" strEBFileNm = Dir(strPeCFldrPath & "\" & strEBFileLocation) strCISFileNm = Dir(strPeCFldrPath & "\" & strCISFileLocation) 

Answer 1

使用Publicreplacevariables声明Dim 。 从而：

 Public rngCourse as Range Public strCourse As String 

在模块级声明它们。