○○○○○○○○○○○○○○○○○
セル内容取得

Sub aa()
    Cells(1, 3) = ""
    
    col = 1
    For Row = 1 To 2
        fname = Cells(Row, col)
        pos = InStrRev(fname, "\")
        Pathname = Left(fname, pos)
        Filename = Mid(fname, pos + 1)
    
        Cells(Row, 2) = ExecuteExcel4Macro("'" & Pathname & "[" & Filename & "]AA'!R4C1")
    Next
End Sub