как вернуть значение переменной из одного модуля в другой?

Question

первый модуль ..

Public Sub Directory_Path() 
Dim Directory As String 
    Directory = InputBox("Enter the Directory path that contains folders ""This Quarter"",""Last Quarter"",""Second_Last_Quarter"".") 
    If Right(Directory, 1) = "\" Then 
    Directory = Left(Directory, Len(Directory) - 1) 
    End If 
End Sub 

я назвал первый модуль 2 модуля с использованием Public Sub Directory_Path(). Я хочу Directory переменную в первом модуле, которая будет использоваться в качестве переменной во втором модуле ... Помогите мне. Я что-то пропустил ... Если этот вопрос повторяется, ответьте мне, и я удалю этот пост.

Answer 1

Наиболее очевидным решением является просто сделать его функцию ...

Public Function Directory_Path() As sting 
    Dim Directory As String 
    Directory = InputBox("Enter the Directory path that contains folders " & _ 
       """This Quarter"",""Last Quarter"",""Second_Last_Quarter"".") 
    If Right(Directory, 1) = "\" Then 
     Directory_Path = Left(Directory, Len(Directory) - 1) 
    Else 
     Directory_Path = vbNullString 
    End If 
End Function 

... и затем вызвать функцию:

Debug.Print Directory_Path 

Обратите внимание, что вместо того, чтобы требовать от пользователя ввести путь, вы можете использовать FileDialog вместо этого:

Public Function Directory_Path() As String 
    Dim prompt As FileDialog 
    Set prompt = Application.FileDialog(msoFileDialogFolderPicker) 
    With prompt 
     .Title = "Select Directory path that contains folders " & _ 
       """This Quarter"",""Last Quarter"",""Second_Last_Quarter""." 
     .AllowMultiSelect = False 
     If .Show <> 0 Then Directory_Path = .SelectedItems(1) 
    End With 
End Function