代码收藏-CSV转XLSX文件 代码简单好操作

sdlovets

  

子程序名	返回值类型	公开	备 注
Excel_csv转xlsx	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_csv文件路径	文本型
参_新文件路径	文本型

变量名	类 型	静态	数组	备 注
局_Excel程序	对象
局_工作簿集对象	对象
局_工作簿对象	对象

如果真 (局_Excel程序.创建 (“excel.application”, ) ＝ 假)
如果真 (局_Excel程序.创建 (“ket.application”, ) ＝ 假)
返回 (假)


局_Excel程序.写属性 (“Visible”, 假)
局_Excel程序.写属性 (“DisplayAlerts”, 假)
局_工作簿集对象 ＝ 局_Excel程序.读对象型属性 (“Workbooks”, )
局_工作簿集对象.方法 (“Open”, 参_csv文件路径)
局_工作簿对象 ＝ 局_Excel程序.读对象型属性 (“ActiveWorkbook”, )
局_工作簿对象.方法 (“SaveAs”, 参_新文件路径, 61)
局_工作簿对象.方法 (“Close”, )
局_工作簿对象.清除 ()
局_工作簿集对象.方法 (“Close”, )
局_工作簿对象.清除 ()
局_Excel程序.方法 (“Quit”, )
局_Excel程序.清除 ()
返回 (真)

.版本 2<br /> <br /> .子程序 Excel_csv转xlsx, 逻辑型<br /> .参数 参_csv文件路径, 文本型<br /> .参数 参_新文件路径, 文本型<br /> .局部变量 局_Excel程序, 对象<br /> .局部变量 局_工作簿集对象, 对象<br /> .局部变量 局_工作簿对象, 对象<br /> <br /> .如果真 (局_Excel程序.创建 (“excel.application”, ) ＝ 假)<br />     .如果真 (局_Excel程序.创建 (“ket.application”, ) ＝ 假)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> 局_Excel程序.写属性 (“Visible”, 假)<br /> 局_Excel程序.写属性 (“DisplayAlerts”, 假)<br /> 局_工作簿集对象 ＝ 局_Excel程序.读对象型属性 (“Workbooks”, )<br /> 局_工作簿集对象.方法 (“Open”, 参_csv文件路径)<br /> 局_工作簿对象 ＝ 局_Excel程序.读对象型属性 (“ActiveWorkbook”, )<br /> 局_工作簿对象.方法 (“SaveAs”, 参_新文件路径, 61)<br /> <br /> 局_工作簿对象.方法 (“Close”, )<br /> 局_工作簿对象.清除 ()<br /> 局_工作簿集对象.方法 (“Close”, )<br /> 局_工作簿对象.清除 ()<br /> 局_Excel程序.方法 (“Quit”, )<br /> 局_Excel程序.清除 ()<br /> 返回 (真)

HuangQAQ

如果csv里面有几十万的数据 转到excel里面就会掉数据

azhi88

谢谢分享

光影魔术

感谢分享

豆豆灰常开心

感谢楼主分享！

查过

感谢楼主分享！

xf221

6666666666666666666666666666666666666666666666

year1970

感谢分享

一指温柔

支持开源~！感谢分享

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！