直接采用Open函数+Line input命令
 
  Private Sub txt_read()
           Dim txt As String
            Open "D:\dzh.txt" For Input As #1 '
            '对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，
            '并决定缓冲区所使用的访问方式。
            '打开文件作为数据输入用，文件号为#1
            Do While Not EOF(1)
                Line Input #1, txt  '从已打开的顺序文件中读出一行并将它分配给 String 变量
                'Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13))
                '或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上
                MsgBox txt
            Loop
            Close #1
    End Sub
    -----------------------------------------------------------------------------------------------
1、Open 语句 
打开方式有 
Input：以读取方式打开。
Output：以写入方式打开。
Append：以追加方式，即添加内容到文件末尾打开。
Binary：以二进制方式打开。
Random：以随机方式打开，如果未指定方式，则以 Random 方式打开文件。
 Open pathname For mode As [#]filenumber
 Open "c:\a.txt" For Output As #1
filenumber  是一个有效的文件号，范围在 1 到 511 之间。
如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。 
2、Close 语句 
语法：Close [filenumberlist]
     filenumberlist 参数为一个或多个文件号，若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。 
说明：打开文件后，必须在使用完后关闭文件。
 
3、EOF 函数 
语法：EOF(filenumber) 
功能：返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。
Open "c:\a.txt"  For Input As #1 ‘以读入方式打开c:\a.txt
Do While Not EOF(1)  '未到达结尾
          Line Input #1, s1     '读入一行，放入s1变量中
        Loop
        Close #1 

我们知道使用VBA打开一个电子表格指令，例如指令：
 Application.Workbooks.Open Filename:= "C:\Excel\Report.xls"
 
打开位于文件夹C:\Excel里面的文件Report.xls。除了使用专门的应用程序打开文件之外，你如果也想要创建VBA过程能够打开其它类型的文件并使用它们的内容的话，你就应该学习一些关于被称为低级别的文件I/O（input/output）。
 
接下来关于顺序，随机和二进制文件的章节将会带你直接接触你的数据。
 
文件的访问类型
 
计算机使用的文件类型有三种：
 
①顺序访问文件是指按储存相同的顺序找回数据的文件。例如以CSV格式（逗号分割文本），TXT格式（以Tab键分割的文本）或者PRN格式（以空格分隔的文本）储存的文件。顺序文件访问经常用来写文本文件，例如错误日志，参数设定和报告。顺序文件有下列模式：Input,Output和Append。模式决定了文件打开后你如何使用它。
  
 
②随机访问文件是文本文件，它的数据以同等长度储存并在一个以逗号分割的区域了。随机访问文件只有一个模式——Random
  
 
③二进制访问文件是图形文件和其它非文本文件。二进制文件只能够在Binary模式下访问。

 打开一个Excel文件，选择菜单栏上的"Tools"选项->Macro->Visual Basic Editor，打开VBA编辑器。
 
 在Modules文件夹下的csMain文件中，写下如下VB格式的代码：
 
 
Public Sub Source做成()

'声明Excel相关
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    
    Set xlApp = New Excel.Application
'获取指定excel文件
    Set xlBook = xlApp.Workbooks.Open("C:\test.xls")

    Dim sheet As Excel.Worksheet
'获取指定sheet
    Set sheet = xlBook.Worksheets(2)
    
    Dim ss As String
'获取指定单元格的内容
    ss = sheet.Cells(2, 2)
    
'内容显示
    MsgBox (ss)
  
End Sub

 

 

公司运营部门需要把影像资料梳理一遍，文件目录特别多，文件量也大，大概40多个G。自己写了一个读取目录下所有子文件的脚本
 开始参考了 VBA获取某文件夹下所有文件和子文件目录的文件中的代码，按照此方式获取的结果有问题。
 问题1 无法获取目录名中包含“.”的子目录
 
'-- 获得所有子目录
Do Until i > k
    f = Dir(file(i), vbDirectory)
        Do Until f = ""
            If InStr(f, ".") = 0 Then
                k = k + 1
                ReDim Preserve file(1 To k)
                file(k) = file(i) & f & "\"
            End If
            f = Dir
        Loop
    i = i + 1
Loop
 
代码中使用InStr(f, “.”) = 0 判断，只要名字中包含"."就按照文件处理
 
问题2 无法获取扩展名为空的文件
 
'-- 获得所有子目录下的所有文件
For i = 1 To k
   f = Dir(file(i) & "*.*")    '通配符*.*表示所有文件，*.xlsx Excel文件
   Do Until f = ""
      'Range("a" & x) = f
      Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:=file(i) & f, TextToDisplay:=f
       x = x + 1
       f = Dir
   Loop
Next
 
于是，自己实现了一个支持文件夹名称带“.”或文件名不带扩展名的。
 实现过程
 新建一个文件，在sheet1中增加两个按钮，一个用来选取文件夹，一个用来执行查询
 
选择文件脚本
 
Option Explicit
Sub 打开文件夹()

   With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            Worksheets("Sheet1").Range("C5").Value = .SelectedItems(1)
        End If
    End With
 
End Sub

 
执行脚本
 

Sub 按钮1_Click()

On Error Resume Next

Dim folderObj As Object
Dim currFolder
Dim fdCnt As Integer

Dim sDir As String

Dim dirExist, f As String
Dim file(), subFolder(), allfd() As String
Dim fileNum, k, x, idx, i, j, listNum
Dim threeDir As String

fileNum = 1
x = 1
k = 1
j = 0
i = 1

sDir = Worksheets("Sheet1").Range("C5").Value

'=== 0.清除数据=============================================
Sheet2.UsedRange.Clear

Worksheets("Sheet2").Range("A1").Value = "序号"
Worksheets("Sheet2").Range("C1").Value = "文件名"
Worksheets("Sheet2").Range("D1").Value = "文件路径"
Worksheets("Sheet2").Range("E1").Value = "文件格式"
Worksheets("Sheet2").Range("E1").Interior.Color = RGB(255, 255, 0)
Worksheets("Sheet2").Range("A1").Interior.Color = RGB(255, 255, 0)
Worksheets("Sheet2").Range("C1").Interior.Color = RGB(255, 255, 0)
Worksheets("Sheet2").Range("D1").Interior.Color = RGB(255, 255, 0)
Worksheets("Sheet2").Range("E1").Borders.LineStyle = xlContinuous
Worksheets("Sheet2").Range("A1").Borders.LineStyle = xlContinuous
Worksheets("Sheet2").Range("C1").Borders.LineStyle = xlContinuous
Worksheets("Sheet2").Range("D1").Borders.LineStyle = xlContinuous

'=== 1.判断选择的文件夹是否有效===============================

dirExist = dir(sDir, vbDirectory)
If dirExist = "" Then
    MsgBox ("选择的文件夹无效")
    Exit Sub
End If

'=== 2.获取所有子目录======================================

ReDim subFolder(1 To i)

subFolder(1) = sDir & "\"
f = dir(subFolder(1), vbDirectory)
Do Until f = ""
    If f <> "." And f <> ".." Then
        If (GetAttr(subFolder(1) & f) And vbDirectory) = 16 Then
            'Worksheets("Sheet3").Range("A" & k).Value = subFolder(1) & f & "\"
            k = k + 1
            ReDim Preserve subFolder(1 To k)
            subFolder(k) = subFolder(1) & f & "\"
        End If
    End If
    f = dir
Loop
i = i + 1

Dim tmp As Integer
tmp = 0

For Each fd In subFolder
    tmp = tmp + 1
    ReDim Preserve allfd(1 To tmp)
    i = 1
    k = 1
    Erase file
    ReDim file(1 To i)
    file(i) = fd
    allfd(tmp) = fd
    Worksheets("Sheet3").Range("B" & tmp).Value = allfd(tmp)

    If subFolder(1) = file(i) Then
         f = dir
        i = i + 1
    Else

    Do Until i > k
        f = dir(file(i), vbDirectory)
        Do Until f = ""
            If f <> "." And f <> ".." Then
                If (GetAttr(file(i) & f) And vbDirectory) = 16 Then
                    k = k + 1
                    ReDim Preserve file(1 To k)
                    file(k) = file(i) & f & "\"
                    tmp = tmp + 1
                    ReDim Preserve allfd(1 To tmp)
                    allfd(tmp) = file(i) & f & "\"
                   ' Worksheets("Sheet3").Range("B" & tmp).Value = allfd(tmp)
                End If
            End If
            f = dir
        Loop
        i = i + 1
    Loop
    End If
Next

'=== 3.获取所有子目录下的文件======================================
'
Dim threeStr As String

x = 2
idx = 1
For i = 1 To tmp
  
    f = dir(allfd(i) & "*.*")
    Do Until f = ""
        Worksheets("Sheet2").Range("A" & x).Value = idx
        Worksheets("Sheet2").Range("C" & x).Value = f
        Worksheets("Sheet2").Range("D" & x).Value = Replace(allfd(i), sDir, "") & f
        'Worksheets("Sheet2").Range("E" & x).Value = getFileType(f)
        
        'Worksheets("Sheet2").Range("B" & x).NumberFormatLocal = "@"
        'Worksheets("Sheet2").Range("B" & x).Value = getToubaodanHao(sDir, allfd(i))

      
        f = dir
        x = x + 1
        idx = idx + 1
    Loop
  
Next


End Sub



 
最终效果：
 
 
 
参考
 
W3CSchool VBA教程
VBA获取某文件夹下所有文件和子文件目录的文件
VBA 快速入门