使用文件选择器保存文件路径

Question

我已经通过带有按钮的用户表单编写了以下代码。在表单上，​​我创建了三（3）个单独的命令按钮，用于保存不同的文件路径以打开现有的excel工作簿。这个想法是让vba以完全自动化的方式自动打开/关闭工作簿。

Dim SCDMMRReport As FileDialog
Dim ActionClicked As Boolean

Set SCDMMRReport = Application.FileDialog(msoFileDialogFilePicker)

SCDMMRReport.InitialFileName = "J:\INS\CAS\G22 PRT Report"
SCDMMRReport.AllowMultiSelect = False

ActionClicked = SCDMMRReport.Show

If ActionClicked Then
   SCDMMRReportCommandButton.Visible = False
   SCDMMRReportLabel.BackColor = rgbLightGreen
   SCDMMRCheckBox = True
Else
    MsgBox ("No file selected!")
    SCDMMRReportCommandButton.BackColor = rgbPink
    SCDMMRReportLabel.BackColor = rgbPink
End If

一切都显示得很好，但是，当需要稍后在脚本中调用此代码时（当我按下执行命令按钮时），不会保存文件路径。任何建议，我们将不胜感激！

谢谢

德里克