导入文本文件，再也不要粘贴复制，10秒搞定的事情
导入文本文件，再也不要粘贴复制，10秒搞定的事情
excelhome520
每天1分钟，进步一点点！坚持一个月，你会发现大有不同！下一个高效的工作，快乐生活就属于你！
点击上方蓝字 免费关注
置顶公众号或设为星标，否则可能收不到文章
怎么能把文本文档完美导入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 With
End 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 With
End 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.Select
End Sub
以上三种方式均可实现将文本快速导入在excel中，方便我们后期进行数据处理。
代码使用的操作方式：Alt + F11打开VBE→插入→模块（M）→粘贴以上代码→按F5运行或是返回工作表Alt + F8执行宏。
如果需要上述源文件和代码工作薄，可以直接私信我“文本导入”，即可获得练习文件！
粉丝通过1年的文章学习，从小白变成数据处理达人，工作上的表格处理能力变得很强大。如果你能坚持看文章1年，你必然可以成为一个很厉害的人。
长按二维码，识别关注
请把「办公自动化」推荐给你的朋友和同事
如果你是新同学，长按下面二维码 - 识别图中二维码 - 关注，就可以每天和我一起学Excel了。
觉有用，请点赏↓↓↓