exportar datagridview a excel

[lord467]

hola como estan miren el problema que tengo es que ando pasando un datagridview a excel este es el codigo que estoy utilizando

try
{
string temp;
int iColumnas = 0;
xlsApp.Application xlsapp= new xlsApp.Application();
//xlsApp.DisplayAlerts = false;
xlsApp.Worksheet xlsSheet;
xlsApp.Workbook xlsBook;
xlsapp.Visible = false;
xlsBook = xlsapp.Workbooks.Add(true);
xlsSheet = (xlsApp.Worksheet)xlsBook.ActiveSheet;
for (int iCol = 0; iCol < dgvDatos.Columns.Count; iCol++)
{
if (dgvDatos.Columns[iCol].Visible == true)
{
xlsSheet.Cells[1, iCol] = dgvDatos.Columns[iCol].HeaderText;
iColumnas++;
}
}
for (int iRow = 0; iRow < dgvDatos.Rows.Count; iRow++)
{
for (int iCol = 0; iCol < dgvDatos.Columns.Count; iCol++)
{
if (dgvDatos.Columns[iCol].Visible == true)
{
temp = dgvDatos[iCol, iRow].Value.ToString();
xlsSheet.Cells[iRow + 2, iCol] = temp;
}
}
}
//Definir el rango y aplicarle un formato.
xlsApp.Range rango = xlsSheet.get_Range(xlsSheet.Cells[1, 1], xlsSheet.Cells[dgvDatos.Rows.Count + 1, iColumnas]);
rango.Cells.AutoFormat(xlsApp.XlRangeAutoFormat.xl RangeAutoFormatList2, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value);
xlsSheet.Columns.AutoFit(); //Ajusta ancho de todas las columnas
xlsapp.Visible = true;
//xlsApp.Quit();
}
catch (Exception e)
{
throw e;
}

pero me sale este error
Excepción de HRESULT: 0x800A03EC

y no se como arreglarlo si alguien me puede ayudar por favor es urjente

[Bellabys]

Hola yo utilizo lo siguiente para exportar a exel

Código PHP:

   
 Dim sb As StringBuilder = New StringBuilder() 
            Dim sw As System.IO.StringWriter = New System.IO.StringWriter(sb) 
            Dim htw As HtmlTextWriter = New HtmlTextWriter(sw) 
            Dim pagina As Page = New Page 
            Dim form = New HtmlForm 
            dgPersonal.EnableViewState = False 
            pagina.EnableEventValidation = False 
            pagina.DesignerInitialize() 
            pagina.Controls.Add(form) 
            form.Controls.Add(dgPersonal) 
            pagina.RenderControl(htw) 
            Response.Clear() 
            Response.Buffer = True 
            Response.ContentType = "application/vnd.ms-excel" 
            Response.AddHeader("Content-Disposition", "attachment;filename=Personal.xls") 
            Response.Charset = "UTF-8" 
            Response.ContentEncoding = Encoding.Default 
            Response.Write(sb.ToString()) 
            Response.End()  
   

Dado que te urge sólo encontré en mis códigos el de VB en el C# tengo que buscarlo pero es muy fácil pasarlo a C#, sino dime para buscarlo y posteaerlo

Saludis!

[lord467]

muchas gracias por el codigo pero en realidad si me funciona el codigo que puse pero el error Excepción de HRESULT: 0x800A03EC no me permite pasarlo y no se como resolverlo pero todo lo demas si esta bien ojala tu sepas como aserlo por que si me urge