0

Eu criei um projeto que consiste em enviar mensagens automáticas através da API do Telegram, fiz toda essa parte no Python e funciona perfeitamente, como mostro a seguir.

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)

A grande questão é que preciso executar esse script através de um código no VBA, e até consigo fazer isso, mas apesar da tela piscar e abrir rapidamente, nenhuma mensagem é enviada. Segue a parte do código do VBA:

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.: Quando rodo o código do python fora da macro do excel tudo funciona perfeitamente, mas quando executo o script pelo VBA nada. Alguma sugestão? Obs.: Li bastante sobre o assunto e dei muito google, mas não consegui andar sozinho.

6
  • O usuário tem permissão na pasta/programa (C:\meucaminho\MsgFileTelegram.py)? 25/06/2021 às 21:38
  • Oi, @PauloMarques, o usuário tem permissão sim. Fico a disposição pra qualquer outra dúvida. 25/06/2021 às 21:42
  • Ao ivés de executar o python, tenta executar um batch (.bat) na mesma pasta. Este batch deve ter apenas os comandos dir e pause. Caso funcione, tente fazer com que o batch chame o python, mantenha o pause, pois caso gerar um erro, você conseguirá lê-lo. 25/06/2021 às 21:46
  • @PauloMarques, fiz como você sugeriu e aconteceu o mesmo, a tela pisca mas o .bat não executa. Mas clicando no BAT roda normal. Não tenho certeza, mas me parece que o comando Call não tá passando o path do arquivo para o .exe do python/terminal. Alguma ideia? Desde já agraço o empenho em ajudar. 25/06/2021 às 23:40
  • Não conheco muito de VBA, mas creio que vc pode passar somente com Shell(PythonPath & " " & MyFilePath), ou seja, retirando o Call VBA. 26/06/2021 às 1:00

1 Resposta 1

0

Tente isto:

RetVal = Shell(PythonPath & MyFilePath)

Ou se o script Python estiver no mesmo diretório da pasta de trabalho Excel, você pode tentar:

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

Ainda um terceira alternativa...

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
2
  • 1
    Paulo, obrigado pela disposição em ajudar! Eu testei o que você sugeriu, nas duas primeiras opções precisei definir a RetVal As Variant, não sei se era sua ideia, mas não funcionou. A 3 sugestão também implementei e não consegui executar o Script Python, o shell abre e imediatamente fecha, não rodando o código do python. 28/06/2021 às 13:53
  • Ok vou rever as opções e edito a resposta 28/06/2021 às 21:09

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .