Recordset
取得レコードセット.Open Source:=sql, ActiveConnection:=conn 件数取得レコードセット.Open Source:=sql, ActiveConnection:=conn, CursorType:=adOpenStatic, LockType:=adLockReadOnly値レコードセット.Fields("列名").Value
レコードセット!列名.Valueループ
Do Until レコードセット.EOF
処理 レコードセット.MoveNextLoop結果をセルに貼り付け
セル.CopyFromRecordset レコードセット件数
レコードセット.RecordCountCursorTypeをadOpenStaticにしておく
0