批量xls 转带字表符分隔的文本文件，或csv格式的也行 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 批量xls 转带字表符分隔的文本文件，或csv格式的也行

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1691 人关注过本帖

标题：批量xls 转带字表符分隔的文本文件，或csv格式的也行

只看楼主加入收藏

lnsyzhuhua

等　级：新手上路
帖　子：61
专家分：0
注　册：2017-8-16
结帖率：84.21%

楼主

已结贴√ 问题点数：20 回复次数：5

批量xls 转带字表符分隔的文本文件，或csv格式的也行

现需将某个文件夹下的多个xls文件转换成相对应的（带字表符分隔的）文本文件， csv格式的也行！
手工操作，太麻烦了。
实在不行单个转也行。请高手指导！

2018-07-23 09:06

吹水佬

等　级：版主
威　望：451
帖　子：10607
专家分：43186
注　册：2014-5-20

第 2 楼

得分:20

ASTACKINFO(a程序)
cPath = ADDBS(JUSTPATH(a程序[2]))
cXLS = cPath + "123.xls"
cTXT = cPath + "123.txt"
oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = .F.
oExcel.WorkBooks.Open(cXLS)
oExcel.ActiveWorkBook.SaveAs(cTXT, -4158) && 另存为以制表符分隔的文本文件
oExcel.ActiveWorkBook.Saved = .T.
oExcel.WorkBooks.Close
oExcel.Quit

2018-07-23 10:25