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("Sheet…