大量节省xls作为csv

这是诀窍。 必须转换'从xls到csv大约300个文件，写了一些简单的macros来做到这一点，这里是代码：

Dim wb As Workbook For Each wb In Application.Workbooks wb.Activate Rows("1:1").Select Selection.Delete Shift:=xlUp ActiveWorkbook.SaveAs Filename:= _ "C:\samplepath\CBM Cennik " & ActiveWorkbook.Name & " 2010-04-02.csv" _ , FileFormat:=xlCSV, CreateBackup:=False Next wb 

但它不完全是我想要的 – 将文件“example.xls”保存为“example.xls 2010-04-02.csv” ，我需要的是“example 2010-04-02.csv”

需要支持的人）;）

Answer 1

您可以尝试删除文件名中的扩展名。

而不是ActiveWorkbook.Name使用

 Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) 

去除最后的一切. 在文件名（包括. ）中。

Answer 2

一个快速和肮脏的方法是

 Replace(ActiveWorkbook.Name, ".xls", "") 

Answer 3

local := true – 从“控制面板”区域设置中获取值，因此将该variables作为分隔符而不是“，”（逗号）。 奇妙