Сохраняйте значение глобальной переменной в модулях

Добрый день

Я создал глобальную переменную в своем скрипте. Он правильно сохраняет переменную над модулем, но не сохраняет содержимое переменной. Есть ли способ сохранить его?

Я пробовал с

      Set ProcessFileName = ActiveWorkbook.Name

Но эта строка возвращает мне ошибку.

Я пробовал как с Global, так и с Public.

Мой код:

      Option Explicit
Global FirstDay As Boolean
Global ProdPreviousFileName  As String
Global WMsgBox As Integer
Global PreviousDate As String
Global PreviousFile As String
Public ProcessFileName As String

Sub Auto_Open()

 ProcessFileName = ActiveWorkbook.Name 'This is the Variable I want to keep the contain
    
Sheets("GENERAL INFORMATION").Select
Range("A1").Select


WMsgBox = MsgBox("Start Compliancy Report Building ?", vbQuestion + vbYesNo)

If WMsgBox = vbYes Then
    WMsgBox = MsgBox("Is is the first business day of the week ?", vbQuestion + vbYesNo)
    If WMsgBox = vbYes Then
        FirstDay = True
        PreviousFile = Application.GetOpenFilename( _
        Title:="Select previous available Compliancy Report")
    Call Module1.DEFINE_PROD_VARIABLES

    Else
    FirstDay = False
        PreviousFile = Application.GetOpenFilename( _
        Title:="Select previous available Compliancy Report")
    Call Module1.DEFINE_PROD_VARIABLES
    End If
Else
End If
End Sub

0 ответов

Другие вопросы по тегам