祈求一段VB代码,用来导入数据

Question

小弟初来乍到，请多关照啊！请问各位大侠，怎样用VB编一段代码，将文本数据（源数据在记事本里）导入到EXCEL中啊？他要求必须使用VB代码完成。我试了很多很多次，实在无能为力了，请求哪位大侠帮帮忙，发一段代码，感激不尽！可能得用到EXCEL VBA宏代码。

Answer 1

这个应该是很简单的吧！你的“文本文件”的数据记录格式是什么样的？
Excel 工作表有无表头？占了几行？你究竟要 VB 代码，还是 VBA 代码？

Answer 2

如果文本文件格式一定的话，可以直接改成Excel 的后缀名，打开就是Excel 了。

Answer 3

同意3楼的说法,具体是这样实现的.
最简单的方法是将每行的文本数据用","分割,如:
张三,21,速度
李四,20,达到
再将文件后缀改为csv,这样默认的是用excel打开Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click()
    Dim s As String
    s = "d:\aaa.csv"
    Call ShellExecute(hwnd, "Open", s, "", App.Path, 1)
End Sub