准备2个目录,一个为原始excel文件目录,一个为转换后目录
例如:C:\1111\xlsx C:\1111\csv
1、新建excel文件,开发工具-VB
如没有开发工具选项,按如下步骤: 文件---选项---自定义功能区----开发工具 打钩-----确定
2、双击 sheet1
3、在弹出的对话框中 粘贴 下面 代码; 注意其中的两个路径结尾必须是\,第一个为原始文件路径,第二个为更改格式后文件存储路径
Sub SaveToCSVs()
Dim fDir As String
Dim wB As Workbook
Dim wS As Worksheet
Dim fPath As String
Dim sPath As String
fPath = "C:\1111\xlsx\"
sPath = "C:\1111\csv保存位置\"
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
4、运行------运行子过程/用户窗体-----确定即可