CliantAccessが入っている環境ならば、
EXCEL　VBA+ADO　を使えば、CopyFromRecordset　で抽出結果をSheetにざっくり
と吐き出してくれると思います。

こんな感じで、Google検索すると出てくると思います。
Dim　objADOcn　As　New　ADODB.Connection
Dim　objRst　As　New　ADODB.Recordset
Dim　Newbook　As　Workbook
Dim　Newsheet　As　Worksheet
objADOcn.Open　"Provider=IBMDA400;Data　Source=***.***.***.***",　"user",
"pass"
strSQL　=　"SELECT　*　FROM　MYLIB.MYTBL　......."
Set　objRst　=　objADOcn.Execute(strSQL)
Set　Newsheet　=　Newbook.Worksheets(1)
Newsheet.Range("A2").CopyFromRecordset　objRst