求教从SQL快速导出到Excel的方法

Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1"))
   当记录很多，又是远程服务器时。为了保证效率，记录从SQL导出数据到Excel用上一条语句，比一个一个元素导出要快很多。但是这样就失去了灵活性，而Grid控件上的数据有时有些列是需要隐藏的，是不需要导出的。为了保证速度，又不能再次查询新的又用的数据。
   我现在用的方法是把ADO中的数据通过上面的语句全部导出到Excel里，再把不需要的列删除。这样比一个一个元素导出要快很多，比重新从服务器获取数据也要快。但，感觉这样很不正规。
    向广大网友求教一种更高效，更好的方法。