Question

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

如何实现我单击一个按钮，打开一个文本文件，将其中的数据贴到EXCEL表格中。
文本格式如下，
1，1，1，1，1
2，2，2，2，2
都是有逗号隔开的，使用文本向导可以很容易将实现，但是我现在想用VBA代码实现。最好是能指定到从哪一行
录制宏我也试过,有一个问题没法解决,就是如何在单击按钮的时候选择文本文件 然后复制其中内容

Answer 1

你既然会用向导导入的话那就很容易获得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我。

Answer 2

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