更改VBA常量的值

我有一个函数，我设置VBA常量如下：

Const KEY_TEXT As String = "mycystomtext" 

有没有办法改变VBA常量编程不同的文本？

我试图定义：

 Const KEY_TEXT As String = Range("A1").value 

但这会导致错误。

Answer 1

根据定义，常数不能在初始化后改变。 它在定义variables时必须被初始化。

Answer 2

我正在回答我自己的问题，具体是：

有没有办法改变VBA常量编程不同的文本？

 Sub replace_run() Dim s As String Dim i As Long Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As VBIDE.CodeModule With Application .EnableEvents = False .ScreenUpdating = False .DisplayAlerts = False End With s = ThisWorkbook.Path wcodestring = s & "\myfile.xlsm" Workbooks.Open FileName:=wcodestring Set wb_code = Application.Workbooks("myfile.xlsm") Set VBProj_xl = Application.Workbooks("myfile.xlsm").VBProject Set VBProj = wb_code.VBProject Set VBComp = VBProj.VBComponents("Module1") Set CodeMod = VBComp.CodeModule With CodeMod For i = 1 To .CountOfLines If .Lines(i, 1) = "Const KEY_TEXT As String = " & Chr(34) & "mycystomtext" & Chr(34) Then .ReplaceLine i, "Const KEY_TEXT As String = " & Chr(34) & "mycystomreplace" & Chr(34) End If Next i End With wb_code.Close SaveChanges:=True Application.ScreenUpdating = True End Sub