请问高手:如何在VB.NET中实现把SQL数据库里表的数据导入到Excel中?谢谢!
如何在VB.NET中把SQL数据库里的某个表的(部分)数据导入到格式已定的Excel文档中?听说可以建立一个空的包含格式的Excel文档,再把数据导入,请问高手这样行吗?...
如何在VB.NET中把SQL数据库里的某个表的(部分)数据导入到格式已定的Excel文档中?
听说可以建立一个空的包含格式的Excel文档,再把数据导入,请问高手这样行吗?
能详细地教我怎样弄吗?
谢谢!不胜感激! 展开
听说可以建立一个空的包含格式的Excel文档,再把数据导入,请问高手这样行吗?
能详细地教我怎样弄吗?
谢谢!不胜感激! 展开
2013-09-25
展开全部
这个我是这么实现的.要用到
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文件里了吧、其实连格式都是可以程序控制的好好学下吧.
可以参考一下这篇文章
http://blog.csdn.net/hawordcheng/archive/2006/10/26/1351931.aspx
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文件里了吧、其实连格式都是可以程序控制的好好学下吧.
可以参考一下这篇文章
http://blog.csdn.net/hawordcheng/archive/2006/10/26/1351931.aspx
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询