Cita:
|
Empezado por csic17 Set Rng = wkbSheet.Range("A1:" + Chr(Grid.Cols + 64) + CStr(Grid.Rows))
For J = 0 To Grid.Cols - 1
For I = 0 To Grid.Rows - 1
Rng.Range(Chr(J + 1 + 64) + CStr(I + 1)) = Grid.TextMatrix(I, J)
Next
Next |
Fíjate como en la primera frase destacada dimensionas el rango con +64 columnas, y en la segunda quieres asignarle valor a la fila +65.
No he probado tu código, pero me llama la atención ese desajuste.