web-dev-qa-db-ja.com

PythonでExcelマクロを実行していますか？

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
pythonexcelvbapython-2.7
37
Ryflex

エラーは呼び出しているマクロに関係していると思われますが、次のコードを試してください：

コード

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
52
SMNALLY

Python 3.5.2。で実行できるように、SMNALLYのコードに変更を加えました。

#Import the following library to make use of the DispatchEx to run the macro
import win32com.client as wincl

def runMacro():

    if os.path.exists("C:\\Users\\Dev\\Desktop\\Development\\completed_apps\\My_Macr_Generates_Data.xlsm"):

    # DispatchEx is required in the newest versions of Python.
    Excel_macro = wincl.DispatchEx("Excel.application")
    Excel_path = os.path.expanduser("C:\\Users\\Dev\\Desktop\\Development\\completed_apps\\My_Macr_Generates_Data.xlsm")
    workbook = Excel_macro.Workbooks.Open(Filename = Excel_path, ReadOnly =1)
    Excel_macro.Application.Run\
        ("ThisWorkbook.Template2G")
    #Save the results in case you have generated data
    workbook.Save()
    Excel_macro.Application.Quit()  
    del Excel_macro
5
abautista

自動化されたExcelからマクロを実行するExcelのインストールを許可していないと思われます。これは、インストール時のデフォルトのセキュリティ保護です。これを変更するには：

  1. ファイル>オプション>セキュリティセンター
  2. [セキュリティセンターの設定...]ボタンをクリックします
  3. [マクロの設定]> [すべてのマクロを有効にする]をオンにします
2
Boud

Python 3.7以降、（2018-10-10）、@ Alejandro BRとSMNALLYの答えの両方を組み合わせる必要があります。coz@Alejandroはwinclの定義を忘れています。

import os, os.path
import win32com.client
if os.path.exists('C:/Users/jz/Desktop/test.xlsm'):
    Excel_macro = win32com.client.DispatchEx("Excel.Application") # DispatchEx is required in the newest versions of Python.
    Excel_path = os.path.expanduser('C:/Users/jz/Desktop/test.xlsm')
    workbook = Excel_macro.Workbooks.Open(Filename = Excel_path, ReadOnly =1)
    Excel_macro.Application.Run("test.xlsm!Module1.Macro1") # update Module1 with your module, Macro1 with your macro
    workbook.Save()
    Excel_macro.Application.Quit()  
    del Excel_macro
0
PyBoss

既に開いている場合、Excelを終了しないSMNALLYのコードのバリエーション：

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
0
Peter Mabbott

Win32comの方法とxlwingsの方法を試しましたが、運がありませんでした。 PyCharmを使用していますが、win32comのオートコンプリートに.WorkBookオプションが表示されませんでした。ブックを変数として渡そうとすると、-2147352567エラーが発生しました。

次に、vba Shellを使用してPythonスクリプトを実行します。すべてが完了したら、作業中のXLSファイルに何かを記述します。ExcelがVBAマクロ。

ただし、vbaのApplication.wait関数は100％のCPUを占有しますが、これは適切ではありません。一部の人々は、Windowsのスリープ機能を使用するとそれを修正すると述べた。

 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
0
William Tong

スペースを含むxlsmに関する簡単なメモ。

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