在一个工作表上从Dat文件获取数据

Question

我有一个文件夹，里面有很多“ DAT文件” -s

我需要从所有Dat文件-s的单元格A3和A4中提取一个工作表值。

Sub Test3()

    Dim sMsg As String

    ' LIST ALL TEXT FILES IN REPORT DIRECTORY '
    Const strFolder As String = "\\svkt0010\ptc\common\Machines\RMP1\Measured data\"
    Const strPattern As String = "*.dat"
    Dim strFile As String
    strFile = Dir(strFolder & strPattern, vbNormal)
    Do While Len(strFile) > 0
        sMsg = sMsg & strFile & Chr(13)
        strFile = Dir
    Loop
    MsgBox sMsg

End Sub

这是可行的，但是我需要工作表单元格中单元格A3和A4中的值。