怎样用excelVBA将sql数据库中数据的列名读取到excel中

[xuersweety]

我用excelVBA将sql数据库中的数据读取到excel的工作簿中的，但是读取出的数据不能包含列名，怎样将数据的列名一起读取到excel中？


先谢过~~
等待高手指教~~

[xuersweety]

高手在哪里

[xuersweety]

怎么没人回答？问题已经解决了，白送分啊~~

[风寒晓]

直接用数据源连接啊，自其它来源，SQL SERVER! 我们ERP数据经常这样快速查询的！

[downmoon]

小结了一下不用VBA的情况：
http://blog.csdn.net/downmoon/article/details/7535412

[downmoon]

如果不使用VBA,可以参考这里：
http://social.msdn.microsoft.com/forums/en-US/sqlgetstarted/thread/812b8eec-5b77-42a2-bd23-965558ece5b9/

BCP "DECLARE @colnames VARCHAR(max);SELECT @colnames = COALESCE(@colnames + ',', '') + column_name from my_db_name.INFORMATION_SCHEMA.COLUMNS where TABLE_NAME='my_table_name'; select @colnames;" queryout HeadersOnly.csv -c -T -Smy_server_name

BCP my_db_name.dbo.my_table_name out TableDataWithoutHeaders.csv -c -t, -T -Smy_server_name

copy /b HeadersOnly.csv+TableDataWithoutHeaders.csv TableData.csv

del HeadersOnly.csv
del TableDataWithoutHeaders.csv