| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 829 人关注过本帖
标题:批量xls 转 带字表符分隔的文本文件,或csv格式的也行
只看楼主 加入收藏
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2017-8-16
结帖率:81.25%
收藏
已结贴  问题点数:20 回复次数:5 
批量xls 转 带字表符分隔的文本文件,或csv格式的也行
现需将某个文件夹下的 多个xls文件 转换成相对应的(带字表符分隔的)文本文件, csv格式的也行!
手工操作,太麻烦了。
实在不行  单个转也行。   请高手指导!
搜索更多相关主题的帖子: 批量 xls 文本文件 csv 格式 
2018-07-23 09:06
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:261
帖 子:7427
专家分:33259
注 册:2014-5-20
收藏
得分: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
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2017-8-16
收藏
得分:0 
提示找不到变量“A程序”
2018-07-23 15:24
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2017-8-16
收藏
得分:0 
oExcel = CREATEOBJECT("Excel.Application")

这句报错
2018-07-23 15:30
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:261
帖 子:7427
专家分:33259
注 册:2014-5-20
收藏
得分:0 
以下是引用lnsyzhuhua在2018-7-23 15:24:41的发言:

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

取当前程序路径的,可以自定义cPath
2018-07-23 15:44
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:261
帖 子:7427
专家分:33259
注 册:2014-5-20
收藏
得分:0 
以下是引用lnsyzhuhua在2018-7-23 15:30:45的发言:

oExcel = CREATEOBJECT("Excel.Application")

这句报错

要 OFFICE EXCEL 支持
2018-07-23 15:46
快速回复:批量xls 转 带字表符分隔的文本文件,或csv格式的也行
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.049808 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved