请问高手：如何在VB.NET中实现把SQL数据库里表的数据导入到Excel中？谢谢！

这个我是这么实现的.要用到

成都创新互联是一家专注于网站建设、成都网站制作与策划设计,永清网站建设哪家好?成都创新互联做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:永清等地区。永清做网站价格咨询:18980820575

Excel.Application

Set xlapp = CreateObject("Excel.Application") '激活EXCEL

xlapp.Visible = True '让EXCEL可见

Set xlbook = xlapp.Workbooks.Open(App.Path + "个人简历.xlt")

'打开工作簿，strDestination为一个EXCEL报表文件

Set xlsheet = xlbook.Worksheets(1) '设定工作表

这个有点像是vb6的、vb.net也有相应的方法的.总之是

excel.application 用到这个就可以了.必要的话导入excel的dll文件.

这样你就发现、可以用vb.net来对excel来操作.你可以查下微软的msdn、有具体的属性方法.

如:

Dim ef As New Excel.Application

Dim es As New Excel.Worksheet

Dim er As Excel.Range

ef.Workbooks.Add()

es = ef.Worksheets("sheet1")

es.Activate()

er = es.Range("a1:C1")

er.Select()

er.Merge()

er.Value = "gordon1117"

ef.Visible = True 目前应用了三个对象:application,worksheet和range,三者的关系应该清晰,做到这点就能从基本开始做了:)格式设置都在range对象,只不过在设置对齐属性上是verticalalignment和horizon

range 用来定位、

然后你可以循环把数据输出到指定了格式的excel文件里了吧、其实连格式都是可以程序控制的好好学下吧.

可以参考一下这篇文章

VB中把SQL数据导出到EXCEL该怎么做

建议你直接用excel的VBA，很方便，用ADO链接数据库。

或者excel本身就可以直接连接数据库。

一定要VB的话，也是ADO连接，然后vb要引用Microsoft Excel xx.0 Object Library，操作excel。

VB.NET的话可以用NPOI/ExcelLibrary等读写excel。

如何在vb.net中将一个已经帮定好的sql server的表保存为一个excel表格?

要用T-SQL语句直接导出至Excel工作薄，就必须借用SQL Server管理器的一个扩展存储过程：“xp_cmdshell”，此过程的作用为“以操作系统命令行解释器的方式执行给定的命令字符串，并以文本行方式返回任何输出。”下面为定义示例：

EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Book3.xls -c -q -S"servername" -U"sa" -P""'

参数：S 是SQL服务器名；U是用户名；P是密码,没有就空着

说明：其实用这个过程导出的格式实质上就是文本格式的，不信的话在导出的Excel表中改动一下再保存看看。

实际例子与说明如下：

A，将表整个导出至Excel：

EXEC master..xp_cmdshell 'bcp northwind.dbo.orders out c:\Book1.xls -c -q -S"(local)" -U"sa" -P""'

注：

××northwind.dbo.orders，为数据库名＋拥有者＋表名

××直接导出用“out”关健字

-------------------------------------------

B，利用查询来导出部分字段至Excel：

EXEC master..xp_cmdshell 'bcp "SELECT orderid,cutomerid,freight FROM northwind..orders ORDER BY orderid" queryout C:\ Book1.xls -c -S"(local)" -U"sa" -P""'

注：

××在bcp后面加了一个查询语句，并用双引号括起来

××利用查询要用“queryout”关键字

跪求 VB 将SQL表导出成excel文件 和 将excel导入到SQL表中

从SQL导到Excel中：

insert into openrowset('Microsoft.Jet.OleDb.4.0','Excel 8.0;HDR=Yes;DataBase=C:\***.xls',Sheet1$) Selec *（SQL表中的字段名 AS Excel表中的字段名[,SQL表中的字段名 AS Excel表中的字段名,…]） from 表名

从Excel导到SQL中：

insert into SQL表名(字段名)

select Excel字段名 AS SQL表字段名[,Excel字段名 AS SQL表字段名]

from openrowset('Microsoft.Jet.OleDb.4.0','Excel 8.0;HDR=Yes;DataBase=C:\***.xls',Sheet1$)

套用到VB中去就可以了

分享名称：关于vb.net导出sql表的信息
浏览地址：http://lswzjz.com/article/hpgcog.html