VB读取excel数据写入txt中

Question

vb编程，将当前文件夹下的excel表格中sheet1中的2,5,7,10行的数据读取到txt中，要求读到txt中时，excel中的每行数据单独成行，数据之间用逗号隔开，excel每行中的数据不连贯，中间有空的单元格，读到txt中时忽略不计。另外，excel中的第一列为汉字，向txt中邪数字时，忽略汉字，急等谢谢

Answer 1

1，在EXECEL中选用录制宏的方式，录制一个过程作为读数据存到TXT文件的主程序。选中2，5，7，10行，另存为text.txt。完成宏录制。

2，在录制的宏中进行编辑。这部分要根据行有多少个格子来操作，比如这4行的列格子都没超过10个，可取1到10循环，读取每个Cell的值，读取后判断这个Cell是否为空：" ",或多个空格，然后用&符号连接进“，”，如Str1=Str1&","&cells（1,i) ,在最后一个cell后连接一个换行符。
3，重复上述，完成另外几行的处理。
忽略汉字，要看你的数据是只是0~9的数字加小数点组成的，如果是可用比对方式进行保留。

追问

你好，谢谢你的回答，数据都是数字组成，没有小数点。我是想用VB 一个按钮来实现整个过程，操作简单化，用宏录制还得加额外的操作吧，另外，能麻烦您给出具体可运行的代码吗？我基本上算是菜鸟级的，只有思路我也做不出来，谢谢

Answer 2

把你表发我看看。

第一列为汉字。这里是忽略整个单元格？还是忽略汉字而取其余非汉字？

邮件谈比较方便点。

Crazy0qwer@qq.com

Answer 3

帮完成vb任务