
Error con el Excel.Application al publicar el proyecto en el servidor
Publicado por César Luis (1 intervención) el 24/09/2014 19:43:23
Buenas tardes, disculpen estoy tratando de abrir un archivo de excel, modificarlo con los datos en un gridview y posteriormente bajarlo en la maquina del cliente. Todo esto funciona mientras lo ejecuto en el localhost, pero cuando lo publico y lo intento desde el cliente marca que la pagina no fue encontrada, al darle click en el boton de descargar. Agradecesco de antemano la ayuda. No se si tenga que ver pero es posible que el servidor no tenga instalado Excel.
Este es el Codigo del Boton de descarga.
Protected Sub Descargar_Excel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Descargar_Excel.Click
Dim excel As Excel.Application
Dim libro As Excel.Workbook
Dim hoja As Excel.Worksheet
excel = New Excel.Application
libro = excel.Workbooks.Open("C:\EXCEL.xlsx")
hoja = excel.Worksheets("DATOS")
Dim nRow As Integer = TABLA.Rows.Count
For Fila = 0 To nRow - 1
For Col = 0 To 5
hoja.Cells.Item(Fila + 2, Col + 1) = Convert.ToString(TABLA(Fila)(Col))
Next
Next
hoja = excel.Worksheets("CUESTIONARIO")
hoja.Select()
hoja.SaveAs(Environment.GetFolderPath(Environment.SpecialFolder.Personal) + "\EXCEL" + format(now,”MMMM yyyy”) + ".xlsx")
libro.Close()
excel.Quit()
excel = Nothing
libro = Nothing
hoja = Nothing
If MsgBox("Tu archivo se ha generado correctamente en la carpeta " & Chr(34) & "Documentos" & Chr(34) & ", ¿Desea visualizarlo?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
System.Diagnostics.Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.Personal) + "\EXCEL" + format(now,”MMMM yyyy”) + ".xlsx") End If
End Sub
Este es el Codigo del Boton de descarga.
Protected Sub Descargar_Excel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Descargar_Excel.Click
Dim excel As Excel.Application
Dim libro As Excel.Workbook
Dim hoja As Excel.Worksheet
excel = New Excel.Application
libro = excel.Workbooks.Open("C:\EXCEL.xlsx")
hoja = excel.Worksheets("DATOS")
Dim nRow As Integer = TABLA.Rows.Count
For Fila = 0 To nRow - 1
For Col = 0 To 5
hoja.Cells.Item(Fila + 2, Col + 1) = Convert.ToString(TABLA(Fila)(Col))
Next
Next
hoja = excel.Worksheets("CUESTIONARIO")
hoja.Select()
hoja.SaveAs(Environment.GetFolderPath(Environment.SpecialFolder.Personal) + "\EXCEL" + format(now,”MMMM yyyy”) + ".xlsx")
libro.Close()
excel.Quit()
excel = Nothing
libro = Nothing
hoja = Nothing
If MsgBox("Tu archivo se ha generado correctamente en la carpeta " & Chr(34) & "Documentos" & Chr(34) & ", ¿Desea visualizarlo?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
System.Diagnostics.Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.Personal) + "\EXCEL" + format(now,”MMMM yyyy”) + ".xlsx") End If
End Sub
Valora esta pregunta


0