我有一个宏,我想要一堆现有的电子表格来使用。唯一的问题是,有太多的电子表格,这将是太耗时的手工完成!
我已经编写了一个Python脚本来使用pyWin32访问所需的文件,但是我似乎想不出一种方法来使用它来添加宏。
这里有一个类似的问题给出了这个答案(它不是Python,但看起来它仍然使用COM),但我的COM对象似乎没有名为VBProject的成员:
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False
Set objWorkbook = objExcel.Workbooks.Open("C:\scripts\test.xls")
Set xlmodule = objworkbook.VBProject.VBComponents.Add(1)
strCode = _
"sub test()" & vbCr & _
" msgbox ""Inside the macro"" " & vbCr & _
"end sub"
xlmodule.CodeModule.AddFromString strCode
objWorkbook.SaveAs "c:\scripts\test.xls"
objExcel.Quit
编辑:指向类似问题的链接:Inject and execute Excel VBA code into spreadsheet received from external source
我还忘了提到,虽然这不是Python,但我希望类似的对象成员也能通过COM对象提供给我。
发布于 2013-06-23 09:53:43
这是转换后的代码。您可以使用win32com或comtypes包。
import os
import sys
# Import System libraries
import glob
import random
import re
sys.coinit_flags = 0 # comtypes.COINIT_MULTITHREADED
# USE COMTYPES OR WIN32COM
#import comtypes
#from comtypes.client import CreateObject
# USE COMTYPES OR WIN32COM
import win32com
from win32com.client import Dispatch
scripts_dir = "C:\\scripts"
conv_scripts_dir = "C:\\converted_scripts"
strcode = \
'''
sub test()
msgbox "Inside the macro"
end sub
'''
#com_instance = CreateObject("Excel.Application", dynamic = True) # USING COMTYPES
com_instance = Dispatch("Excel.Application") # USING WIN32COM
com_instance.Visible = True
com_instance.DisplayAlerts = False
for script_file in glob.glob(os.path.join(scripts_dir, "*.xls")):
print "Processing: %s" % script_file
(file_path, file_name) = os.path.split(script_file)
objworkbook = com_instance.Workbooks.Open(script_file)
xlmodule = objworkbook.VBProject.VBComponents.Add(1)
xlmodule.CodeModule.AddFromString(strcode.strip())
objworkbook.SaveAs(os.path.join(conv_scripts_dir, file_name))
com_instance.Quit()
发布于 2015-01-27 22:43:34
由于我也花了一些时间才弄清楚这一点,我将提供另一个示例,该示例应该适用于Excel2007/2010/2013的xlsm
格式。与上面提供的示例没有太大区别,只是简单了一点,没有循环不同的文件,并且包含了更多的注释。此外,宏的源代码是从文本文件加载的,而不是在Python脚本中硬编码。
请记住根据您的需要调整脚本顶部的文件路径。
此外,请记住,Excel2007/2010/2013只允许以xlsm
格式存储带有宏的工作簿,而不允许以xlsx
格式存储。将宏插入到xlsx
文件中时,系统将提示您将其保存为其他格式,否则该宏将不会包含在文件中。
最后但并非最不重要的一点是,检查Excel从应用程序外部执行VBA代码的选项是否已激活(出于安全原因,该选项在默认情况下处于禁用状态),否则,您将收到一条错误消息。要执行此操作,请打开Excel并转到
文件->选项->信任中心->信任中心设置->宏设置->激活Trust access to the VBA project object model
上的复选标记。
# necessary imports
import os, sys
import win32com.client
# get directory where the script is located
_file = os.path.abspath(sys.argv[0])
path = os.path.dirname(_file)
# set file paths and macro name accordingly - here we assume that the files are located in the same folder as the Python script
pathToExcelFile = path + '/myExcelFile.xlsm'
pathToMacro = path + '/myMacro.txt'
myMacroName = 'UsefulMacro'
# read the textfile holding the excel macro into a string
with open (pathToMacro, "r") as myfile:
print('reading macro into string from: ' + str(myfile))
macro=myfile.read()
# open up an instance of Excel with the win32com driver
excel = win32com.client.Dispatch("Excel.Application")
# do the operation in background without actually opening Excel
excel.Visible = False
# open the excel workbook from the specified file
workbook = excel.Workbooks.Open(Filename=pathToExcelFile)
# insert the macro-string into the excel file
excelModule = workbook.VBProject.VBComponents.Add(1)
excelModule.CodeModule.AddFromString(macro)
# run the macro
excel.Application.Run(myMacroName)
# save the workbook and close
excel.Workbooks(1).Close(SaveChanges=1)
excel.Application.Quit()
# garbage collection
del excel
发布于 2018-08-04 03:43:36
“Dirk”和“dilbert”提到的东西很管用。您还可以添加这段代码,它将以编程方式启用对‘`VBA对象模块’的访问。
import win32api
import win32con
key = win32api.RegOpenKeyEx(win32con.HKEY_CURRENT_USER,
"Software\\Microsoft\\Office\\16.0\\Excel"
+ "\\Security", 0, win32con.KEY_ALL_ACCESS)
win32api.RegSetValueEx(key, "AccessVBOM", 0, win32con.REG_DWORD, 1)
https://stackoverflow.com/questions/17197259
复制相似问题