作者lphotoimpact (枫)
看板Office
标题[问题] VBA 将XLS转CSV後，想同步改Sheet名称
时间Fri Jul 27 13:09:58 2018
(若是和其他不同软体互动之问题 请记得一并填写)
软体: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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.128.67.236
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1532668200.A.0C3.html
1F：→ soyoso: csv为文字档并无非worksheet，从excel内读取会以档名，就 07/27 13:26
2F：→ soyoso: 算更名存档再开启也会回复为档名 07/27 13:27
3F：→ soyoso: 如需要原工作表名称出现的话，应可於xlfile後连接&原工作 07/27 13:29
4F：→ soyoso: 名称或直接以原工作名称做为命名 07/27 13:29
5F：→ lphotoimpact: 了解了，非常感谢，我後来发现不需更名sheet 07/27 13:35