将MS Excel保存为CSV文件

简介：我正在编写一个VBAmacros，它从一个源导入数据，然后在MS Excel文件中修改它，然后将它按照正确的顺序放在名为WegschrijfSheet的第一个表中。 然后将此工作表复制到来自此文件的第一个工作表之前的新MS Excel文件。 （这部分工作正常。）

主要问题：

现在我想将这个文件保存为CSV文件。 我的代码这样做，但还没有以我想要的方式。 首先在A1，B1，C1，H1等中的文本和/或值合并到单元格A1中。 它为所有的行做到这一点。 空的行充满了标志。 结果示例：

Productieorder，228767 ,,,,,,,,,,

Artikelnummer，4022 631 79951 ,,,,,,,,,,

Bewerkingsnummer，14 ,,,,,,,,,,

Bewerkingsrevisie，1 ,,,,,,,,, Bestandslocatie ophalen：，Z：\ Parts Manufacturing \ 5。 Kwaliteit \ 130 – 在这个过程中\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

（在每一个,它应该跳转到下一个单元格。）

解决这个问题的方法之一是将我的PC设置从欧洲改为美国。 哪里. 是小数分隔符，反之亦然，但是以小数由a定义的值结束. 会使我无法使用我用来分析数据的软件的文件。

我可以用另一个分隔符来解决这个问题吗？

我知道如何手动select另一个分隔符，但不知道如何在VBA中做到这一点。 或者更好的是，还有其他解决scheme吗？

（PS这个macros必须转换至less600个MS Excel文件，并计数。因此，手动转换所有文件不是一个选项。）

这是我的代码：

 ActiveWorkbook.SaveAs FileName:= _ "Z:\Parts Manufacturing\5. Kwaliteit\130 - in proces meten\macro voor oude excel bestanden omzetten\Wegschrijflocatie\4022 631 79951#14#" & Sheet1.Range("B1").Value & ".csv", _ Fileformat:=xlCSV, CreateBackup:=False