食物嵌塞牙龈:将查询结果导出到Excel的另一个方法

来源：百度文库 编辑：偶看新闻 时间：2024/04/30 03:15:02

将查询结果导出到Excel的另一个方法

发布时间：2008-04-03 10:39:46  来源：Blog  作者：Blog  点击：251

Option Explicit
Dim dbado As New ADODB.Connection
Dim cmdado As New ADODB.Command
Dim sqlstr As String
Dim howdo As String
Dim filename As String

Private Sub command1_click()
filename = App.Path & "＼" & InputBox("输入新文件名：", "保存") & ".xls"
howdo = Text1.Text

dbado.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path  & "＼goods.mdb;Persist Security Info=False")


sqlstr = "SELECT * INTO [Excel 5.0;DATABASE=" & filename & "].[data] FROM [basic] where id in (" & howdo & ")"

dbado.Execute (sqlstr), , adCmdText + adExecuteNoRecords

dbado.close

end sub

Excel中通过函数运算完后，怎样将运算的结果剪切到另一个空白文档？ 如何将EXCEL表按另一个EXCEL表中的内容进行搜索，然后将结果复制到新的工作表中？ 将DataGrid数据导出到Excel文档的问题 将SQL的表头导出EXCEL 如何将查询的结果绑定到gridview控件。 如何将两个VFP的数据表的不同之处导出到EXCEL表格里 谢谢~~ 如何将网页数据库中数据导出到excel？ delphi 里怎样制作将数据 导出到excel？ jsp中如何将mysql数据导出到excel中？ 如何实现输出结果的Excel格式导出？ 如何将excel数据表更新到另一个数据表 我在将visul foxpro的数据表直接用export菜单导出到excel时总是只能导出前面一部分，请各位大哥大姐帮忙。 怎样将Sybase中的表导出再导入到另一个库中？ 请问如何将sql查询结果保存到文本问件中？ 如何将ASP页面中的表格导出到Excel文件中？ 请问怎样将excel数据正确无误的导入SQL Server和将SQL Server导出至excel（需要直接用语言导入/导出） 如何在Microsoft Excel中使用函数VLOOKUP将图片存到另一个工作表里面。 如何将电子邮件中已存的联系人导出到outlook中 摩托罗拉v3的如何将通讯录导出到电脑上？ 如何将ipod里的歌曲导出到硬盘上？ 有没有什么便捷的方法可以将一个QQ上的好友加到另一个QQ上？ c#导出excel的问题 高分！！如何将EXCEL里的数据通过access导出来！ 怎样将EXCEL表格里面以前粘贴的图片导出来保存?