Excel VBA 文本文件打开对话框以及读写

Question

之前用习惯了Workbooks.OpenText，但是现在文本文件的文件名是不确定的，只能用一个对话框让用户来选择，我用了Application.FileDialog(msoFileDialogOpen),修改默认路径和文件类型筛选都很好，就是打开以后什么都没有，跟没打开似的，然后我就不知道怎么去读写那个刚打开的文件了，请高手指教。谢谢！

Answer 1

建议用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命令打开吧！

不然肯定是“打开以后什么都没有，跟没打开似的”了！

Answer 2

试试这个：
Set fd = Application.FileDialog(msoFileDialogOpen) '创建打开对话框对象
If fd.Show = -1 Then '如果选择了文件
FileName = fd.SelectedItems(1) '记录文件路径(指定文本文件名)
End If

Answer 3

小子 去EXCELHOME 别到百度问

Answer 4

不明白你在说什么,如果你是说找不到那个文件,那你可以打开我的电脑,点上面的搜索按扭,然后输入那个文件的名字,开始搜索就可以了,系统会帮你找到的.