如何使用VBA控件将文本文件导入EXCEL表格

发布网友 发布时间：2022-04-20 23:43

我来回答

共2个回答

热心网友 时间：2023-11-05 19:33

你既然会用向导导入的话那就很容易获得VBA代码了。
你点“录制宏”，然后开始手工导入一遍这个文件，全部导入完毕后点“停止录制”，然后编辑该宏就可以看到代码了，然后就可以根据需要修改了，比如说改一下文件名什么的。
“录制宏”这个工具还是很好用的。

你的意思是想通过对话框获得文件名么？给你一段代码，执行后，需要你先选择文本文件，然后清空excel当前页的内容，最后将此文件导入到excel中。
注意：此代码只能导入以逗号作为分隔符的文本。

Sub Macro2()

Dim myFileName As String
myFileName = Application.GetOpenFilename("文本文件(*.txt),*.txt")

ActiveSheet.Cells.Clear

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" + myFileName, Destination:=Range("A1"))
.TextFilePlatform = 936
.TextFileCommaDelimiter = True
.Refresh
End With

End Sub

有问题可以直接hi我。

热心网友 时间：2023-11-05 19:34

从格式上来看,你所说的文本文件是就是一个CSV文件,你可能到网上找一下VBA读取CSV的方法即可,貌似可以将它成一个表来读取.