VB.NET 中生成Excel文件并弹出对话框保存

    ''' <summary>
    ''' Function:To Generate the report.
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub GenerateReport()
        Dim oXL As Excel.Application
        Dim oWB As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim oRng As Excel.Range

        oXL = CreateObject("Excel.Application")
        oXL.Visible = False

        'Create New Workbook and Set Active Sheet
        oWB = oXL.Workbooks.Add
        oSheet = oWB.ActiveSheet

        With oSheet.Range("B3", "BG3")
            .Font.Bold = True
            .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
            .Borders(Excel.XlBordersIndex.xlInsideVertical).LineStyle = Excel.XlLineStyle.xlContinuous
            .Cells.BorderAround(Excel.XlLineStyle.xlContinuous,