Estoy trabajando con un libro de Excel que genero tras un código desde Access mediante VB. En este fichero, una vez abierto, quiero incluir un segmento de código que lea unos valores de texto y los vaya escribiendo, de manera vertical, en una línea.
Mi problema es que la primera vez que lo ejecuto funciona y me genera un Excel tal y como lo quiero. Pero (bien cierre el informe Excel que se acabe de generar o lo deje minimizado) a la segunda vez que ejecuto el código ya no funciona y no hace nada, o bien me da el error: <Object variable or with block variable not set>
¿Alguien sabe por qué podría ser?
mi segmento de código es el siguiente:
Dim xl As Excel.Application ' objeto Excel
Dim query$, letra$, ini as String
Dim rs as DAO.Recordset
Dim db as Database
Set db = CurrentDB
query = contenido_query ' "SELECT *.... lo que sea"
Set rs = db.OpenRecordset(q_cabecera)
letra = 70
ini = Chr(letra) & "3"
' Quisiera comenzar a escribir a partir de la celda F3 hasta que acabe rs
xl.Sheets(1).Range(ini).Select
' o también probé con: xl.Sheets(1).Range("F3").Select
' Aqui pretendo seleccionar primero la celda F3 y escribir en ella y, mientras no termine el contenido de rs, seleccionar las celdas contiguas (G3, H3....) y escribir en ellas cada uno de los valores de rs
Do While Not rs.EOF
ActiveCell.FormulaR1C1 = rs!nombre ' escribo en la celda el valor
'ActiveCell.Value = rs!nombre ' también probé con esto
ActiveCell.Offset(, 1).Select ' selecciono la celda contigua de la derecha
rs.MoveNext
Loop
Mil gracias por adelantado.
Saludos,
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola, buenos días a tod@s!
Estoy trabajando con un libro de Excel que genero tras un código desde Access mediante VB. En este fichero, una vez abierto, quiero incluir un segmento de código que lea unos valores de texto y los vaya escribiendo, de manera vertical, en una línea.
Mi problema es que la primera vez que lo ejecuto funciona y me genera un Excel tal y como lo quiero. Pero (bien cierre el informe Excel que se acabe de generar o lo deje minimizado) a la segunda vez que ejecuto el código ya no funciona y no hace nada, o bien me da el error: <Object variable or with block variable not set>
¿Alguien sabe por qué podría ser?
mi segmento de código es el siguiente:
Mil gracias por adelantado.
Saludos,