先在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中，只需改動少許即可運行，