Excel - error en la sentencia createobject("word.application")

 
Vista:

error en la sentencia createobject("word.application")

Publicado por lamberto (1 intervención) el 28/05/2023 09:41:59
estoy intentando expotar datos de excel a WORD con estas lineas

Dim objword As Object
Dim objword As Word.Application
Set objword = CreateObject("Word.Application", "")

cuando lo compilo me da error-21469559355ec en la ultima linea y no creael objeto
me podéis ayudar??

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Pere

error en la sentencia createobject("word.application")

Publicado por Pere (5 intervenciones) el 29/05/2023 12:36:44
Hola,
No sé muy bien el contexto de tu código, pero veo que creas la variable 'objword' dos veces.
Para crear un objeto Word, puedes hacerlo con un par de líneas:
1
2
Dim objWord
Set objWord = CreateObject("Word.Application")

Debes estar atento de controlar los procesos y la memoria que ocupan, así como cerrar y abrirlos cuando sea necesario.

Si quieres que este objeto contenga un documento en blanco, necesitarás otra variable como objeto:
1
2
Dim objDoc
Set objDoc = objWord.Documents.Add

Una forma de ver que la aplicación está activa, es dandole el valor 'True' como Visible:
1
objWord.Visible = True

Una sugerencia de código sería esta:
1
2
3
4
5
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
objWord.Visible = True


Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar