csv导入excel与macros

我想借助macros（Visual Basic）在Excel工作表中读出分号（ ; ）分隔的* .csv文件。

我不需要* .csv文件中的所有数据; 我只需要三个定义的列。 这三列应该导入到目标Excel工作表的已定义列中。

任何build议？

Answer 1

这个任务有两个步骤：

1. 循环访问您的文件http://www.ozgrid.com/VBA/loop-through.htm中的所有.csv文件

2. 查看每个工作簿中的所有电子表格

    Dim ws as Worksheet Set ws = wb.Worksheets(1) ' Set wb = Workbooks.Open( Your files ) in step 1 ' Copy columns here 

成品