How to run a python script using VBA

Question

I created a project that consists of sending automatic messages through the Telegram API, I did all this part in Python and works perfectly, as shown below.

import requests
from datetime import date
import time

#TELEGRAM INFO
MyToken = "meuToken"
MyChatID = "-meuId"

#--------------------------- SEND TEXT TO TELEGRAM ---------------------------
DHoje = date.today() 
DHoje = DHoje.strftime("%d/%m/%Y")
# MY TEXT
MyMsg = "Banco de Dados" + " " + DHoje
#SEND METHOD
SendMsg = requests.post("https://api.telegram.org/bot{}/sendMessage?chat_id={}&text={}".format(MyToken, MyChatID, MyMsg))
time.sleep(3)

The big issue is that I need to run this script through a code in VBA, and I can even do this, but despite the screen blink and open quickly, no message is sent. Follow the VBA code part:

Option Explicit

Public Const PythonPath As String = """C:\meucaminho\Python36\python.exe"""
Public Const MyFilePath As String = """C:\meucaminho\MsgFileTelegram.py"""

Public Sub ChamarPython()

    Call VBA.Shell(PythonPath & " " & MyFilePath)

End Sub

Obs.: When I run the python code outside the excel macro everything works perfectly, but when I run the script by VBA nothing. Any suggestions? Note: I read a lot about the subject and gave a lot google, but I could not walk alone.

Answer 1

Try this:

RetVal = Shell(PythonPath & MyFilePath)

Or if the Python script is in the same directory as the Excel workbook, you can try:

RetVal = Shell(PythonPath  & ActiveWorkBook.Path & "\MyFilePath)

Still a third alternative...

Sub Python()

    Dim objShell As Object
    Dim PythonPath, MyFilePath As String

    Set objShell = VBA.CreateObject("Wscript.Shell")

    PythonPath= "C:\meucaminho\Python36\python.exe"
    MyFilePath= "C:\meucaminho\MsgFileTelegram.py"

    objShell.Run PythonPath & MyFilePath

End Sub