vb net 2003 / Excel

21/11/2005 - 11:10 por Jordi Maycas | Informe spam
Hola, estoy desarrollando un plugin para SolidWorks, y necesito interactuar
con Excel y con este codigo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim m_excel As Excel.Application

Dim fichero As String = "c:\\Terminador\\Pieza base.xls"

Dim objlibroexcel As Excel.Workbook

Dim objhojaexcel As Excel.Worksheet

m_excel = New Excel.Application

m_excel.Visible = True

'm_excel.Quit()

End Sub



Obtengo un mesaje de Error: Unhandled excepction has occurred in a component
in your application. El servidor lanzo

una excepcion (Excepcion from HRESULT: 0x80010105 (RPC E SERVERFAULT).



¿Alguna idea?



Gracias

Preguntas similare

Leer las respuestas

#1 SoftJaén
21/11/2005 - 11:56 | Informe spam
"Jordi Maycas" escribió:

necesito interactuar con Excel y con este codigo:

Dim m_excel As Excel.Application

Obtengo un mesaje de Error: Unhandled excepction has
occurred in a component in your application. El servidor lanzo

una excepcion (Excepcion from HRESULT: 0x80010105 (RPC E SERVERFAULT).




Hola, Jordi:

La única idea que te puedo ofrecer, es preguntarte por la versión de
Microsoft Excel que tienes referenciada en tu solución de .NET, porque si
tienes la versión 11.0 (Microsoft Excel 2003), el código que has publicado
no tiene por qué darte excepción alguna, siempre y cuando tengas importado
el espacio de nombres «Microsoft.Office.Interop».

Si por casualidad tienes referenciada la versión 10.0 (Microsoft Excel XP),
lo mismo tienes que descargar el «Ensamblado de Interoperabilidad Primario»
(PIA), tal y como se detalla en el siguiente artículo de la Base del
Conocimiento (servicio de traducción automática), y al cual te remito por si
tiene algo que ver con el asunto en cuestión:

Ensamblado de interoperabilidad primario (PIA) de Microsoft Office XP está
disponible para descarga
http://support.microsoft.com/kb/328912/

Un saludo


Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.
Respuesta Responder a este mensaje
#2 Braulio Diez
21/11/2005 - 14:49 | Informe spam
Hola,

Con Excel Automation y 2003 yo he encontrado probmas con la "cultura", si
no es English standard (en nuestro caso será España) te da fallos raros, te
paso un par de links:

http://support.microsoft.com/kb/320369
http://www.dotnet247.com/247referen...86768.aspx

A ver si hay suerte y eso eso. Saludos
Braulio

/// --
/// Braulio Díez
/// Desarrollador C#
/// Málaga - España
// --


"Jordi Maycas" wrote:

Hola, estoy desarrollando un plugin para SolidWorks, y necesito interactuar
con Excel y con este codigo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim m_excel As Excel.Application

Dim fichero As String = "c:\\Terminador\\Pieza base.xls"

Dim objlibroexcel As Excel.Workbook

Dim objhojaexcel As Excel.Worksheet

m_excel = New Excel.Application

m_excel.Visible = True

'm_excel.Quit()

End Sub



Obtengo un mesaje de Error: Unhandled excepction has occurred in a component
in your application. El servidor lanzo

una excepcion (Excepcion from HRESULT: 0x80010105 (RPC E SERVERFAULT).



¿Alguna idea?



Gracias





Respuesta Responder a este mensaje
#3 Braulio Diez
21/11/2005 - 14:49 | Informe spam
Hola,

Con Excel Automation y 2003 yo he encontrado probmas con la "cultura", si
no es English standard (en nuestro caso será España) te da fallos raros, te
paso un par de links:

http://support.microsoft.com/kb/320369
http://www.dotnet247.com/247referen...86768.aspx

A ver si hay suerte y eso eso. Saludos
Braulio

/// --
/// Braulio Díez
/// Desarrollador C#
/// Málaga - España
// --


"Jordi Maycas" wrote:

Hola, estoy desarrollando un plugin para SolidWorks, y necesito interactuar
con Excel y con este codigo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim m_excel As Excel.Application

Dim fichero As String = "c:\\Terminador\\Pieza base.xls"

Dim objlibroexcel As Excel.Workbook

Dim objhojaexcel As Excel.Worksheet

m_excel = New Excel.Application

m_excel.Visible = True

'm_excel.Quit()

End Sub



Obtengo un mesaje de Error: Unhandled excepction has occurred in a component
in your application. El servidor lanzo

una excepcion (Excepcion from HRESULT: 0x80010105 (RPC E SERVERFAULT).



¿Alguna idea?



Gracias





Respuesta Responder a este mensaje
#4 Jordi Maycas
22/11/2005 - 11:43 | Informe spam
pues aqui ahora mismo tengo el 2003 con office'97.. si 97...

"SoftJaén" escribió en el mensaje
news:
"Jordi Maycas" escribió:

necesito interactuar con Excel y con este codigo:

Dim m_excel As Excel.Application

Obtengo un mesaje de Error: Unhandled excepction has
occurred in a component in your application. El servidor lanzo

una excepcion (Excepcion from HRESULT: 0x80010105 (RPC E SERVERFAULT).




Hola, Jordi:

La única idea que te puedo ofrecer, es preguntarte por la versión de
Microsoft Excel que tienes referenciada en tu solución de .NET, porque si
tienes la versión 11.0 (Microsoft Excel 2003), el código que has publicado
no tiene por qué darte excepción alguna, siempre y cuando tengas importado
el espacio de nombres «Microsoft.Office.Interop».

Si por casualidad tienes referenciada la versión 10.0 (Microsoft Excel
XP),
lo mismo tienes que descargar el «Ensamblado de Interoperabilidad
Primario»
(PIA), tal y como se detalla en el siguiente artículo de la Base del
Conocimiento (servicio de traducción automática), y al cual te remito por
si
tiene algo que ver con el asunto en cuestión:

Ensamblado de interoperabilidad primario (PIA) de Microsoft Office XP está
disponible para descarga
http://support.microsoft.com/kb/328912/

Un saludo


Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado
o
sugerido en el presente mensaje.







Respuesta Responder a este mensaje
#5 SoftJaén
22/11/2005 - 13:40 | Informe spam
"Jordi Maycas" escribió:

pues aqui ahora mismo tengo el 2003 con office'97.. si 97...



No tengo instalado Office 97, y no te puedo decir si puedes trabajar con
Excel 97 y Visual Basic 2003. Te remito a los siguientes artículos de la
Base del Conocimiento, por si encuentras algo que te pueda ser útil:

INFO: Develop Microsoft Office solutions with Visual Studio .NET
http://support.microsoft.com/defaul...-US;311452

HOW TO: Transfer Data to an Excel Workbook by Using Visual Basic .NET
http://support.microsoft.com/defaul...-US;306022

Otra cosa que también puedes hacer, para trabajar con la biblioteca de
Excel, es crear variables genéricas del tipo «Object», y crear los enlaces
en tiempo de ejecución; como si tuvieras usando Visual Basic 6.0. Pero para
ello, primeramente deberás de deshabilitar en el módulo la instrucción
«Option Strict», porque de lo contrario, no vas a poder hacer nada. Prueba
lo siguiente:

Dim oExcel, oBook, oSheet As Object

' Creamos un nuevo libro de trabajo de Excel
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add

' Añadimos datos a las celdas de la primera
' hoja del cálculo
oSheet = oBook.Worksheets(1)

With oSheet
.Range("A1").Value = "Apellidos"
.Range("B1").Value = "Nombre"
.Range("A1:B1").Font.Bold = True
.Range("A2").Value = "Gutierrez"
.Range("B2").Value = "José"
End With

' Guardamos el libro de trabajo y cerramos Excel
oBook.SaveAs("C:\Mis documentos\Libro100.xls")
oExcel.Quit()
oExcel = Nothing

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida