标题: [文本处理] 批处理如何实现将WPS的表格转成txt [打印本页]
作者: 陆哈希 时间: 2013-6-25 17:00 标题: 批处理如何实现将WPS的表格转成txt
本帖最后由 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
你尝试过论坛里的哪些方法?
作者: CrLf 时间: 2013-6-25 20:43
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
本帖最后由 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
复制代码
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |