轉載：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