标签：xlsx 文件批量 True Application file path txt data

转载：https://zhuanlan.zhihu.com/p/33301784

'处理成txt类型
Sub getTXT()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim i%, file As Variant, path$
Dim data As Workbook
'这里用GetOpenFilename弹出一个多选窗口，选中我们要转化成csv的xlsx文件，
file = Application.GetOpenFilename(MultiSelect:=True)
'用LBound和UBound
For i = LBound(file) To UBound(file)
    Workbooks.Open Filename:=file(i)
    Set data = ActiveWorkbook
    path = data.path
    '这里设置要保存在目录下面的csv文件夹里,之后可以自己调
    '参考了里面的第一种方法
    On Error Resume Next
    VBA.MkDir (path & "\txt")
    With data
        .SaveAs path & "\txt\" & Replace(data.Name, ".xlsx", ".txt"), xlUnicodeText
        .Close True
      End With
Next i
'弹出对话框表示转化已完成，这时去相应地方的csv里查看即可
MsgBox "已转换了" & (i - 1) & "个文档"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

标签：xlsx,文件批量,True,Application,file,path,txt,data
来源： https://www.cnblogs.com/redufa/p/13685903.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。