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

来源：百度知道 编辑：UC知道 时间：2024/06/08 03:23:34
之前用习惯了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