![Excel 宏构建:如何从下载中提取 .csv 和 .xlsx 文件](https://linux22.com/image/1625164/Excel%20%E5%AE%8F%E6%9E%84%E5%BB%BA%EF%BC%9A%E5%A6%82%E4%BD%95%E4%BB%8E%E4%B8%8B%E8%BD%BD%E4%B8%AD%E6%8F%90%E5%8F%96%20.csv%20%E5%92%8C%20.xlsx%20%E6%96%87%E4%BB%B6.png)
我正在开发一款工具来帮助我的企业订购产品。目前,我们有一个工具可以从我们的下载文件夹中提取所有 .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 文件。