你好,游客 登录 注册 搜索

背景:
阅读内容

Excel中批量将TXT导入不同Sheet表的方法

[日期:2018-01-06] 来源:  作者: [字体: ]

       经过研究找到了解决方法,特意来给大家分享一下。新建一个Excel文档,按下组合键“Alt+F8”打开宏窗口,随意输入一个宏名,点击“创建”按钮,在打开的VBA窗口中输入如下代码:

Sub addSht()

    Dim Fso As Object, Fl As Object

 

    Dim oClp As Object, Str$, i%, m%

    Set Fso = CreateObject("Scripting.FileSystemObject")

    Set oClp = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

    For Each Fl In FSO.getfolder(ThisWorkbook.Path & "/").Files

        If Fl.Name Like "*.txt" Then

            i = i + 1

            If i > Sheets.Count Then Sheets.Add after:=Sheets(Sheets.Count)

            Sheets(i).Name = Replace(Fso.getfilename(Fl), ".txt", "")

            Open Fl For Input As #1

            Str = StrConv(InputB(LOF(1), 1), vbUnICode): Reset

            For m = 1 To 10

                Str = Replace(Str, "  ", " ")

            Next

            oClp.settext Replace(Str, " ", vbTab)

            oClp.putinclipboard

            Sheets(i).Paste Sheets(i).[A1]

            oClp.Clear

        End If

    Next

    Set oClp = Nothing

End Sub

      最后,为新增加的宏命令指定一个按钮,再点击按钮,就自动按照将每个TXT的数据导入到不同的Sheet表中。需要注意的是,Excel是按照默认TXT排列顺序导入的,如果要改变顺序,必须提前给TXT的文件名加上序列号。

      需要提醒的是,要使用宏功能,需要在“工具→宏 →安全性”中降低安全级别。


     往下看有更多相关资料

本网站试开通微、小企业商家广告业务;维修点推荐项目。收费实惠有效果!欢迎在QQ或邮箱联系!

为何要做网络广告       广告联系

推荐文章 收藏 推荐 打印 | 整理:mengyan | 阅读:
查看相关资料       Excel 
本文评论   查看全部评论 (0)
表情: 姓名: 字数
点评:
       
评论声明
  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款
专题文章
热门评论