怎样用VBA编程实现将记事本数据导入EXCEL

Sub try()
Dim FileName As String
Dim TextLine As String
Dim I As Integer
I = 1
FileName = "c:\a.txt" '换成你要输入的文件路径与名称
Open FileName For Input As #1

Do While Not EOF(1)
Line Input #1, TextLine
Cells(I, 1) = TextLine
I = I + 1
Loop
close
End Sub

记事本可以用Excel直接打开啊，为什么那么麻烦呢？

话说我记得VB里面里面有套东西叫做控件。就是在按钮的那一个BAR里，你右击后可以添加，如果你安装了WIN OFFICE系列，应该有微软EXCEL相关的插件，可以直接使用。拉入窗体后就如同一个EXCEL了。。

话说如果你导入的表格的话。这个理论上不应该是普通的TXT格式，应该是有位置等信息的，也就是保存方式上遵循矩阵的概念，应该要告诉你维数，根据维数来定义变量。然后用FOR RANDOM读入，注入多维变量中。。

-END