Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
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
|Do you know how to ensure that a string date is padded with 0 in ASP.Net using C# and VS2010 in format MM/dd/yyyy ?||4||27|
|How to limit User Input||2||27|
|run a stored procedure from vb.net||1||27|
|Vb.net threads keep increasing||2||35|