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

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

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

只看楼主

lnsyzhuhua

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

楼主

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

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

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

2018-07-23 09:06

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：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

lnsyzhuhua

等　级：新手上路
帖　子：58
专家分：0
注　册：2017-8-16

第 3 楼

得分:0

提示找不到变量“A程序”

2018-07-23 15:24

lnsyzhuhua

等　级：新手上路
帖　子：58
专家分：0
注　册：2017-8-16

第 4 楼

得分:0

oExcel = CREATEOBJECT("Excel.Application")

这句报错