Consulta Error 91 Exportar de Excel a Word

1 post / 0 nuevos
visitante (no verificado)
Imagen de visitante
Consulta Error 91 Exportar de Excel a Word

Me da Error 91  y no se que tenga mal.

Sub ExportarDeExcelAWord()

'Declarando 2 variables: una para gestionar la aplicacion word, otra para el document

Dim oAplicacionWord As Word.Application

Dim ODocumento As Word.Document

Set oAplicacionWord = New Word.Application

Set ODocumento = oAplicacionWord.Documents.Add()

Dim textiActualCelda As String

For contador = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row

textoActualCelda = textoActualCelda & "" & Cells(contador, 1)

Next contador

oAplicacionWord.Visible = True

Set ODocumento = Nothing

Set oAplicacionWord = Nothing

 

Cuando me da Error 91, me sombrea: Set ODocumento = oAplicacionWord.Documents.Add()

 

Me podrian ayudar?

Jalmar

[tema creado desde comentario en http://www.necesitomas.com/error-91-tiempo-ejecucion-variable-objeto-o-bloque-with-no-establecido]

Etiquetas: