Programar en VB en una Macro de Excel crear archivo CSV

En la paqueteria de Offices de Microsoft se puede  realizar programas para automatizar tareas, estos son Macros hay forma de guardar comandos sencillos en Excel o escribir programas que hagan tareas más específicas, como por ejemplo generar un archivo de salida con nuevos datos o un reporte.

Las macros se programan con Visual Basic que es el lenguaje de programación.

Veamos un ejemplo de una Macro, primero el objetivo del programa es generar un archivo CSV (comma-separated values) que son archivos separados por comas que cumpla con la estructura de un archivo que queremos utilizar en otro sistema y que podamos tomar información de una Hoja Excel.

  • Primero habilitamos la pestaña de Desarrollador, para ello vamos al menú, Archivo-Opciones-Personalización Barra-Desarrollador 
  • Vamos agregar  un botón en una hoja de Excel, seleccionamos el botón insertar y elegimos del parte de ActiveX

  • Damos doble click sobre el botón creado o tambien pueden seleccionar las teclas ALT+F11

Nos abrirá una nueva pantalla, aquí es donde comenzaremos a programar nuestra macro
Nuestro programa es el siguiente:


Private Sub CommandButton1_Click()
Dim Fila, fila2, cont As Integer
Dim rngOrigen As Excel.Range

Hoja3.Rows("1:65500").Clear

Fila = 19
fila2 = 1
cont = 1
Do While Hoja2.Cells(Fila, "A") <> ""


Hoja3.Cells(fila2, "a") = Hoja2.Cells(Fila, "a") 'UUID
Hoja3.Cells(fila2, "b") = Hoja2.Cells(Fila, "b") 'Monto factura
Hoja3.Cells(fila2, "c") = Hoja2.Cells(Fila, "i") 'RFC-emisor
Hoja3.Cells(fila2, "d") = Hoja2.Cells(Fila, "d") 'Moneda
Hoja3.Cells(fila2, "e") = Hoja2.Cells(Fila, "e") 'Tasa cambio
If Hoja3.Cells(fila2, "e") = "" Then Hoja3.Cells(fila2, "e") = 1
Hoja3.Cells(fila2, "f") = "|" + Hoja2.Cells(Fila, "f") + Hoja2.Cells(Fila, "g")  'Numero factura, serie +a folio
Hoja3.Cells(fila2, "g") = Format(Hoja2.Cells(Fila, "h"), "MM/DD/YYYY")     'fecha facura
Hoja3.Cells(fila2, "h") = " "                   'codigo proveedor
Hoja3.Cells(fila2, "i") = Hoja2.Cells(Fila, "c")   'rfc_receptor
Hoja3.Cells(fila2, "j") = " "                   'nombre del proveedor
Hoja3.Cells(fila2, "k") = Hoja1.Cells(5, "b")   ' domnio
Hoja3.Cells(fila2, "l") = Hoja1.Cells(6, "b")   ' entidad
Hoja3.Cells(fila2, "m") = " "   ' poliza


Fila = Fila + 1
fila2 = fila2 + 1
Loop

Call copiarHOjaaLibroNuevo
End Sub


Sub copiarHOjaaLibroNuevo()
mio = ActiveWorkbook.Name
nombre = Sheets(2).Range("B3").Value
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
' Sheets("Hoja1").Range("a5").Copy after:=Workbooks(otro).Sheets("Hoja1").Range("a1")
Sheets(3).Copy after:=Workbooks(otro).ActiveSheet
Application.DisplayAlerts = False
Workbooks(otro).Sheets(1).Delete
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(nombre, "/", ""), FileFormat:=xlCSV
Application.DisplayAlerts = False
ActiveWorkbook.Close False
End Sub


Vamos a desmenuzar el programar :

Private Sub CommandButton1_Click()

Dim Fila, fila2, cont As Integer

Dim rngOrigen As Excel.Range
Definición de variables


Hoja3.Rows("1:65500").Clear


Esta instrucción limpia todos los datos de una hoja de Excel


Do While Hoja2.Cells(Fila, "A") <> ""


Esta instrucción es un ciclo que se detendrá hasta que no encuentre datos en la columna A

Hoja3.Cells(fila2, "a") = Hoja2.Cells(Fila, "a") 'UUID


Hoja3.Cells(fila2, "b") = Hoja2.Cells(Fila, "b") 'Monto factura


Hoja3.Cells(fila2, "c") = Hoja2.Cells(Fila, "i") 'RFC-emisor


Hoja3.Cells(fila2, "d") = Hoja2.Cells(Fila, "d") 'Moneda


Hoja3.Cells(fila2, "e") = Hoja2.Cells(Fila, "e") 'Tasa cambio


If Hoja3.Cells(fila2, "e") = "" Then Hoja3.Cells(fila2, "e") = 1


Hoja3.Cells(fila2, "f") = "|" + Hoja2.Cells(Fila, "f") + Hoja2.Cells(Fila, "g") 'Numero factura, serie +a folio


Hoja3.Cells(fila2, "g") = Format(Hoja2.Cells(Fila, "h"), "MM/DD/YYYY") 'fecha factura


Hoja3.Cells(fila2, "h") = " " 'código proveedor


Hoja3.Cells(fila2, "i") = Hoja2.Cells(Fila, "c") 'rfc_receptor


Hoja3.Cells(fila2, "j") = " " 'nombre del proveedor


Hoja3.Cells(fila2, "k") = Hoja1.Cells(5, "b") ' dominio


Hoja3.Cells(fila2, "l") = Hoja1.Cells(6, "b") ' entidad


Hoja3.Cells(fila2, "m") = " " ' poliza


En esta parte estamos asignando en una nueva Hoja del mismo libro de Excel los valores del archivo que vamos a crear con datos de la Hoja2.

Fila = Fila + 1
fila2 = fila2 + 1


Estas son nuestras variables que nos sirven para ir avanzando en el archivo de Excel, la variable Fila es para recorrer la Hoja2 y la fila2 para recorrer la Hoja3.

CopiarHOjaaLibroNuevo


Esta es una función, las funciones son procesos que podemos reutilizar en otras macros y que no están ligadas a un solo resultado, es decir son reutilizables, de hecho casi siempre tenemos funciones que utilizamos en una ocasión y volvemos a copiar en otro nuevo programa, Hay un concepto en programación que se llama DRY (Don’t Repeat Yourself) que es que si ya tienes un código hecho lo reutilices y no lo re-escribas.


mio = ActiveWorkbook.Name

nombre = Sheets(2).Range("B3").Value

Workbooks.Add

otro = ActiveWorkbook.Name

Workbooks(mio).Activate

' Sheets("Hoja1").Range("a5").Copy after:=Workbooks(otro).Sheets("Hoja1").Range("a1")

Sheets(3).Copy after:=Workbooks(otro).ActiveSheet

Application.DisplayAlerts = False

Workbooks(otro).Sheets(1).Delete

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(nombre, "/", ""), FileFormat:=xlCSV

Application.DisplayAlerts = False

ActiveWorkbook.Close False

Esta función lo que permite es copiar los datos de una hoja a un nuevo libro de Excel.


En las macros hay muchas funciones, si quieren que veamos algún otro ejemplo lo podemos hacer, escriban sus comentarios.

 Les comparto la Liga de otros post en este blog de macros:

No olvide compartirnos y seguirnos en este blog o en Facebook.

Comentarios

Publicar un comentario

Entradas más populares de este blog

Ejemplo Macro en Word

Imagen
Hola: ¿Sabían que no solo en Excel pueden hacer Macros?  ¡¡¡También en Outlook, Word, Power Point,Access  es posible hacer Macros!!!  ☺️ Ya que Word, Excel, Power Point,Access son de familia Microsoft y Visual Basic también es que podemos programar nuestras macros en esta paquetería. Como hemos visto antes, para poder programar nuestras macros, necesitamos primero configurar la Barra de tareas de Developer o Desarrollador Seleccionan el Menu File>Options>Customize Ribbon o en Español Archivo>Opciones>barra de tareas Despues la parte de seguridad de las macros Menu File>Options>Trus Center o Archivo>Opciones>Centro de Seguridad y marcamos como se ve en la imagen, la cuarta opción y el combo Ejemplo Vamos hacer un ejemplo donde, tengamos que generar varios diplomas de fin de curso, pero con una lista de Nombres , entonces vamos a crear un nuevo archivo en Word y le vamos a guardar como tipo Macro  Tenemos una plantill
Leer más

Macro de Excel para abrir archivo csv

Imagen
Hay veces que quieres abrir un archivo de Excel pero está separado por comas, punto y coma o por un pipe. Hay formas de hacerlos desde Excel. Les quiero compartir algunas opciones de como hacerlo y espero que les sean de utilidad. 1.Es abrir el archivo en Excel y utilizar la función de separar por columnas y seleccionar el delimitador, por ejemplo ";" 2. Es colocar "sep=;" en el primer renglón del archivo que quieres abrir y guardar en formato CSV y abrirlo en Excel y te lo abrirá separado en columnas. 3. Otra forma es con una macro, esté en mi gusto es la que más me funciona porque si hay alguna coma en la descripción o en alguna columna, si lo abres desde Excel te va a desacomodar las columnas.  Este botón te abrirá un pantalla para abrir el archivo que quieres separar y te lo abrirá en una hoja de excel ya separado. El código de la macro es el siguiente  Private Sub CommandButton1_Click() Dim sht As Worksheet Dim fnd As Variant Dim rplc As Variant Dim
Leer más

Como ejecutar SQL desde Tareas Programadas de Windows

Imagen
Bienvenidos a este blog, esta semana les quiero compartir otro ejemplo de archivos BAT o Batch en Windows para ejecutar una consulta a una base de datos SQL con la instrucción sqlcmd y poder ejecutar tareas programadas en sql server desde las tareas programadas de Windows. El comando sqlcmd es de Microsfot y nos ayuda para ejecutar consultas desde un archivo esta es la definición que da Microsoft La utilidad sqlcmd es una utilidad de la línea de comandos para la ejecución ad hoc e interactiva de instrucciones y scripts de Transact-SQL y para la automatización de tareas de scripting de Transact-SQL. Para usar sqlcmd interactivamente, o para compilar archivos de script que se ejecutan mediante sqlcmd, los usuarios deben estar familiarizados con Transact-SQL. La utilidad sqlcmd se usa normalmente de las formas siguientes: Ejemplo: Objetivo: Ejecutar un query a una base de datos para obtener las facturas timbradas a clientes y crear un archivo csv de salida y alojarlo en una carpet
Leer más