○○○

Sub aa()


Dim strPATHNAME: strPATHNAME = "C:\Users\user\Documents\"
Dim strFILENAME: strFILENAME = "aaa.xlsx"

Dim objCST As Worksheet: Set objCST = ActiveSheet
Dim objWBK As Workbook: Set objWBK = Workbooks.Open(Filename:=strPATHNAME & strFILENAME, _
                                    UpdateLinks:=False, ReadOnly:=True)
If Err.Number <> 0 Then
    On Error GoTo 0
End If
a1 = objWBK.Sheets(1).Cells(1, 1).Value
objCST.Cells(1, 1).Value = a1


objWBK.Saved = True
objWBK.Close SaveChanges:=False


End Sub