批处理如何实现将WPS的表格转成txt

陆哈希 · 发表于 2013-6-25 17:00:17

本帖最后由 pcl_test 于 2016-7-17 14:19 编辑

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

Python · 发表于 2013-6-25 17:36:12

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

CrLf · 发表于 2013-6-25 20:43:41

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

tmplinshi · 发表于 2013-6-26 06:26:18

本帖最后由 tmplinshi 于 2013-6-26 06:31 编辑

' 转换 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

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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