Excel工作表快速转换保存为Csv文件

  • A+
所属分类:好好学习

Excel内多个工作表,需将各个工作表保存为独立的Csv文件,太多不适合复制粘贴,使用宏命令即可实现快速将各个工作表保存为单独的Csv文件,并按工作表名称命名(工作表的命名不得与WINDOWS命名规则冲突):

VBA

Sub 工作表转换CSV保存()

iPath = ThisWorkbook.Path

For n = 1 To Worksheets.Count

Name = "\" & Sheets(n).Name & ".csv"

filepath = iPath & Name

Sheets(n).SaveAs Filename:=filepath, FileFormat:= _

xlCSV, CreateBackup:=False

Next

End Sub

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: