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

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

dim i as integer dim j as integer dim ex as object dim exwbook as object dim exsheet as object set ex = createobject("excel.application") set exwbook = nothing set exsheet = nothing set exwbook = ex.workbooks().add set exsheet = exwbook.

把你表发我看看. 第一列为汉字.这里是忽略整个单元格?还是忽略汉字而取其余非汉字? 邮件谈比较方便点. Crazy0qwer@qq.com

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

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

必须用源代码吗?其实用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打开另存,把这个操作过程录制成宏命令,就是vba代码了,稍作修改成vb或c

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

不用vb那么麻烦吧. 只用在excel中写个公式, =if(某单元格="",本列上一个单元格,某单元格)拖拽公式后, 拷贝粘贴到txt里面就好了.

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

用文件的读取,比如说你的文件是在C盘的新建文件夹里.Dim a(100) As String n = 0 Open "C:\新建文件夹\某某.txt" For Input As 1Do While Not EOF(1) n = n + 1 Input #1, a(n) Loop Close #1 for n=0 to UBound(a) print a(n): next n 不明白再说

相关搜索:

网站地图

All rights reserved Powered by www.rtmj.net

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