导入文本文件，再也不要粘贴复制，10秒搞定的事情

怎么能把文本文档完美导入Excel中？有粉丝朋友在询问有没有简单的方法？

正常的操作步骤如下：

1、首先，打开excel，选择数据zhi选项卡，自文本选项。

2、在弹出的资yuan管理器界面选择存放好的txt文件后，点击打开按钮。

3、此时弹出文本导入向导，如果你的文本是固定宽度，你可以选择第二个固定长度导入。然后点击下一步按钮。

4、勾选空格，检验预览数据是否和自己预想的一致。一致后继续点击下一步按钮。

5、查看预览效果。并选择列数据格式，此处没什么特别要求，建议选择常规，常规也是excel默认的格式。

6、在弹出的对话框中，选中要导入的数据区域，此处我要导入到当前单元格，并且从a1单元格开始，因此我选择a1单元格，多余的数据会自动以此单元格向两边张开。点击确定按钮

这样一步一步的操作下来，数据就算是完美的导入进来了。

但是今天要给大家分享的如何花费10秒钟将数据导入Excel中间，介绍三种导入方式，接下来我们一起来看看！

文本的源数据如下所示，演示的文本数据均以此文本举例

First kind  使用查询表导入Text文本文件

使用的代码非常简单，也非常的简单，代码如下：此种方式导入速度快

Sub AddQuery() With Sheet2 .UsedRange.ClearContents With .QueryTables.Add(Connection:='TEXT;' & ThisWorkbook.Path & '\工资表.txt', Destination:=.Range('A1')) .TextFileCommaDelimiter = True .Refresh End With .Select End WithEnd Sub


The Second kind 使用Open 语句导入

Sub OpenText()    Dim MyText As String    Dim MyArr() As String    Dim c As Integer    Dim r As Integer    r = 1    With Sheet2        .UsedRange.ClearContents        Open ThisWorkbook.Path & '\工资表.txt' For Input As #1        Do While Not EOF(1)            Line Input #1, MyText            MyArr = Split(MyText, ',')            For c = 0 To UBound(MyArr)                .Cells(r, c + 1) = MyArr(c)            Next            r = r + 1        Loop        Close #1        .Select    End WithEnd Sub

The Third Kind 3使用OpenText方法导入

Sub OpenText() Sheet2.UsedRange.ClearContents Workbooks.OpenText Filename:=ThisWorkbook.Path & '\' & '工资表.txt', StartRow:=1, DataType:=xlDelimited, Comma:=True With ActiveWorkbook With .Sheets('工资表').Range('A1').CurrentRegion ThisWorkbook.Sheets('Sheet2').Range('A1').Resize(.Rows.Count, .Columns.Count).Value = .Value End With .Close False End With Sheet2.SelectEnd Sub



以上三种方式均可实现将文本快速导入在excel中，方便我们后期进行数据处理。

代码使用的操作方式：Alt + F11打开VBE→插入→模块（M）→粘贴以上代码→按F5运行或是返回工作表Alt + F8执行宏。