先在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#源代码的,请联系:[email protected] MSN:[email protected] 
|