Excel 如何为对话框创建宏，在对话框中选择目录路径并复制；第1页“；“另一页”；A「；在另一个工作簿中？

所以基本上我想创建一个对话框，当我打开工作簿“Summary.xlsm”时，它会自动弹出。 通过此对话框，我希望能够为excel文件（.xlsx、.xls）选择目录路径。 然后，提交对话框后，我希望宏自动从所选源获取“Sheet1”，并将其作为工作表“A”放入工作簿中。（我不关心此过程是否涉及在输入之前/之后将工作表重命名为“A”，或者是否将工作表1中的所有数据复制到目标工作簿中的工作表“A”中）

理想情况下，我希望有一个对话框，在该对话框中，我可以在左侧键入产品类型（即“a”、“B”等），然后选择左侧的目录路径（即“C:\Users…”），如果我获得更多产品类型，可以选择添加其他行

下面是我希望对话框理想状态的图片：

我刚开始自学vbs，现在已经是我使用vbs的第三天了，所以我非常感谢您的帮助。即使是一些零碎的帮助，比如如何创建一个对话框来传输工作表，也会很有帮助。

---

我所描述的是我的理想，但更基本的系统也可以。谢谢！！

基本上，我看到您需要从中创建用户。此链接应该有助于从中创建用户，甚至有助于从中创建用户

第二步是识别目录。因此，在用户窗体中添加一个按钮，并在单击事件中调用此按钮

Function GetFolder(strPath As String, strTitle As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
    .Title = strTitle
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

函数GetFolder（strPath作为字符串，strTitle作为字符串）作为字符串
Dim fldr As FILE对话框
以字符串形式显示
设置fldr=Application.FileDialog（msoFileDialogFolderPicker）
与fldr
.Title=strttle
.AllowMultiSelect=False
.InitialFileName=strPath
如果.Show-1，则转到下一个代码
sItem=.SelectedItems（1）
以
下一个代码：
GetFolder=sItem
设置fldr=无
端函数

参数是对话框的默认位置（strPath）和标题 （strTitle）。这将打开文件夹选择器以选择所需的目录。

要在打开工作表时运行代码，可以查看以下链接

---

希望这能帮助您入门。

您需要的是一个用户表单。请与谷歌联系，了解如何创建一个用户表单。介绍了如何操作和使用输入。非常感谢！我最终修改了您给我的代码，以便创建“浏览”。。“Userform上的命令按钮，实际将目录文件文本输入到与其相邻的文本框中。但是你的帮助让我昨天走上了正确的道路，今天我完成并整理了我的剧本，这一切都要感谢你！