Question

我正在尝试通过python运行一个宏，但我不确定如何让它工作......

到目前为止，我已经获得了以下代码，但它无效。

import win32com.client
xl=win32com.client.Dispatch("Excel.Application")
xl.Workbooks.Open(Filename="C:\test.xlsm",ReadOnly=1)
xl.Application.Run("macrohere")
xl.Workbooks(1).Close(SaveChanges=0)
xl.Application.Quit()
xl=0

我得到以下追溯：

Traceback (most recent call last):
  File "C:\test.py", line 4, in <module>
    xl.Application.Run("macrohere")
  File "<COMObject <unknown>>", line 14, in Run
  File "C:\Python27\lib\site-packages\win32com\client\dynamic.py", line 282, in _ApplyTypes_
    result = self._oleobj_.InvokeTypes(*(dispid, LCID, wFlags, retType, argTypes) + args)
com_error: (-2147352567, 'Exception occurred.', (0, u'Microsoft Excel', u"Cannot run the macro 'macrohere'. The macro may not be available in this workbook or all macros may be disabled.", u'xlmain11.chm', 0, -2146827284), None)

修改

import win32com.client
xl=win32com.client.Dispatch("Excel.Application")
xl.Workbooks.Open(Filename="C:\test.xlsm",ReadOnly=1)
try:
    xl.Application.Run("test.xlsm!testmacro.testmacro")
    # It does run like this... but we get the following error:
    # Traceback (most recent call last):
        # File "C:\test.py", line 7, in <module>
        # xl.Workbooks(1).Close(SaveChanges=0)
        # File "C:\Python27\lib\site-packages\win32com\client\dynamic.py", line 192, in __call__
        # return self._get_good_object_(self._oleobj_.Invoke(*allArgs),self._olerepr_.defaultDispatchName,None)
    # com_error: (-2147352567, 'Exception occurred.', (0, None, None, None, 0, -2147352565), None)
except:
    # Except isn't catching the above error... :(
    xl.Workbooks(1).Close(SaveChanges=0)
    xl.Application.Quit()
    xl=0

Answer 1

我希望错误与您正在调用的宏有关，请尝试以下代码：

代码

import os, os.path
import win32com.client

if os.path.exists("excelsheet.xlsm"):
    xl=win32com.client.Dispatch("Excel.Application")
    xl.Workbooks.Open(os.path.abspath("excelsheet.xlsm"), ReadOnly=1)
    xl.Application.Run("excelsheet.xlsm!modulename.macroname")
##    xl.Application.Save() # if you want to save then uncomment this line and change delete the ", ReadOnly=1" part from the open function.
    xl.Application.Quit() # Comment this out if your excel script closes
    del xl

Answer 2

我怀疑您没有授权Excel安装从自动Excel运行宏。安装时默认为安全保护。要改变这个：

文件＆gt;选项＆gt;信托中心
点击信任中心设置...按钮
宏设置＆gt;选中“启用所有宏”

Answer 3

嗯，我在那部分遇到了一些麻烦（是的，仍然是xD）：

xl.Application.Run("excelsheet.xlsm!macroname.macroname")

我不经常使用excel（与vb或宏相同，但我需要它使用femap与python）所以我最终解决了检查宏列表：开发者 - ＆gt;宏：在那里我看到了：macroname.macroname应该是sheet_name.macroname，就像在“宏”列表中一样。

（我花了30分钟 - 1小时试图解决它，所以它可能对像我这样的exobs有帮助）xD

Answer 4

我尝试了win32com方式和xlwings方式，但我没有得到任何运气。我使用PyCharm并没有在win32com的自动完成中看到.WorkBook选项。当我尝试将工作簿作为变量传递时，我收到了-2147352567错误。

然后，我找到了一个使用vba shell来运行我的Python脚本的工作。一切都完成后，在你正在使用的XLS文件上写一些东西。这样Excel就知道是时候运行VBA宏了。

但是vba Application.wait函数将占用100％的cpu，这很奇怪。有人说使用Windows Sleep功能会修复它。

 Import xlsxwriter


 Shell "C:\xxxxx\python.exe 
 C:/Users/xxxxx/pythonscript.py"

 exitLoop = 0

等待Python完成它的工作。

  Do

  waitTime = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 30)
  Application.Wait waitTime
  Set wb2 = Workbooks.Open("D:\xxxxx.xlsx", ReadOnly:=True)
  exitLoop = wb2.Worksheets("blablabla").Cells(50, 1)
  wb2.Close exitLoop

  Loop While exitLoop <> 1




  Call VbaScript

Answer 5

SMNALLY代码的一种变体，如果您已经打开它，则它不会退出Excel：

import os, os.path
import win32com.client

if os.path.exists("excelsheet.xlsm"):
    xl=win32com.client.Dispatch("Excel.Application")
    wb = xl.Workbooks.Open(os.path.abspath("excelsheet.xlsm"), ReadOnly=1) #create a workbook object
    xl.Application.Run("excelsheet.xlsm!modulename.macroname")
    wb.Close(False) #close the work sheet object rather than quitting excel
    del wb
    del xl

Answer 6

使用xlsm带空格的快速笔记。

file = 'file with spaces.xlsm'
excel_macro.Application.Run('\'' + file + '\'' + "!Module1.Macro1")

Answer 7

对于Python 3.7或更高版本（2018-10-10），我必须将@Alejandro BR和SMNALLY的答案结合起来，因为@Alejandro忘记定义wincl。

select to_date('9/4/2018 11:22', 'MM/DD/YYYY HH24:MI')

通过Python运行Excel宏？

修改

7 个答案:

代码