小刀人
-No business too small, no problem too big.
<2008年11月>
2627282930311
2345678
9101112131415
16171819202122
23242526272829
30123456
公告
  • Learn,Think,and Imagine...

    正在看的书:

    点击发送消息给我

留言簿(6)

随笔分类

随笔档案

文章档案

相册

CSDN

VC知识库

开发站点

技术blog

搜索

最新评论

阅读排行榜

评论排行榜

 
VC知识库BLOG   首页  新随笔  联系  聚合  登录 
  随笔-23 文章-0 评论-61 Trackbacks-0

以制表符或逗号间隔的文本文件,使用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 小刀人 阅读(3938) 评论(1)  编辑 收藏
Comments
  • # re: 将文本文件导入到Excel(使用VB)
    飞凌
    Posted @ 2008-05-27 12:00
    好东西,谢谢分享
标题  
姓名  
主页
验证码 *
内容   
  登录  使用高级评论  Top
[使用Ctrl+Enter键可以直接提交]