cy's Blog

好好学习 天天上网

xls xlsx格式转换csv方法

Sub 批量转换()
Application.DisplayAlerts = False
t = ActiveWorkbook.Name
mypath = ActiveWorkbook.Path & "\"
myfile = Dir(mypath & "*.xls")
Do Until Len(myfile) = 0
    If myfile <> t Then
        Workbooks.Open Filename:=mypath & myfile
        ActiveWorkbook.SaveAs Filename:=mypath & Left(myfile, InStr(myfile, ".") - 1) & ".csv", FileFormat:=xlCSV
    End If
    If myfile <> t Then ActiveWorkbook.Close
    myfile = Dir
Loop
Application.DisplayAlerts = True
End Sub

打开xls 或者xlsx文件 然后选工具 宏 执行VB脚本

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

«   2020年3月   »
1
2345678
9101112131415
16171819202122
23242526272829
3031
搜索
控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言
标签列表
    作者列表
    站点信息
    • 文章总数:448
    • 页面总数:2
    • 分类总数:10
    • 标签总数:0
    • 评论总数:2011
    • 浏览总数:631864

    Powered By Z-BlogPHP 1.5.2 Zero

    Copyright 2008-2017 lcy. Some Rights Reserved.