如何在excel文件中读取其所在文件夹的txt数据

人工置顶等达人~

thisworkbook.path & "文件名"


如：thisworkbook.path & "yyy.txt"

恩呢。
我用了一个巨笨的方法
dim spath as string

spath = thisworkbook.path

……

总算弄出来了
不过看了你的方法，顿时觉得很清爽
你厉害～

http://zhidao.baidu.com/question/42583334.html?quesup1

这是我在百度知道上贴的问题帖

请诸位有空把这个问题回答了

有悬赏分�

Dim Fso, Fs, MyArray
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fs = Fso.OpenTextFile(ThisWorkbook.Path + "\dat1.txt", 1, True)
i = 1
While Fs.AtEndOfLine <> True
 Sheet1.Cells(i, 1) = Fs.Readline
 i = i + 1
Wend
Fs.close

以上是逐行读取当前文本夹中名字为dat1.txt文本中的数据到Excel中的宏
如果文本中的数据是111,222,333这样用逗号分割的数据形式,
用 Split函数读取即可