Cuando se necesite traspasar columnas de gran tamaño (por ejemplo tipo Text de SQLServer) y se prevea que los registros contengan mucha información en dichas columnas ( + de 1000 caracteres), es aconsejable modificar el tipo de Inserción de la Tarea Insertar Datos.
Las modalidades que permiten insertar este dato son:
- Modalidad OLE optimizada,
- Modalidad OLE paso o paso.
La elección de una modalidad u otra irá en función de la versión del driver del controlador del DSN seleccionado en el perfil de base de datos que utiliza la consulta. Basta con simplemente realizar una prueba seleccionando una modalidad u otra para saber cuál es la indicada.
Para realizar el cambio se debe usar el botón Avanzado que aparece en el Paso 3 de la definición de la tarea.
Un efecto colateral de este cambio es que el rango DatosDetalle no se expande hasta el total de líneas insertadas en el rango. Para solventar este efecto, basta con ejecutar a continuación otra tarea de tipo Ejecutar Macro llamando a la macro ExpandirRango.
Sub ExpandirRango(NombreRango As String)
On Error Resume Next
Dim rg As Range
Dim filaInicial As Long
Dim filaFinal As Long
Dim colInicial As Long
Dim colFinal As Long
filaInicial = Range(NombreRango).Row
colInicial = Range(NombreRango).Column
Range(NombreRango).Activate
Cells(filaInicial, colInicial).Activate
ActiveCell.SpecialCells(xlLastCell).Select
colFinal = ActiveCell.Column
filaFinal = ActiveCell.Row
Set rg = Range(NombreRango).Resize(filaFinal - filaInicial + 1, colFinal - colInicial + 1)
ActiveWorkbook.Names.Add Name:=NombreRango, RefersToR1C1:=rg
End Sub
Nota: Esta macro no está incluida en las macros estándar pero se puede añadir a la plantilla.
Más información:
http://soporte.apesoft.com/entries/20472558-como-anadir-mis-propias-macros-excel-a-un-proceso-datacycle
Las tareas Insertar Datos y Ejecutar Macro están disponibles en nuestras ediciones Composer, Workgroup y Entrerprise.
0 Comentarios