Question

传递值时遇到问题。我试图在Userform和模块之间传递它们。我认为这一定是个问题所以我把子程序放在同一个用户窗体中。我的值仍然传递但它没有传回第一个子程序。我迷路了正在发生的事情......

Private Sub rob_wnioski_but_Click()

Dim wnioski_path As String

wybor_pliku klient_path:="", opcja:=1

MsgBox (klient_path)

End Sub


Private Sub wybor_pliku(ByRef klient_path As String, opcja As Integer)

Start.Hide   

With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False 'tylko jeden plik

    If .Show = True Then: klient_path = .SelectedItems(1)

End With

Unload Start

End Sub

Answer 1

您需要将变量传递给wybor_pliku。你正在做的是传递一个文字（空字符串）。您需要在_Click过程中将klient_path声明为变量，然后像这样调用wybor_pliku：

wybor_pliku klient_path, opcja:=1

在Userform中传递值

1 个答案: