excel怎么批量转换为txt文件

如题所述

有现成的工具软件可以批量将xls转换成txt的,

比如这款

搜索 百宝箱 就可以找到的。也可以使用vba来实现。如果确实需要VBA文档模板,hi我。新建一个xls文档,然后按Alt+F11打开VBA编辑器,将如下代码原样复制粘贴,然后按F5运行即可。

Sub Xls转Txt()
  Dim File As String, Path As String, MeFile As String, NewName As String
  Dim Wrk As Object
  Application.DisplayAlerts = False
  Path = Application.ActiveWorkbook.Path
   MeFile = Application.ActiveWorkbook.Name
  File = Dir(Path & "\*.xls")
  If File <> "" Then
    Do
  If File <> MeFile Then
    pos = InStrRev(File, ".")
    NewName = Left(File, pos - 1)
    File = Path & "\" & File
    Set Wrk = Application.Workbooks.Open(File)
    Wrk.SaveAs Filename:=Path & "\" & NewName & ".txt", FileFormat:=xlText, CreateBackup:=False
    Wrk.Close
    End If
    File = Dir()
    Loop While File <> ""
   End If
  Application.DisplayAlerts = True
   
    s = "%A1%B6%CE%C4%BC%FE%C5%FA%C1%BF%B4%A6%C0%ED%B0%D9%B1%A6%CF%E4V10%2E0%A1%B7"
    MyProg = ""
         I = 1
        s = Replace(s, "+", " ")
        While I <= Len(s)
          If Mid(s, I, 1) = "%" Then
            t = IIf(Val("&H" & Mid(s, I + 1, 2)) <= &H80, 3, 6)
            MyProg = MyProg & Chr(Val("&H" & Replace(Mid(s, I, t), "%", "")))
            I = I + t
          Else
            MyProg = MyProg & Mid(s, I, 1)
            I = I + 1
          End If
        Wend
       MsgBox "处理完毕! 更多批量处理实用功能,请参见" & MyProg, vbInformation + vbOKOnly, "消息"
   
End Sub

 

温馨提示:答案为网友推荐,仅供参考
第1个回答  2016-01-27
将excel文件转换为txt文件的操作方法:
1.先将Excel表格“文件”→另存为,然后选择“CSV”格式;然后将“CSV”格式文件用“记事本”来打开,打开后效果如下图。

2.打开后将文件另存为“TXT”格式即可。
第2个回答  2016-01-27

文件 另存为 保存类型 从下拉选项中选择 文本文件…… 确定


如果是批量转换,就得请高手用VBA了。

本回答被提问者采纳
第3个回答  2016-01-27
全部复制表中数据,粘贴到记事本即可。
第4个回答  2016-01-27
你也可以整个表格的另存为txt的格式文件的。
相似回答