vb如何将固定列数的excel转换成固定格式的txt

比如excel如下：
1,abc,345,6
2,abd,345,7

转换成txt如下：
1|abc|345|6
2|abc|345|7

两个方法：
1.将excel当作数据源连接，然后用select语句查询出来
2.用excel的com接口访问，完全通过excel对象操作读取出所有数据

参考：
http://www.baidu.com/s?wd=vb+excel%D7%AAtxt&tn=sogouie_1_dg
http://topic.csdn.net/u/20070706/11/0b839b12-fd43-48b5-9918-101a6e423824.html