之前用习惯了Workbooks.OpenText，但是现在文本文件的文件名是不确定的，只能用一个对话框让用户来选择，我用了Application.FileDialog(msoFileDialogOpen),修改默认路径和文件类型筛选都很好，就是打开以后什么都没有，跟没打开似的，然后我就不知道怎么去读写那个刚打开的文件了，请高手指教。谢谢！
建议用FileSystemObject操作：
示例
Sub ReadTextFile()
Dim fs As Object
Dim objFile As Object
Dim strContent As String
Dim strFileName As String
strFileName = "C:\aaa.txt" '此处可以用其他变量代替
Set fs = CreateObject("Scripting.FileSystemObject")
Set objFile = fs.OpenTextFile(strFileName)
Do While Not objFile.AtEndOfStream
strContent = strContent & objFile.ReadLine & vbCrLf
Loop
objFile.Close
Set objFile = Nothing
ActiveWorkbook.Sheets(3).Select
Range("A1").Select
Selection.Formula = strContent
End
另外，你用了Application.FileDialog(msoFileDialogOpen)打开文件，选择后实际上是没有打开文件的动作的，
需要用代码打开，文件名就是上面网友回答的“FileName = fd.SelectedItems(1) '记录文件路径(指定文本文件名)”
然后使用你常用的Workbooks.OpenText命令打开吧！
不然肯定是“打开以后什么都没有，跟没打开似的”了！
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-11-29
试试这个：
Set fd = Application.FileDialog(msoFileDialogOpen) '创建打开对话框对象
If fd.Show = -1 Then '如果选择了文件
FileName = fd.SelectedItems(1) '记录文件路径(指定文本文件名)
End If本回答被网友采纳
Set fd = Application.FileDialog(msoFileDialogOpen) '创建打开对话框对象
If fd.Show = -1 Then '如果选择了文件
FileName = fd.SelectedItems(1) '记录文件路径(指定文本文件名)
End If本回答被网友采纳
第2个回答 2009-05-12
小子 去EXCELHOME 别到百度问
第3个回答 2009-05-12
不明白你在说什么,如果你是说找不到那个文件,那你可以打开我的电脑,点上面的搜索按扭,然后输入那个文件的名字,开始搜索就可以了,系统会帮你找到的.
