有没有办法将数据从 .csv 导入到活动 Excel 工作表？

我有一个始终以相同名称命名的 csv 文件，名为 SO2PO.csv。我将其中的数据导入到名为“PO 数据”的 Excel 工作表中，该工作表位于名为“未结订单”的工作簿中。我需要找到一种方法将 SO2PO.csv 中的所有数据导入到 Open Order.xlsm 表 PO 数据中。

我知道这是可能的，但是怎么可能呢？有人能指出我正确的方向吗？

或者有没有办法让我可以导入放置到特定文件夹中的任何 .csv 文件？

添加此代码以在 PO 数据表中创建一个 QueryTable 到您的数据源

创建查询表后，您只需右键单击刷新数据（或打开时刷新）

Sub CSV_Import()
Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("PO Data") 'set to current worksheet name

strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please select text file...")

With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
     .TextFileParseType = xlDelimited
     .TextFileCommaDelimiter = True
     .Refresh
End With
End Sub