Я сталкиваюсь с ошибкой «Требуется константа» при попытке использовать строковую переменную.
Когда я принудительно инициализирую как MyString = "Test"
, я получаю сообщение об ошибке в этой строке:
Const Test1= "DocRenew" & MyString & "docx"
Я попытался использовать Debug.Print MyString
и увидел, что строка MyString
остается пустой.
Я что-то здесь не так делаю? У меня есть эта проблема, потому что я пытаюсь добавить переменную в Const
?
Ниже полного кода, если вы хотите проверить, есть ли у вас такая же проблема, как у меня
Sub Test()
Dim MyString As String
Dim TestVar As String
Dim DocType1 As Boolean
Dim DocType2 As Boolean
DocType1 = True
DocType2 = False
MyString = "."
If TestVar = "Monsieur" Then
MyString = "Homme."
End If
If DocType1 = True Then
Const Test1 = "DocRenew" & MyString & "docx"
End If
If DocType2 = True Then
Const Test2 = "DocTest.docx"
End If
End Sub