(若是和其他不同软件互动之问题 请记得一并填写)
软件:excel
版本:2016
各位好，初入VBSA
参考版上的批量xls转csv
做了一些修改
因为转存的csv会依照原本xls档名来取sheet名称
能否转出csv时，sheet的名称想同步取名为"sheet0"
或者是能够依照原本xls的sheet名称同步移植过去?
Option Explicit
Sub Ex()
Dim xlpath As String, xlfile As String
Dim xlpathout As String
xlpath = "D:\研4\" '要转档路径
xlpathout = xlpath & "csv\" '转档储存路径
MkDir xlpath & "csv\" '创转档存的资料夹
xlfile = Dir(xlpath & "*.xls")
Do While xlfile <> ""
With Workbooks.Open(xlpath & xlfile)
.SaveAs Filename:=xlpathout & Replace(xlfile, "xls", ".csv"),
FileFormat:=xlCSV
.Close SaveChanges:=True '关闭 档案 ,存盘
End With
xlfile = Dir
Loop
End Sub

csv为文字档并无非worksheet，从excel内读取会以档名，就算更名存盘再开启也会回复为档名如需要原工作表名称出现的话，应可于xlfile后连接&原工作名称或直接以原工作名称做为命名

了解了，非常感谢，我后来发现不需更名sheet