Sub ExcelにSQLをかける() Dim adoCN As Object Dim adoRS As Object Dim strBookPath As String Dim wb As Workbook Dim lastRow As Long Dim arMaster As Variant Dim arKeySet As Variant Dim i As Long Dim str_条件1 As String Dim str_条件2 As String…