保存文本框值、VBA、Excel

我正在为excel编写一个代码，它将有一个包含文本框和按钮的表单。 按钮选择文件夹目录并将其写入文本框。 表格的一部分是这个

代码是这样的

Private Sub CommandButton1_Click()

Dim diaFolder As FileDialog
On Error GoTo ErrorHandler
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.Title = "Select a folder then hit OK"
diaFolder.Show
TextBox1.Text = diaFolder.SelectedItems(1)
Set diaFolder = Nothing

Exit Sub

ErrorHandler:
Msg = "No folder selected, you must select a folder for program to run"
Style = vbError
Title = "Need to Select Folder"
Response = MsgBox(Msg, Style, Title)

End Sub

问题是如何保存“textbox”值以在每次调用userform时显示它；它不应该依赖于工作簿中的单元格，因为它将是一个外接程序，并将从功能区按钮调用

任何想法都将不胜感激！

---

谢谢。

可能会有帮助。加载项本身有一个相关的工作簿和工作表。您可以将值存储在那里。这对您有用吗？Addin有它的工作表（例如sheet1），但是如何在不“干扰”实际活动工作簿的情况下链接该工作表中的单元格？使用

Thisworkbook.Worksheets（“SheetName”）.Range（“SomeRange”）

存储和访问值<代码>此工作簿指包含正在执行的VBA代码的工作簿，在本例中为addin.OK。谢谢我会尝试一下，并对结果发表评论。