Как скопировать макрос из файла xlsm и вставить его в другой файл xlsm? - PullRequest
Новая
       61

Как скопировать макрос из файла xlsm и вставить его в другой файл xlsm?

0 голосов
/ 28 сентября 2019

Я пытаюсь скопировать макрос из файла xlsm и вставить его в новый файл xlsm. Я изучаю win32com и xlwings, но не нашел ничего полезного.Подсказка для решения проблемы очень ценится!

1 Ответ

0 голосов
/ 30 сентября 2019
  • Установите Python 2.7 (не удалось заставить его работать на Python 3)
  • Установите Xlsxwriter: pip install XlsxWriter
  • Запустите приведенный ниже код части 1, где вы храните свой файл xlsmизвлечь код VBA (замените переменную xlsm_file на имя вашего файла макроса)
  • Запустите приведенный ниже код части 2, чтобы вставить vba в вашу новую книгу. 
#Part 1:
#!C:\Python27\python.exe

##############################################################################
#
# vba_extract - A simple utility to extract a vbaProject.bin binary from an
# Excel 2007+ xlsm file for insertion into an XlsxWriter file.
#
# Copyright 2013-2019, John McNamara, jmcnamara@cpan.org
#
import sys
from zipfile import ZipFile
from zipfile import BadZipfile

# The VBA project file we want to extract.
vba_filename = 'vbaProject.bin'

# Get the xlsm file name from the commandline.
xlsm_file = 'Macro_file1.xlsm'

try:
    # Open the Excel xlsm file as a zip file.
    xlsm_zip = ZipFile(xlsm_file, 'r')

    # Read the xl/vbaProject.bin file.
    vba_data = xlsm_zip.read('xl/' + vba_filename)

    # Write the vba data to a local file.
    vba_file = open(vba_filename, "wb")
    vba_file.write(vba_data)
    vba_file.close()

except IOError as e:
    print("File error: %s" % str(e))
    exit()

except KeyError as e:
    # Usually when there isn't a xl/vbaProject.bin member in the file.
    print("File error: %s" % str(e))
    print("File may not be an Excel xlsm macro file: '%s'" % xlsm_file)
    exit()

except BadZipfile as e:
    # Usually if the file is an xls file and not an xlsm file.
    print("File error: %s: '%s'" % (str(e), xlsm_file))
    print("File may not be an Excel xlsm macro file.")
    exit()

except Exception as e:
    # Catch any other exceptions.
    print("File error: %s" % str(e))
    exit()

print("Extracted: %s" % vba_filename)

Запустите этокод для копирования VBA в новый файл Excel: 

#Part 2
import xlsxwriter

# Note the file extension should be .xlsm.
workbook = xlsxwriter.Workbook('macros.xlsm')

workbook.add_vba_project('./vbaProject.bin')

workbook.close()
...