EXCEL应用

发布网友 发布时间：2022-04-21 08:44

我来回答

共4个回答

热心网友 时间：2023-10-15 07:12

Sub Macro1()
Dim mSour$
mSour = InputBox("请输入完整的路径和文件名称，如 E:\MyDoc\text.txt，默认从当前活动单元格开始导入新数据 ")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & mSour, Destination:=ActiveCell)
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With
End Sub

'或者你可以录制一个宏，自己修改，操作就是导入文件

热心网友 时间：2023-10-15 07:13

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\sn.txt", Destination:=Range("$A$1"))
.Name = "sn"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 936
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-15
End Sub
把D：\sn.txt换成你要转换的文件即可

热心网友 时间：2023-10-15 07:13

???EXCEL本身就有这个功能啊，【数据】-【导入外部数据】-【导入数据】，选择你的文本文件

热心网友 时间：2023-10-15 07:14

你用录制宏，完成导入txt文件的动作，那段代码就是你要的代码了。稍微改改就能用。