用EXCEL函数导入文本文件

来源:百度知道 编辑:UC知道 时间:2024/05/09 08:16:34
有一个外部的TXT文件,我想用excel的函数导入某一个单元格。不要告诉我用打开文本,然后点下一步....我需要的是自动化的实现,求高手赐教。
(不是函数也行,反正要自动实现。谢谢啊)
1楼的大哥,能不能使我们指向单元格时,出来的是个函数值,从而不能直接在excel上修改。
而且不能新建个excel工作簿。

用VBA可以做到
假设文本文件名为1.txt,路径为d:\\1.txt
读出的内容放到A2单元格
Sub 读文本文件()
Dim fn As Long, ts As String
fn = FreeFile
Open "d:\\1.txt" For Binary As #fn
ts = Input(LOF(fn), #fn)
Range("a2") = ts
Close #fn
End Sub

A1输入
='C:\路径\[文件名.txt]文件名'!A1
向右向下填充