Question

我正在尝试从xlsm文件复制宏并将其粘贴到新的xlsm文件中。我正在研究win32com和xlwings，但没有发现任何有用的东西。非常感谢您解决该问题的提示！

Answer 1

安装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()

如何从xlsm文件复制宏并将其插入另一个xlsm文件？

1 个答案: