[VBA] qr код в Excel

[Zarubiant]

Создай мне скрипт, который генерирует в ячейках в excel qr-код

 

[ChatGPT]

Создай мне скрипт, который генерирует в ячейках в excel qr-код

Для создания скрипта, который будет генерировать QR-коды в ячейках Excel, можно воспользоваться библиотеками Python, такими как openpyxl и qrcode. Вот примерный план действий:

1. Установите необходимые библиотеки, если у вас их еще нет:

bash
   pip install openpyxl qrcode[pil]

2. Напишите скрипт на Python, который будет генерировать QR-коды и вставлять их в ячейки Excel. Вот примерный код:

import qrcode
from openpyxl import Workbook
from openpyxl.drawing.image import Image

# Создаем новую книгу Excel
wb = Workbook()
ws = wb.active

# Текст, который будет закодирован в QR-коде
data = "Hello, World!"

# Генерируем QR-код
qr = qrcode.QRCode(
    version=1,
    error_correction=qrcode.constants.ERROR_CORRECT_L,
    box_size=10,
    border=4,
)
qr.add_data(data)
qr.make(fit=True)
img = qr.make_image(fill_color="black", back_color="white")

# Сохраняем QR-код в файл
img.save("qrcode.png")

# Вставляем QR-код в Excel
img_path = "qrcode.png"
img = Image(img_path)
ws.add_image(img, 'A1')

# Сохраняем книгу Excel
wb.save("qrcodes.xlsx")

3. Запустите скрипт, чтобы создать файл Excel с QR-кодом в ячейке.

Обратите внимание, что этот код предоставляется для ознакомления и требует доработки в зависимости от ваших конкретных потребностей. Не забудьте настроить текст, который будет закодирован в QR-коде, и пути для сохранения файлов.

 

[Zarubiant]

тоже самое сделай на vba

 

[ChatGPT]

тоже самое сделай на vba

Для создания скрипта на VBA, который будет генерировать QR-коды и вставлять их в ячейки Excel, можно воспользоваться сторонними библиотеками или онлайн сервисами. Вот примерный план действий:

1. Используйте сторонний сервис или библиотеку для генерации QR-кодов в VBA. Например, можно воспользоваться API для генерации QR-кодов онлайн.

2. Напишите скрипт на VBA, который будет вызывать этот сервис или библиотеку для генерации QR-кода и вставлять его в ячейку Excel.

3. Вот примерный код на VBA, который использует сервис QR Code Monkey для генерации QR-кода:

Sub GenerateQRCode()
    Dim url As String
    Dim qrURL As String
    Dim qrCode As Picture

    url = "https://www.qrcode-monkey.com"
    qrURL = "https://www.qrcode-monkey.com/qrcode/api/generate?data=" & url

    Set qrCode = ActiveSheet.Pictures.Insert(qrURL)
    qrCode.Top = Range("A1").Top
    qrCode.Left = Range("A1").Left
End Sub

4. Запустите скрипт в VBA для создания QR-кода и вставки его в ячейку Excel.

Обратите внимание, что использование сторонних сервисов для генерации QR-кодов в VBA может потребовать подключения к интернету и может быть ограничено их условиями использования. Также убедитесь, что сервис, который вы выбрали, поддерживает генерацию QR-кодов через API.

 

[Zarubiant]

напиши без использования сторонних сервисов

 

[Dragokas]

Вот здесь есть проект на чистом VBA: GitHub - JonasHeidelberg/barcode-vba-macro-only: Barcode generator for LibreOffice and MSOffice as pure VBA macro... with a critical bug fixed compared to the version on code.google.com

Пример использования:

Generating 2D (PDF417 or QR) barcodes using Excel VBA

I would like to generate a 2d barcode (PDF417 or QR codes) in an Excel cell using macros. Just wondering is there any free alternatives to paid libraries to do this? I know certain tools can do th...

stackoverflow.com