• 欢迎访问老司机不开车的博客,,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站,欢迎加入 TG群 QQ群
  • 10z4.com 老司机不开车提醒您:回复"666666"无需人工审核,禁止带HTTP连接和联系方式广告留言。即可查看文章!Gmail邮箱的都需要审核!
  • 廣告招租!衹接受比特幣和萊特幣付款。廣告沒有限制!有意向聯係 TG_1024

批量转换Excel转CSV文件

学习 老司机 2个月前 (09-15) 891次浏览 0个评论
使用条件:
1. Windows 10 系统;
2. MS2013
1.首先新建一个 Excel 文件,按 Alt+F11,打开 VBA 编辑器,选择插入-模块 (英文版:Insert-Module), 在编辑器中输入如下代码:
Sub SaveToCSVs()
Dim fDir As String
Dim wB As Workbook
Dim wS As Worksheet
Dim fPath As String
Dim sPath As String
fPath = "C:\Users\ms-off1\Desktop\temp\"
sPath = "C:\Users\ms-off1\Desktop\temp\"
fDir = Dir(fPath)
Do While (fDir <> "")
If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
On Error Resume Next
Set wB = Workbooks.Open(fPath & fDir)
'MsgBox (wB.Name)
For Each wS In wB.Sheets
wS.SaveAs sPath & wB.Name & ".csv", xlCSV
Next wS
wB.Close False
Set wB = Nothing
End If
fDir = Dir
On Error GoTo 0
Loop
End Sub
其中,fPath 定义了存放 Excel 文件的路径,sPath 定义了 csv 文件的输出位置,根据个人情况进行修改,不要忘记路径最后的左斜线。

10z4 , 版权所有丨如未注明 , 均为原创丨本网站采用CC BY 4.0协议进行授权 , 转载请注明批量转换 Excel 转 CSV 文件
喜欢 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址