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

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

先在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#的语法有些区别
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>