☰

Excel 宏构建：如何从下载中提取 .csv 和 .xlsx 文件

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 macros csv xlsx
Excel 宏构建：如何从下载中提取 .csv 和 .xlsx 文件

我正在开发一款工具来帮助我的企业订购产品。目前，我们有一个工具可以从我们的下载文件夹中提取所有 .csv 文件并将其添加到一个 excel 工作簿中。

我也想让它提取一个 .xlsx 文件。我不知道如何更改我的宏代码以将这个工作簿包含在我们的工具中。这是目前仅适用于 .csv 文件的宏。

获取工作表 - 将所有下载的报告拉入此工作簿 - 仅在 Ordering_Tool 选项卡上使用

Sheets("Ordering_Tool").Select
Path = "C:\Users\jenel\Downloads\"
Filename = Dir(Path & "*.csv")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

答案1

我明白了，我只需要更改一行。我将其更改为 Filename = Dir(Path)

这样它就会从下载文件夹中拉出每个文件，而不仅仅是下载文件夹中的 .csv 文件。

相关内容