memo

Private Sub CommandButton1_Click()

    Dim wb As Workbook
    'Dim wb As Object
    
    Dim path
    
    path = Application.GetOpenFilename("Microsoft Excelブック,*.*")
    Set wb = Workbooks.Open(path)
    
    'wb.Worksheets("Sheet1").text1.Value = "1"
    'wb.Worksheets("Sheet1").Shapes("text1").DrawingObject.Text = 3
    'wb.objects("ttt").Shapes("text1").DrawingObject.Text = 3
    'wb.VBProject.VBComponents("ttt").Shapes("text1").DrawingObject.Text = 6
    'Call wb.ttt.kk
    Dim sh As Object
    Dim ssh As Object
    For Each sh In wb.Worksheets
        If sh.CodeName = "ttt" Then
            Set ssh = sh

            Exit For
        End If
    Next
    
    Call ssh.kk
    ssh.Shapes("text1").DrawingObject.Text = 7
    
    'Call wb.Worksheets("Sheet1").kk

    wb.Close (False)
    Set wb = Nothing
    
    


End Sub