使用VBA将csv文件中的一些列提取到excel文件中

Question

我有一个包含很多列的csv文件，我想使用VBA从中提取6个clomuns（A，B，E，C，K，N和P）到excel表文件 这是我第一次使用vba所以我在互联网上查看我发现的是一个打开excel文件（不是csv）的代码，读取6个clomuns并将其保存到excel文件然后关闭它，但它没有使用csv文件是否有任何修改，以使此代码在csv文件上工作

这是我从工具中提取的当前csv文件，

这是文件的内容，每一行都在{}

之间

context

更新： 此代码适用于csv，这是它现在的文件的结果，但它复制了所有字段和每行给出的数据我如何通过colmuns格式化它们的方式

id;Origine;Mail;Ref;NumD;Domain;FM;MC;ForUser;Subject;CreDate;senderCell;sender;RecDate;WorkDone;enDest
{1002;;YES;DDE/785JJ596/M;QQ-85600023784563-PP8500TT;Repair;Repair and solde;Reload again;The item is defective the user should reclaim .It will be reported to the right person ;reclaim for repair;03/03/2017 10:51;New Orleans ;Jack LeGrand;2017-02-12 14:20:44.0;;;Chicago}
{10083;10069;No;MTM/85KK230Y/A;AZ-785HH01784563-PP8500TT;Vendor;Solde;New item;a new item will be solde as second use;Sole the Item;01/04/2017 17:15;washington;Bruce Liam;2017-03-12 15:35:40.0;Gais Said;Nivada}
{203569;;YES;QQA/8569PP00/P;SD-44UJ986XX1000-WW001258;ABORT;ABORT for non use;Item defected;Item defective problem explicit,Reuse is not an option;User reject the Item please give your opinion;01/02/2017 10:15;mississippi;David  Los;2017-01-22 19:35:40.0;Berlingo fraudi;mississippi}

Answer 1

这些行：

Workbooks("myExcel").Sheets("Feuil1").Range("A:B").Copy Workbooks("wantedFile").Worksheets("Feuil1").Range("A:B")

需要看起来更像这样：

myExcel.Sheets("Feuil1").Range("A:B").Copy wantedFile.Worksheets("Feuil1").Range("A:B")