急啊，vb中如何将我查询得到的记录保存到Excel文件中去啊？

Question

各位大侠帮忙啊

Answer 1

http://blog.csdn.net/xayzmb/archive/2005/01/05/241030.aspx

Answer 2

Private Sub Command1_Click()    Dim cn  As New ADODB.Connection
    
    cn.Open "Driver={SQL Server};Server=yangao;DataBase=xinzi20050221;UID=sa;PWD=12345;"
    
    cn.Execute "master..xp_cmdshell 'bcp ""select * from xinzi20050221.dbo.CaoZuo"" queryout c:\temp2.xls -c -S yangao -U sa -P 12345 '"End Sub复制过去
yangao替换成你的服务器
xinzi替换成你的数据库
12345替换成你的服务器密码
select * from xinzi.dbo.bankcard替换成你的查询没有EXCEL则自动创建，有则覆盖。