[文本处理] 批处理如何实现将WPS的表格转成txt

陆哈希

excel文件转txt文件怎么都不成功，包括论坛里的方法，我用的是wps有些方法无效，使用环境就是wps，不换office。
N多xls文件，一个一个保存为txt的方法不考虑。全选xls文件，然后复制到txt是可以的，格式也好看。
希望用批处理或vbs，不用宏（自己完全不了解这个，然后因为同事也不懂所以不考虑，集体办公用的），复制每一个xls文件的内容复制到一个txt文件中去，求此代码，谢谢。

tmplinshi

' 转换 et 文件（WPS 表格）为 txt
' ---------------------------------
' 使用方法：
' 	方法一：拖拽 et 文件到 vbs 图标上
' 	方法二：直接运行 vbs，则转换当前目录所有 et 文件

Set ET = CreateObject("et.application")
ET.Visible = false
ET.displayalerts = False

If wscript.arguments.count > 0 Then
	For Each etFile In Wscript.Arguments
		call et2txt
	Next
Else
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	For Each f In objFSO.GetFolder(".").Files
		If UCase(objFSO.GetExtensionName(f.Name)) = "ET" Then
			etFile = f
			call et2txt
		End If
	Next
End If

ET.Quit

Sub et2txt
	Set oWb = ET.Workbooks.Open(etFile)
	oWb.SaveAs(etFile & ".txt")
End Sub
复制代码

CrLf

http://bbs.bathome.net/thread-22123-1-1.html
http://bbs.bathome.net/thread-20046-1-5.html
http://bbs.bathome.net/thread-10929-1-6.html

Python

你尝试过论坛里的哪些方法？