Private Sub CommandButton7_Click()
Dim fileName As String
Dim filePath As String
Dim thisBook As Workbook
Dim workingBook As Workbook
Dim range1 As Range
Dim range2 As Range
Application.ScreenUpdating = False
Set thisBook = ActiveWorkbook
thisBook.Activate
'入力されたパスの修正