我想把sql里的数据用VB写入到excel里，请教

[liaijian]

就是在VB里从数据库里查询并把结果写入到了f_tbl表里，这个我已经实现了，我想要做的是把这个表里的数据导出到excel中，就是打开对话框自己选择保存路径、文件名的代码，谢谢了。

[鸭梨山大帝]

給你個核心代碼,自己去擴展
不要把EXCEL當成一個不可動的東西,其實你可以把它看成一個 Table集合
每個Sheet的名稱就是表名,你可以直接寫的

寫入例子如下(最簡單的):

INSERT into  OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="\\IPOrName\Path\A.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...sheet1$ 
SELECT A=1

IPOrName就是需要寫入的電腦IP或者名稱
這個文件夾 "\\IPOrName\Path" 需要開啟讀寫權限給SQL的登錄帳號