将一批 csv 的第一行抄进 Excel

某目录下有一批结构相同的 csv 文件:

stock_301500.csv

stock_320688.csv

CODE,DT,OP,CL

301500,2023-06-02,71,67.8

301500,2023-06-05,79.35,72.61

301500,2023-06-06,75.8,77.65

CODE,DT,OP,CL

320688,2023-06-02,33,32

320688,2023-06-05,28.37,30.23

320688,2023-06-06,27.19,28.54

请将每个 csv 的第 1 行(不含列名),写入一个 Excel 文件。


A

B

C

D

1

CODE

DT

OP

CL

2

301500

2023-06-02

71

67.8

3

320688

2023-06-02

33

32

SPL IDE中编写代码:

=T("result.xlsx": directory@p("D:\\data\\*.csv").(T(~)(1)))

函数directory@p按通配符列出文件名,带全路径。函数T通过文件名后缀按特定格式读取或写入文件。~表示当前成员,1)表示第1行。

来源:https://stackoverflow.com/questions/78222822/vba-to-copy-all-top-rows-from-files-in-the-same-folder-and-merge-into-1-file