Die Verwendung von Python zu Injizieren Makros in Tabellenkalkulationen

Ich habe ein makro, ich möchte eine Reihe von existierenden Tabellen zu verwenden. Das problem ist nur, dass es so viele Tabellen, dass es wäre zu zeitaufwendig, um es mit der hand!

Habe ich geschrieben, ein Python-Skript, um den Zugriff auf die benötigten Dateien mit pyWin32, aber ich kann nicht scheinen, um herauszufinden, einen Weg, es zu benutzen, fügen Sie das makro in.

Einer ähnlichen Frage diese Antwort gegeben hat (es ist kein Python, aber es sieht aus wie es noch verwendet COM), aber mein COM-Objekt scheint es nicht zu haben ein Mitglied namens 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

EDIT: Link zu der ähnlichen Frage verwiesen wird: Einschleusen und ausführen von Excel-VBA-code in Tabellenkalkulation empfangen von externen Quelle

Ich auch vergessen zu erwähnen, dass, obwohl dies nicht Python, ich hatte gehofft, dass ähnlich wie Objekt-Mitgliedern zur Verfügung stehen würde, um mich über die COM-Objekte.

"Eine ähnliche Frage diese Antwort gegeben hat" Einen link der hier noch fehlt, ist es nicht?
Gut, mit zu beginnen, dein Beispiel-code ist auch nicht Python; ich bin mir ziemlich sicher, es ist Visual Basic.
Ich habe geändert meine Frage!

InformationsquelleAutor John Smith | 2013-06-19

Dies ist der code umgewandelt. Sie können entweder die win32com oder comtypes Pakete.

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

Vielen Dank für die Hilfe! Nur um gründlich zu sein, hatte ich auch abhaken, das "Vertrauen Zugriff auf das VBA-Projekt-Objekt-Modul" in der "Excel-Optionen" -> "Trust-Center" tab -> "Trust Center Settings..." -> Registerkarte Einstellungen für Makros werden in der Lage, diesen code ausführen.
vielen Dank für den code und demonstriert den Unterschied im code zwischen der Verwendung win32com und comtypes. Im Allgemeinen, wenn Sie würde Sie nutzen comtypes vs win32com?
meine Nutzung dieser Bibliotheken, nicht gründlich genug, Sie zu unterscheiden. Ich bevorzuge die API von ComTypes.

InformationsquelleAutor dilbert

5

Als ich kämpfte auch einige Zeit, um dieses Recht zu bekommen, werde ich Ihnen ein weiteres Beispiel soll die Arbeit mit Excel 2007/2010/2013 ist xlsm - format. Es ist nicht viel Unterschied zu dem Beispiel oben, es ist nur etwas einfacher, ohne die Schleife über verschiedene Dateien und mit mehr Kommentaren enthalten. Neben der makro-Quellcode geladen wird aus einer Textdatei anstatt der hart-Programmierung in Python-Skript.

Denken Sie daran anzupassen, die Datei-Pfade am Anfang des Skripts an Ihre Bedürfnisse an.

Darüber hinaus, denken Sie daran, dass Excel 2007/2010/2013 nur ermöglicht das speichern von Arbeitsmappen mit Makros, die in der xlsm - format, nicht in xlsx. Beim einfügen eines Makros in eine xlsx - Datei, werden Sie aufgefordert, es zu speichern in einem anderen format oder das makro nicht in die Datei aufgenommen werden.

Und nicht zuletzt, überprüfen Sie, dass Excel die option zum ausführen von VBA-code von außerhalb der Anwendung aktiviert ist (was standardmäßig deaktiviert aus Sicherheitsgründen), andernfalls bekommen Sie eine Fehlermeldung.
Dies zu tun, öffnen Sie Excel, und gehen Sie zu

Datei -> Optionen -> Trust-Center -> Trust-Center-Einstellungen -> Makro-Einstellungen -> aktivieren-Häkchen auf 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
```
InformationsquelleAutor Dirk

Was @Dirk und @dilbert erwähnt, funktioniert Super. Sie können auch hinzufügen, dieses Stück code wird programmgesteuert Zugriff auf das VBA-Objekt-Modul'

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)

InformationsquelleAutor alpha_989

Möchte ich noch hinzufügen. Ich hatte Schwierigkeiten versuchen zu analysieren, durch jeden .xlsm Datei in meinem Ordner. Ich habe herausgefunden wie es mit glob und Formatierung einer with-Anweisung innerhalb einer for-Anweisung. Ich bin neu in der Programmierung, so bitte entschuldigen Sie mich, wenn ich mich mit falschen Terminologie. Hoffe, das hilft anderen. Danke.

import glob
import os, sys
import win32com.client


_file = os.path.abspath(sys.argv[0])
path = os.path.dirname(_file)
pathToMacro = path + r'\macro2.txt'
myMacroName = 'TestMacro'

for fname in glob.glob(path + "\*.xlsm"):
    with open (pathToMacro, "r") as myfile:
        print('reading macro into string from: ' + str(myfile))
        macro=myfile.read()
        excel = win32com.client.Dispatch("Excel.Application")
        excel.Visible = False
        workbook = excel.Workbooks.Open(Filename=fname)
        excelModule = workbook.VBProject.VBComponents.Add(1)
        excelModule.CodeModule.AddFromString(macro)
        excel.Application.Run('Module1.CleanDataPivot')
        excel.Workbooks(1).Close(SaveChanges=1)
        excel.Application.Quit()
        del excel

Nun kann ich ein makro über alle .xlsm Datei in meinem Ordner ohne zu öffnen excel.

InformationsquelleAutor user_112358

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.