We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Imports System Imports System.IO Imports Excel = Microsoft.Office.Interop.Excel Partial Class GridViewEvent Inherits System.Web.UI.Page Protected Sub btnExcel_Click(sender As Object, e As System.EventArgs) Handles btnExcel.Click Dim appXL As Excel.Application Dim wbXl As Excel.Workbook Dim shXL As Excel.Worksheet Dim raXL As Excel.Range ' Start Excel and get Application object. appXL = CreateObject("Excel.Application") appXL.Visible = True ' Add a new workbook. wbXl = appXL.Workbooks.Add shXL = wbXl.ActiveSheet ' Add table headers going cell by cell. shXL.Cells(1, 1).Value = "Event ID" shXL.Cells(1, 2).Value = "Publication Effective Date" shXL.Cells(1, 3).Value = "Publication Expiration Date" shXL.Cells(1, 4).Value = "Email Signature" ' Format A1:D1 as bold, vertical alignment = center. With shXL.Range("A1", "D1") .Font.Bold = True .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter End With ' AutoFit columns A:D. raXL = shXL.Range("A1", "D1") raXL.EntireColumn.AutoFit() ' Make sure Excel is visible and give the user control ' of Excel's lifetime. appXL.Visible = True appXL.UserControl = True ' Release object references. raXL = Nothing shXL = Nothing wbXl = Nothing appXL.Quit() appXL = Nothing Exit Sub Err_Handler: MsgBox(Err.Description, vbCritical, "Error: " & Err.Number) End Sub End Class
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|asp.net, radiobuttonlist, c#||3||69|
|QBCFMonitorService.exe randomly stops on Windows Server 2016 Essentials.||7||74|
|Need help for captcha||2||42|
|Building Collections of Objects based on their Tag Property||33||54|
Join the community of 500,000 technology professionals and ask your questions.