ACCESS查询后指定字段到列

rs851113

各位高手
       小弟模仿别人的做了个ACCESS查询，从ACCESS查询提取到EXCEL，但对应不到列，请帮忙解决一下，谢谢了！
        大概懂得原理，可做了就是不通，ACCESS密码13

目的：在EXCEL   A5行，根据需要设几个字段名，按需要从EXCEL中提取。

rs851113

arr = Range("a5", [iv1].End(1))
For i = 1 To UBound(arr, 2)
    If Len(arr(1, i)) Then s = s & "," & arr(1, i) Else s = s & ",null"
Next
SQL = "Select " & Mid(s, 2) & " from 凭证数据库"

如果用这样的方式写，想在EXCEL设几个字段名，根据需要提取，可不知道要怎么添加进去？麻烦了！我提取的是所有字段，能否按要求提取？