¿Cómo generar códigos QR dinámicamente en EXcel? Preferiblemente en forma de tarjeta de visita.
Cree una nueva tabla de Excel e ingrese la información del código requerida para generar el código QR en la celda A1.
1. Primero, debe descargar un control qrmaker, descomprimir el archivo descargado y copiar todos los archivos en la carpeta QRMaker en c:\windows\system32. En la ventana de ejecución, escriba regsvr32? c:\windows\system32\QRmaker.ocx a través de "Inicio → Ejecutar" para registrar el componente.
2. Abra Excel, porque necesita usar VBA, ingrese a las opciones de Excel, marque "Mostrar herramientas de desarrollo en la cinta", cambie a la pestaña de herramientas de desarrollo, haga clic en Visual Basic para abrir el editor de VBA, seleccione " Herramientas → Referencia → Explorar " y busque el componente registrado c: → Windows → System32 → QRmaker.ocx. → Seleccione "Examinar", busque c:\windows\system32\QRMaker.ocx y cierre el editor.
3. Regrese a Excel, inserte un botón de comando en el espacio en blanco, haga clic derecho en el botón y seleccione "Especificar macro" → "Grabar", nombre la macro print2d y detenga la grabación de la macro.
4. Al mismo tiempo, inserte otros controles en el control QRMaker. Después de hacer clic en "Aceptar", el mouse se convertirá en una cruz y dibujará un control de código QR en el área en blanco.
5. Abra nuevamente el editor VBA, busque el módulo 1 a la izquierda, haga doble clic y borre todo el contenido a la derecha, e ingrese el siguiente código:
Sub print2d( )
Dim QRString1 As String
'Definir variables
QRString1 = Sheet1.Range("A1")
'Transferir el valor de la celda A1 a QRString1
Hoja1.Select
Hoja1.QRmaker1.AutoRedraw = ArOn
'Habilitar el atributo de redibujado automático de QRmaker
Hoja1 .QRmaker1.InputData = QRString1. InputData=QRString1
' Pase el valor de QRString1 a QRmaker1
End Sub
Guarde y cierre el editor VBA, regrese a Excel y luego haga clic en Print2D. Botón. El contenido de la celda A1 genera un código QR.
Una vez completada la producción, puedes utilizar este código QR.