En un Select Case de VBA para Microsoft Excel es posible crear un Case que se ejecute cuanto no se cumplan las condiciones de ninguno de los anteriores.
La instrucción concreta es la siguiente.
Esto sustituye en nuestro ejemplo con una sola instrucción a tres condicionales en nuestro ejemplo original.
Este es el código completo del ejemplo.
Sub condicional()
'Declaramos una variable numerica
Dim dia As Integer
Dim dato As String
dato = Range("B2").Value
Select Case dato
Case 1:
MsgBox ("lunes")
Case 2:
MsgBox ("martes")
Case 3:
MsgBox ("miercoles")
Case 4:
MsgBox ("jueves")
Case 5:
MsgBox ("viernes")
Case 6:
MsgBox ("sabado")
Case 7:
MsgBox ("domingo")
Case Else:
MsgBox ("Dato incorrecto introduzca un numero del uno al siete")
Para mejorar el proceso de importación a través de Power Query podemos hacer uso del lenguaje M. que aumenta las posibilidades que nos ofrece el entorno gráfico.
Por ejemplo, mediante una única instrucción Splitter.SplitTextByPositions, podemos separar todas las columnas que deseemos.
Nota:
Esta instrucción es la misma que utiliza el entorno gráfico, pero solo nos permite indicar una única división.
En el primer caso, se generan gran cantidad de pasos en la importación, en la imagen vemos los pasos para obtener 3 columnas.
Este es el aspecto del editor gráfico.
Utilizando la instrucción enditada en lenguaje M, podemos reducir todos esos pasos a solo uno.
Siendo el resultado una tabla con todos los campos del fichero plano divididos en columnas.
Aquí os dejo la instrucción completa para dividir en columnas el fichero SINLI LIBROS v8 mediante lenguaje M.
= Table.SplitColumn(Origen,"Column1",Splitter.SplitTextByPositions({0, 18, 35, 52, 69, 86, 101, 181, 261, 411, 413, 421, 461, 463, 466, 468, 474, 478, 482, 486, 506, 586, 587, 589, 599, 609, 614, 615, 655, 665, 669, 670, 820, 970, 975, 1125, 1128, 1131, 1137, 1140, 1141, 1156, 1236, 1316, 1352, 1607, 1610, 1660, 1668, 1676, 1875, 3000}, false),{"EAN ", "ISBN Con guiones Facturación ", "ISBN Con guiones Obra completa ", "ISBN Con guiones Tomo ", "ISBN Con guiones Fascículo ", "Referencia ", "Título completo ", "Subtítulo ", "Autor/es Apellidos Nombre ", "País de publicación ", "Editorial Código ISBN completado con ceros a la", "Editorial Nombre ", "Encuadernación ", "Lengua de publicación Código ", "Número de edición ", "Fecha de publicación Mes año ", "Número de páginas ", "Ancho en mm. ", "Alto en mm. ", "Tema Materia CDUmás de una separada ;", "Descriptores palabras clave ", "Situación en catálogo ", "Tipo de producto ", "PVP sin IVA en EUROS sin puntuación", "PV con IVA en EUROS sin puntuación", "Porcentaje de IVA 416... ", "Tipo de precio * Si el tipo de precio es “L” el precio sin IVA será el precio de cesión y el Precio con IVA será el precio de cesión más el IVA correspondiente a él.", "Colección ", "Nº de colección ", "Nº de volumen ", "Imagen de portada y/u otras ** El nombre del fichero a d j u nt o co n la /la s imágenes será el EAN13", "Ilustrador cubierta Apellidos Nombre", "Ilustrador interior Apellidos Nombre", "Nº de ilustraciones en Color ", "Traductor Apellidos Nombre ", "Idioma Original ", "Grosor en milímetros ", "Peso en gramos ", "Audiencia ", "Nivel de lectura ", "Solo para texto: Nivel Infantil- Primaria-Eso Bachillerato-FP- Universitaria", "Solo para texto: Curso. ", "Solo para texto: Asignatura ", "Solo para texto: Comunidad Autónoma", "Resumen ", "Tipo de versión de materia IBIC ", "Tema Materia IBIC más de una separada ;", "Fecha puesta en venta/lanzamiento ", "Fecha disponibilidad de existencias ", "Dirección URL ", "Resumen o sinopsis ampliados"})
¿Alguna vez os habéis parado a pensar que en una hoja de cálculo es posible indicar la primera fila desde la que importar datos de un fichero externo, pero no la última?
Esta característica está pensada para importar ficheros que incluyen algún tipo de cabecera, como es el caso de los formatos SINLI.
Lo único que tendremos que hacer es indicar la primera línea que queremos importar a Microsoft Excel desde el fichero de texto plano.
Este es un comportamiento estándar de todas las hojas de cálculo.
Apoyándonos en esta característica, podremos cargar directamente las líneas de detalle a nuestra hoja de cálculo.
Los ficheros SINLI, a diferencia de los ficheros en formato CSV, los cuales tienen la misma estructura en todas sus líneas, se componen de una sección de encabezado y otra de líneas de detalle.
El encabezado tiene la siguiente estructura, pero a la hora de importar a Microsoft Excel, la vamos a ignorar.
En cuanto a las líneas de detalle tienen todas la misma estructura, tratándose de datos de ancho fijo, llagando cada línea a poder alcanzar más de 3000 caracteres
A la hora de importar estos datos a Excel, lo haremos desde la opción Datos o directamente al abrir el fichero.
Indicaremos para ello la posición indicada en la columna Acumulado del documento que define el estándar.
Este es un trabajo árduo por lo que recomiendo crear un fichero al que podamos importar nuestros datos y luego reutilizarlo, evitando tener que definir las posiciones cada vez que deseemos importar datos.
