Question

VB.net如何打开添加在现有项里面的EXCEL文件

我将一个EXCEL文件做成一个模板，然后添加到我的VB.NET里的现有项。我想下载这个模板，有没有高手给我提供一下代码？

Answer 1

现在工程里添加引用Microsoft.Office.Interop.Excel，然后可以使用如下代码输出。

Dim oXl As Excel.Application = New Excel.Application()
        Dim oWb As Excel.Workbook
        Dim oWs As Excel.Worksheet
        On Error GoTo Morn
 
        oWb = oXl.Workbooks.Add()
        oWs = oWb.Worksheets(1)
       
        With oWs
             
                .Cells._Default(1, 1).Value ="a"
                .Cells._Default(1, 2).Value ="b"
.Cells._Default(1, 3).Value ="c"
.Cells._Default(1, 4).Value ="d"
               .Cells._Default(2, 1).Value ="32"
                .Cells._Default(2, 2).Value ="1"
.Cells._Default(2, 3).Value ="90"
.Cells._Default(2, 4).Value ="合格"             
         End With
        oWs.Parent.Names.Add("CostRange", "=" & "A1:B39")
        oWs.SaveAs(sFileName)
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        If MsgBox("已将数据输出到Excel文件中！ 现在打开该文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "已完成") = MsgBoxResult.No Then
            oXl.Quit()
        Else
            oXl.Visible = True
        End If
        oXl = Nothing
        oWs = Nothing
        oWb = Nothing