てすと

    Private Sub CommandButton2_Click()

    CommandButton1_Click

'    Application.DisplayAlerts = False
'    Application.ScreenUpdating = False
    
    Dim myFile As Variant
    
    ChDir "C:\MyFile\03_家計\クレジットカード明細"
    myFile = Application.GetOpenFilename("CSVファイル(*.csv),*.csv")

    If VarType(myFile) = vbBoolean Then
        MsgBox "キャンセルされました"
    Else
        'MsgBox myFile & " が選択されました"
        
        Workbooks.Open Filename:=myFile
        
        sheetName = Worksheets(1).Name ' １番目のシート名を取得
        'MsgBox sheetName
        
        Sheets(sheetName).Move after:=Workbooks("テスト.xlsm").Sheets("データベース")
        
'        Sheets(sheetName).Range("A1:G300").Select
'        Selection.Copy
'        Sheets("分析").Select
'        Range("D26").Select
'        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
'            :=False, Transpose:=False
'
'        Worksheets(sheetName).Delete
'
'        Range("A1").Select
                
    End If
    
    
'    'クレジットカードの明細の数をカウント
'    Sheets("分析").Range("D26").Select
'    credit_num = 0
'
'    Do While Not IsEmpty(ActiveCell)
'        ActiveCell.Offset(1, 0).Activate
'        credit_num = credit_num + 1
'    Loop
'
'
'    Application.DisplayAlerts = True
'    Application.ScreenUpdating = True
'
'    '調査結果を表示
'    MsgBox "登録なし件数は、" & Range("K24").Value & "件です。" _
'            & vbCrLf & "明細の件数は、" & credit_num & "件です。" _
'            & vbCrLf & " (300件以内であればOK)"
'
'
'    'MsgBox "明細の件数は、" & credit_num & "件です。"

    Range("A2").AutoFilter 1, "2", xlOr, "3"
    Range("A2").AutoFilter 2, "5"
 
''    コピー1　シート1をシート2へ
'    Sheets("Sheet1").Range("A6:C8").Copy Sheets("Sheet2").Range("A1")

''    コピー2
'    Sheets("Sheet1").Range("A6:C8").Copy
'    Sheets("Sheet2").Range("A5").PasteSpecial Paste:=xlPasteValues
'    Application.CutCopyMode = False

''    アクティブセル移動(縦方向)
    ActiveCell.Offset(1, 0).Activate
    
End Sub