www.rtmj.net > 你好,怎么用VB实现读取ExCEl的内容,并存储为txt...

你好,怎么用VB实现读取ExCEl的内容,并存储为txt...

这个相当简单,首先,Excel可以直接打开txt文件.如果一定要用代码,给你一个示例:Sub xxx() Dim xlapp As Object Set xlapp = CreateObject("Excel.Application") '读取Excel对象 Dim wb As Object Set wb = xlapp.Workbooks.Open(Filename:

用excel打开另存,把这个操作过程录制成宏命令,就是vba代码了,稍作修改成vb或c

Dim excel As ObjectSet excel = CreateObject("excel.application") '设定 excel API'--------------这上面可不看 照抄excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启excel.Visible = True 'excel 显示 or 隐藏 (True of Falseexcel.

打开文本数据. 新建Excel文档,并打开Excel文档,点击左上角开始处,点击“打开”

1、调用Excel对象打开EXCEL文件后,读取文件内容*************************************** 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项.由于你的Excel版本

必须用源代码吗?其实用excel直接打开,分列就可以做到如果非得用vb 代码大概如下:sub aa()open"路径\xxx.txt" for input as 1for i= 1 to nnnnfor j=1 to 3input #1,asheet1.cells(i,j)=anext jnext i close 1end sub

'先在工作-引用中添加excel'再在模块中定义变量,也可以在窗体里定义 public exlapp as excel.application public exlbook as excel.workbook, exlsheet as excel.worksheet set exlapp = new excel.application exlapp.workbooks.open modelfile 'excel文

你可以先从环境变量中获取桌面的地址,这样就不会随着机器的不同而造成程序的影响了 str = environ("userprofile") & "\桌面\" '获取桌面路径 file=str & "\yourtxt.txt" '这里是你要读取的txt文件名 list1.clear '先清空列表框 open file for input as #1 '打开这个文件开始读内容 do while not eof(1) line input #1,s '读取一行给s list1.additem s 把s添加到列表框 loop close #1 '直到读完关闭文件

你好!一楼的程序是对的 按他这个程序,楼主有可能是理解的不够,第一点: 楼主可以直接引用,不需要对这个程序作更改,方法是,将楼主的EXCEL文档放在TXT存放的同一个目录下.第二点:这个程序已经能够自动导入该目录下所有的TXT文档到同个sheet上了,所以楼主不需要再想着自动输入关于TXT文档名的任何其他改动了.如果对你有帮助,望采纳.

你好! 1、对于TXT文件,用什么语言都不能实现任意10条内容,只能从头开始读取;但可能有变通的办法:先产生一个随机数,打开TXT文件,从头开始读取数据,当已读取的数据=随机数时,开始将读取的数据放到变量中,连续存放10个; 2、用OFFICE的WORD文档控件的DLL链接到VB中,在VB中创建一个WORD文档工作平台(空间),将10个数据写入到该文档中,文档取名为www.DOC,最后保存该文档; 3、当然,若你对WORD文档控件的DLL用法不太了解的话,请参考MSDN或网络上查找,这里就不给出代码了,不好意思! 祝你成功!

网站地图

All rights reserved Powered by www.rtmj.net

copyright ©right 2010-2021。
www.rtmj.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com