VB/VB.NET/C#导出到Excel的方法

先在VB的工程中引用“Microsoft Excel 11.0 Object ”11.0是版本号，不重要的，Excel2000是9.0

'申明变量

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")

'使用模板

Set xlBook = xlApp.Workbooks.Open(App.Path & "\普通.xls")

On Error GoTo 0

Set xlSheet = xlBook.Worksheets(1)

xlApp.Visible = False

xlSheet.Activate

'处理数据,填充Excel表

xlSheet.Cells(3, 4) = TextQuery.Text '产品名称

……

'//////////////

xlApp.Visible = True '显示表格

Set xlApp = Nothing '交还控制给Excel

Set xlBoook = Nothing

Set xlSheet = Nothing

到此，导出到Excel完成，在.NET中，只需改动少许即可运行，只是C#的语法有些区别

如果需要更详细的用法或是需要VB.NET/C#源代码的，请联系：xiaom@httec.com

MSN:ilxc8292@hotmail.com