使用VBA代码将excel表格批量转换格式csv
作者:小朱笔记
发布日期:2021年3月18日
摘要:使用VBA代码,将excel表格Xlsx、xls格式批量转换为csv格式。 Sub SaveToCSVs() […]

使用VBA代码,将excel表格Xlsx、xls格式批量转换为csv格式。

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\qiany\Desktop\文件\"
    sPath = "C:\Users\qiany\Desktop\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

 

相关文章

excel删除中文字符,保留英文和数字VBA公式

excel删除中文字符,保留英文和数字VBA公式,筛选关键词使用excel在单元格中只去掉汉字、保留下英文或数字的方法。 Sub test() Dim objRegExp As Object Dim i As Long, arr arr = Range("a1:b" & Cells(Rows.Count,...

Excel表格按条件自动编号

举例:excel根据姓名自动生成序号 公式:=countif(B$2:B2,B2) 举例:按条件组合生成序号 公式:=A2&TEXT(COUNTIF(A$2:A2,A2),"0000")

评论

0条评论

递交一条评论

您的电子邮箱地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据

欢迎来到我的博客!

好记性不如烂笔头

为什么要写博客?

记性不好。

本站所有内容都是我在工作中所遇到的问题,通过搜索引擎查到资料,有自己原创经验分享,有收集来的,记录并分享,方便自己以后查阅。

主要:建站资料,网络推广,服务器,软件分享,办公软件操作,阿里巴巴国际站,国外社交平台,各类工具等等。

我的收藏,希望对你有帮助。

收藏本站(Ctrl+d)加入收藏