如何把excel文件存为txt文件

来源:互联网 发布:易语言软件源码查看 编辑:程序博客网 时间:2024/06/06 05:54

string ls_pathname, ls_filename
integer li_value
GetFileOpenName(
"Select  File",  ls_pathname,  ls_filename,  "XLS""Microsoft  Excel  Files  (*.xls),*.xls"

OLEOBJECT  myoleobject
myoleobject
=CREATE  OLEOBJECT 
myoleobject.ConnectToObject(ls_pathname) 

myoleobject.application.workbooks(
1).saveas('c:/aa.txt', -4158, false)

destroy myoleobject

原创粉丝点击