小刀人
-No business too small, no problem too big.
<2010年3月>
日一二三四五六
28123456
78910111213
14151617181920
21222324252627
28293031123
45678910
公告

  • Learn,Think,and Imagine...

    正在看的书：

    点击发送消息给我

留言簿(6)

随笔分类

随笔档案

文章档案

相册

CSDN

VC知识库

开发站点

技术blog

搜索

最新评论

  • 1. purchase xanax
  • Some editors are failed writers, but so are most writers.
  • --purchase xanax
  • 2. neomwvbl
  • --neomwvbl
  • 3. order xanax
  • Think of yourself as an incandescent power, illuminated and perhaps forever talked to by God and his messengers.
  • --order xanax
  • 4. cialis for
  • It is your work in life that is the ultimate seduction.
  • --cialis for
  • 5. ffysegxg
  • --ffysegxg
  • 6. ammonation
  • God is a comedian playing to an audience too afraid to laugh.
  • --ammonation
  • 7. dyed
  • That would be a good thing for them to cut on my tombstone: Wherever she went, including here, it was against her better judgment.
  • --dyed
  • 8. ebullioscopic
  • We are made to persist. That's how we find out who we are.
  • --ebullioscopic
  • 9. keppra
  • They are ill discoverers that think there is no land, when they can see nothing but sea.
  • --keppra
  • 10. ampicillin
  • Any transition serious enough to alter your definition of self will require not just small adjustments in your way of living and thinking but a full-on metamorphosis.
  • --ampicillin
  • 11. reglan
  • The most erroneous stories are those we think we know best - and therefore never scrutinize or question.
  • --reglan
  • 12. oryxbxoc
  • --oryxbxoc
  • 13. linnaeite
  • In America, they want you to accomplish these great feats, to pull off these David Copperfield-type stunts. You want me to be great, but you don't ever want me to say I'm great?
  • --linnaeite
  • 14. humungous
  • --humungous
  • 15. doxycycline hyclate
  • There are sadistic scientists who hurry to hunt down errors instead of establishing the truth.
  • --doxycycline hyclate
  • 16. cephalexin 500mg hypermedia argyrophil
  • It is not enough to aim; you must hit.
  • --cephalexin 500mg hypermedia argyrophil
  • 17. female viagra
  • Good judgment comes from experience, and experience comes from bad judgment.
  • --female viagra
  • 18. sjkovbbg
  • --sjkovbbg
  • 19. datapath
  • We don't know a millionth of one percent about anything.
  • --datapath
  • 20. verticilliose
  • All truth passes through three stages. First, it is ridiculed. Second, it is violently opposed. Third, it is accepted as being self-evident.
  • --verticilliose

阅读排行榜

评论排行榜

 
VC知识库BLOG   首页  新随笔  联系  聚合  登录 
  随笔-23 文章-0 评论-184 Trackbacks-0
将文本文件导入到Excel（使用VB）

以制表符或逗号间隔的文本文件，使用VB用以下方法可以导入到Excel中。

Private Sub Command3_Click()
   Dim oBook As Object
   Set objExcel = CreateObject("Excel.Application")
   objExcel.Visible = True
   Set oBook = objExcel.Workbooks.Open("E:个人文件编程资料个人计算机类书籍清单.txt")
End Sub

如图：

点击“读到Excel”（就是上面代码的Command3）按钮，可有Excel弹出并将文本文件以行，每行以逗号，制表符为列打开文本文件，当然可以很方便地另存为xls文件。
效果如下图所示：

这个东东还是有用途的。
我把这个东东打了包，可以将.txt或.csv等文本文件导入Excel打开，取消已打开的文本文件可以通过点击“打开”弹出的对话框再点击“取消”按钮就可以了。
如有兴趣，可看这里http://blog.vckbase.com/zhaotide/archive/2005/04/09/4539.html，新增加了指定行、任意使用逗号、制表符分列导入功能。

posted on 2005-04-05 22:34 小刀人 阅读(6412) 评论(1)  编辑 收藏
Comments
  • # re: 将文本文件导入到Excel（使用VB）
    飞凌
    Posted @ 2008-05-27 12:00
    好东西，谢谢分享
标题  
姓名  
主页
验证码 *
内容   
  登录  使用高级评论  Top
[使用Ctrl+Enter键可以直接提交]
 
Copyright © 小刀人