如何使用FileDialog导入选定的工作表?

我目前正试图组装一个主要的工作簿,将从其他文件导入数据。 用户应该能够使用FileDialogselect一个文件,到目前为止工作正常。 目前不能工作的是试图导入一个工作表,用户应该能够在用户窗体中进行select。 至于我的testing已经到目前为止有两种select:

  • 将两个combobox放在用户窗体中的每个静态值(一个用于文件名,一个用于工作表名称)。 由于import单将永远是一个选定的types和工作表应该都具有相同的名字在未来可以工作,但只有这些条件将始终得到满足。
  • 用户窗体上的一个combobox,显示要导入的工作簿的工作表名称(因为无论如何要将值复制到主工作簿,应该可以将工作表名称parsing到combobox中)。

我试图甚至可能使用VBA实现的是什么?

到目前为止,我一直无法将工作表名称导入combobox并导入数据。

这里有个简单的例子:

With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False 'Show and check whether file is selected If .Show Then 'you might wanna check if an excel workbook has been selected, or filter the filedialog upfront Dim wbSource As Workbook Dim ws As Worksheet 'Open Workbook Set wbSource = Application.Workbooks.Open(.SelectedItems(1)) 'Loop through the available sheets For Each ws In wbSource.Sheets MsgBox ws.name Next End If End With 

这应该让你开始 – 而不是显示名称只是将其添加到您的combobox。 之后,您可以继续导入通过复制和粘贴的工作表