Public Sub b1EXLM_読込み()
 Application.ScreenUpdating = False '画面を固定
 Sheets("sheet2").Select            '「sheet2」シートの選択
 Range("c1:g40").ClearContents    'シートのクリア
Dim mySQL As String
Dim i As Long
Dim ii As Long

Call a04_InODBC

For ii = 1 To 1
Select Case ii
Case 1
    mySQL = "SELECT * FROM [会計ソフト$a1:e40] "
                            '会計ソフトはシート名　$セルの範囲
    
     Set rs = cn.Execute(mySQL)
    With rs
        'フィールド名
        For i = 1 To .Fields.Count
            Cells(1, i + 2).Value = .Fields(i - 1).Name
        Next
        'レコード
        Range("c2").CopyFromRecordset rs
    End With
   
End Select
Next

Call a09_OutODBC

    Application.ScreenUpdating = True  '画面の固定を解除
End Sub