Execl转csv

小磊

  

窗口程序集名	保 留	保 留	备 注
Execl转csv
变量名	类 型	数组	备 注
集_Excel状态	逻辑型
集_Excel对象	对象
集_工作簿对象	对象
集_文件工作簿对象	对象
集_错误信息	文本型

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

返回 (0)

子程序名	返回值类型	公开	备 注
Execl转csv_开启	逻辑型		后台打开一个EXCEL

集_错误信息 ＝ “”
集_Excel对象.创建 (“Excel.Application”, )
如果真 (集_Excel对象.是否为空 ())
集_错误信息 ＝ “创建Excel失败，本机可能未安装OFFICE或版本不符”
返回 (假)
集_Excel状态 ＝ 真
集_Excel对象.写属性 (“Visible”, 假)
集_工作簿对象 ＝ 集_Excel对象.读属性 (“Workbooks”, ).取对象 ()
返回 (真)

子程序名	返回值类型	公开	备 注
Execl转csv_转换	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
返回文档名	文本型				放入文本数组，返回所有表格标题
返回文档内容	文本型				放入文本数组，返回所有表格内容

变量名	类 型	静态	数组	备 注
局_临时表路径	文本型		0
局_计次	整数型
局_表数量	整数型

集_错误信息 ＝ “”
如果真 (集_Excel状态 ＝ 假)
集_错误信息 ＝ “未加载Excel”
返回 (假)
集_文件工作簿对象 ＝ 集_工作簿对象.通用方法 (“Open”, 文件名).取对象 ()
如果真 (集_文件工作簿对象.是否为空 ())
集_错误信息 ＝ “打开文件失败”
返回 (假)
局_表数量 ＝ 集_文件工作簿对象.读属性 (“Sheets”, ).取对象 ().读数值属性 (“Count”, )
如果真 (局_表数量 ＝ 0)
集_错误信息 ＝ “工作表异常”
返回 (假)

如果真 (是否为空 (返回文档名) ＝ 假)
重定义数组 (返回文档名, 假, 局_表数量)

如果真 (是否为空 (返回文档内容) ＝ 假)
重定义数组 (返回文档内容, 假, 局_表数量)

重定义数组 (局_临时表路径, 假, 局_表数量)
计次循环首 (局_表数量, 局_计次)
局_临时表路径 [局_计次] ＝ 取临时文件名 ()
集_文件工作簿对象.读对象型属性 (“Sheets”, ).读对象型属性 (“Item”, 局_计次).方法 (“Activate”, )
如果真 (是否为空 (返回文档名) ＝ 假)
返回文档名 [局_计次] ＝ 集_文件工作簿对象.读对象型属性 (“Sheets”, ).读对象型属性 (“Item”, 局_计次).读文本属性 (“Name”, )

如果真 (是否为空 (返回文档内容) ＝ 假)
集_文件工作簿对象.方法 (“SaveAs”, 局_临时表路径 [局_计次], 6)
如果真 (集_文件工作簿对象.取错误 () ≠ “”)
集_错误信息 ＝ “写入临时文件失败”
返回 (假)


计次循环尾 ()
集_文件工作簿对象.写属性 (“Saved”, 真)
集_文件工作簿对象.方法 (“Close”, )
如果真 (是否为空 (返回文档内容) ＝ 假)
计次循环首 (局_表数量, 局_计次)
返回文档内容 [局_计次] ＝ 到文本 (读入文件 (局_临时表路径 [局_计次]))
删除文件 (局_临时表路径 [局_计次])
计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
Execl转csv_关闭	逻辑型		关闭后台打开的EXCEL

集_错误信息 ＝ “”
集_Excel对象.方法 (“Quit”, )
集_Excel状态 ＝ 假
返回 (真)

子程序名	返回值类型	公开	备 注
Execl转csv_取错误信息	文本型

返回 (集_错误信息)

.版本 2<br /> <br /> .程序集 Execl转csv<br /> .程序集变量 集_Excel状态, 逻辑型<br /> .程序集变量 集_Excel对象, 对象<br /> .程序集变量 集_工作簿对象, 对象<br /> .程序集变量 集_文件工作簿对象, 对象<br /> .程序集变量 集_错误信息, 文本型<br /> <br /> .子程序 _启动子程序, 整数型<br /> <br /> 返回 (0)<br /> <br /> .子程序 Execl转csv_开启, 逻辑型, , 后台打开一个EXCEL<br /> <br /> 集_错误信息 ＝ “”<br /> 集_Excel对象.创建 (“Excel.Application”, )<br /> .如果真 (集_Excel对象.是否为空 ())<br />     集_错误信息 ＝ “创建Excel失败，本机可能未安装OFFICE或版本不符”<br />     返回 (假)<br /> .如果真结束<br /> 集_Excel状态 ＝ 真<br /> 集_Excel对象.写属性 (“Visible”, 假)<br /> 集_工作簿对象 ＝ 集_Excel对象.读属性 (“Workbooks”, ).取对象 ()<br /> 返回 (真)<br /> <br /> .子程序 Execl转csv_转换, 逻辑型<br /> .参数 文件名, 文本型<br /> .参数 返回文档名, 文本型, 可空 数组, 放入文本数组，返回所有表格标题<br /> .参数 返回文档内容, 文本型, 可空 数组, 放入文本数组，返回所有表格内容<br /> .局部变量 局_临时表路径, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_表数量, 整数型<br /> <br /> 集_错误信息 ＝ “”<br /> .如果真 (集_Excel状态 ＝ 假)<br />     集_错误信息 ＝ “未加载Excel”<br />     返回 (假)<br /> .如果真结束<br /> 集_文件工作簿对象 ＝ 集_工作簿对象.通用方法 (“Open”, 文件名).取对象 ()<br /> .如果真 (集_文件工作簿对象.是否为空 ())<br />     集_错误信息 ＝ “打开文件失败”<br />     返回 (假)<br /> .如果真结束<br /> 局_表数量 ＝ 集_文件工作簿对象.读属性 (“Sheets”, ).取对象 ().读数值属性 (“Count”, )<br /> .如果真 (局_表数量 ＝ 0)<br />     集_错误信息 ＝ “工作表异常”<br />     返回 (假)<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (返回文档名) ＝ 假)<br />     重定义数组 (返回文档名, 假, 局_表数量)<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (返回文档内容) ＝ 假)<br />     重定义数组 (返回文档内容, 假, 局_表数量)<br /> .如果真结束<br /> <br /> 重定义数组 (局_临时表路径, 假, 局_表数量)<br /> <br /> .计次循环首 (局_表数量, 局_计次)<br />     局_临时表路径 [局_计次] ＝ 取临时文件名 ()<br />     集_文件工作簿对象.读对象型属性 (“Sheets”, ).读对象型属性 (“Item”, 局_计次).方法 (“Activate”, )<br />     .如果真 (是否为空 (返回文档名) ＝ 假)<br />         返回文档名 [局_计次] ＝ 集_文件工作簿对象.读对象型属性 (“Sheets”, ).读对象型属性 (“Item”, 局_计次).读文本属性 (“Name”, )<br />     .如果真结束<br /> <br />     .如果真 (是否为空 (返回文档内容) ＝ 假)<br />         集_文件工作簿对象.方法 (“SaveAs”, 局_临时表路径 [局_计次], 6)<br />         .如果真 (集_文件工作簿对象.取错误 () ≠ “”)<br />             集_错误信息 ＝ “写入临时文件失败”<br />             返回 (假)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 集_文件工作簿对象.写属性 (“Saved”, 真)<br /> 集_文件工作簿对象.方法 (“Close”, )<br /> .如果真 (是否为空 (返回文档内容) ＝ 假)<br />     .计次循环首 (局_表数量, 局_计次)<br />         返回文档内容 [局_计次] ＝ 到文本 (读入文件 (局_临时表路径 [局_计次]))<br />         删除文件 (局_临时表路径 [局_计次])<br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (真)<br /> <br /> .子程序 Execl转csv_关闭, 逻辑型, , 关闭后台打开的EXCEL<br /> <br /> 集_错误信息 ＝ “”<br /> 集_Excel对象.方法 (“Quit”, )<br /> 集_Excel状态 ＝ 假<br /> 返回 (真)<br /> <br /> .子程序 Execl转csv_取错误信息, 文本型<br /> <br /> 返回 (集_错误信息)

aijianli

返回的文档值数组是1行，而且把整个excel表的内容都合并成1行了 中间是逗号分隔  咋能区分出来换行啊  求指教

zjbdsg

6666666666666

cheng732119477

不好使 我用错了吗

cheng732119477

为什么不好使呀

1965357612

谢谢分享来看看

jeyx2020

学习，学习一下

zeng1998

学习学习

趣冉科技

感谢楼主分享，支持一下~~！！！

tianyazai

支持功能性开发