有没有办法让 Excel VBA 宏提示输入文件？ [复制]

Question

我公司的临床软件有一个内置的报告功能，然后可以将结果导出到 Excel 电子表格。

我们的一位客户正在提取营业额报告并由转诊医生对其进行过滤。问题在于每个转诊医生都有一个唯一的执业编号，由于报告模块的限制，该编号作为文本放置在医生姓名旁边，例如。 史密斯博士（公关编号：1234567）

不幸的是，客户是那些希望将练习编号放在单独列中的困难客户之一。我做了一些研究，发现我可以从启用宏的 Excel 电子表格中运行 VBA 宏，该电子表格可以将更改应用到另一个 Excel 电子表格中。我可以使用宏来提取练习编号并将其保存到新列中。现在我发现可以影响特定文件名或特定文件位置内的所有 xlsx 文件。

我找不到的是 VBA 代码，用户可以在其中运行宏，并询问用户他们想针对哪个文件运行宏。

这可能吗？

Answer 1

您正在寻找的可视化组件是所谓的“打开文件对话框”（或“打开文件对话框”）。一个简单的 Google 搜索让我看到了以下代码：

Dim strFile As String 
strFile = Application.GetOpenFilename(FileFilter:="Excel files (*.xlsx*), *.xlsx*", Title:="Choose an Excel file to open", MultiSelect:=True)

正如第一个 cmets 中提到的，关于这个主题的帖子相当多。