Итак, я пытаюсь запустить код Python с помощью VBA. Прочитал много похожих тем здесь, но не смог найти ответа.
Каждый раз, когда я использую приведенный ниже код, CMD сообщает об ошибке разрешения - изображение ниже.
Запуск сценария Python идеально при нажатии вручную.
Есть идеи по этому поводу?
КОД VBA
Dim obj As Object
Dim PythonExe As String
Dim Script As String
Set obj = VBA.CreateObject("Wscript.Shell")
PythonExe = """C:\Program Files (x86)"""
Script = "C:\Users\User\Documents\testesbulkpdf\firsttry.py"
obj.Run "cmd /k cd /d" & PythonExe & "&& " & "python" & " " & Script
PYTHON КОД
# pip instal PyPDF2
import os
from PyPDF2 import PdfFileMerger
source_dir = os.getcwd()
merger = PdfFileMerger()
for item in os.listdir(source_dir):
if item.startswith('Doc.'):
merger.merge(position=0, fileobj=item, bookmark=None, pages=None)
if item.endswith('pdf'):
merger.append(item)
merger.write('try.pdf')
merger.close()
Erro - изображение и текст (https://imgur.com/a/JmZdJeK)
Traceback (most recent call last):
File "C:\Users\User\Documents\testesbulkpdf\firsttry.py", line 19, in <module>
merger.write('try.pdf')
File "C:\Users\User\AppData\Roaming\Python\Python38\site-packages\PyPDF2\merger.py", line 214, in write
fileobj = file(fileobj, 'wb')
PermissionError: [Errno 13] Permission denied: 'try.pdf'