Attribute VB_Name = "testbook1"
Sub テスト()

    Dim book1 As Workbook
    Dim str As String
    
    Workbooks.Open "C:\excelsample\成績.xls"

    Set book1 = Workbooks("成績.xls")
    str = book1.Worksheets("Sheet1").Range("B2").Value
    MsgBox str
    
End Sub