Excel怎样快速打开文本文件内容 _Excel|2007

修法布施得聪明智慧，多分享让生活更美好。上次分享《怎样批量Excel文件转文本文件》，现在分享逆过程文本文件内容怎样在Excel显示出来处理方法。 2如何批量Excel文件转文本文件

需要这些哦
Microsoft Office Excel 2007
Excel VBA
实例问题1文件夹里面有多个txt文件，好比有A.txt、B.txt、C.txt、D.txt......等等。此刻桌面上有一个EXCEL文档，我但愿打开这个EXCEL文档后：当F1单位格字符输入为A ，则主动导入这个指定路径下A.txt文本文档，当F1单位格字符输入为B ，则主动导入这个指定路径下B.txt文本文档，其他文本文档照此类推....（按照F1单位格字符，主动导入对应的txt文档）
（百度知道问题）

处置方式/
1起首打开Microsoft Office Excel 2007 ，新建文档并保留文件名《Excel如何快速打开文本文件内容.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以），并在A1输入“文件夹路径” ，如下图。

文章插图

2鼠标移到当前工作表标签栏“Sheet1”表（需要在哪表计较在哪表），右键，弹出快捷菜单，如下图。

文章插图

3在快捷菜单找到【查看代码】并单击，打开VBE（宏）编纂界面，如下图。

文章插图

4在右边代码框中复制下面代码到该框中，如下图。
Private Sub Worksheet_Change(ByVal Target As Range)
'2020-7-20 22:11:39
Dim m As String, m1 As String
If Target.Row = 1 And Target.Column = 6 Then
m = Range("B1").Text
m1 = m & "\" & Target.Text & ".txt"
Range("f2:f" & Rows.Count).ClearContents
On Error Resume Next
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & m1, Destination:=Range("$F$2"))
.Name = Target.Text & "_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
【Excel怎样快速打开文本文件内容】 .RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = https://vvvtt.com/article/True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 936
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False