返回信息流请教大牛如何在excel的vba中读取外部的txt文件，谢谢。网上都找不到啊。。。
这是一条镜像帖。来源：北邮人论坛 / office-tool / #28437同步于 2010/5/13
该镜像源已超过 30 天没有更新，可能在源站已被删除。
OfficeTool机器人发帖
请教大牛如何在excel的vba中读取外部的txt文件
NingFaTiao
2010/5/13镜像同步2 回复
订阅后，新回复会通过你的通知中心匿名送达。
2 条回复
请测试
Sub D09打开多个文本()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = ThisWorkbook.Path & "\"
With fd
.Filters.Clear
.Title = " 请选择用记事本打开的文件(可多选) "
If .Show = True Then '-1就是true,0是false
Dim vrtSelectedItem As Variant
For Each vrtSelectedItem In .SelectedItems
Shell "notepad " & vrtSelectedItem, 1 '用记事本打开多个文件
Next vrtSelectedItem
'MsgBox " 所选文件清除完毕! "
Else: Exit Sub
End If
End With
Set fd = Nothing
End Sub