Private Sub CommandButton1_Click() MsgBox “元データエクセルを選択してください” Range(“A1:C100”).ClearContents Dim fileopen As Variant fileopen = Application.GetOpenFilename(“Microsoft Excelブック,*.csv?”) If fileopen <> False Then Workbooks.Open fileopen ActiveWindow.WindowState = xlMinimized Dim i As Long i = 1 Do Until Workbooks(2).Sheets(1).Cells(i, 1).Value = “” Cells(i, 1).Value = Workbooks(2).Sheets(1).Cells(i, 1).Value Cells(i, 2).Value = Workbooks(2).Sheets(1).Cells(i, 2).Value Cells(i, 3).Value = Workbooks(2).Sheets(1).Cells(i, 3).Value i = i + 1 Loop Workbooks(2).Close MsgBox “元データから取り込みました” End If End Sub