Sub b1_accdb抽出PL()
Sheets("sheet1").Select
Range("b1:i200").ClearContents
Dim i As Long
Dim mySQL As String
Call a01_InODBC
For ii = 1 To 2
Select Case ii
Case 1
mySQL = "select min(ng) as 年月,max(ng) as 年月2,max(kamoku) as 科目," & _
"sum(tokyo) as 東京,sum(osaka) as 大阪,sum(kobe) as 神戸," & _
"sum(total) as 合計,min(id) as IDコード from PL" & _
" where ng between " & Sheets("sheet1").Range("a4").Value & "" & _
" and " & Sheets("sheet1").Range("a7").Value & ""
mySQL = mySQL & " group BY kcode order by kcode asc"
Set rs = cn.Execute(mySQL)
With rs
'フィールド名
For i = 1 To .Fields.Count
Cells(1, i + 1).Value = .Fields(i - 1).Name
'行1,列2に抽出
Next
'レコード
Range("b2").CopyFromRecordset rs
End With
'myCon.Close
End Select
Next
Call a09_OutODBC
End Sub