Este é um post de José Lopes.

Pode ser de interesse executar scripts externos após a actualização de um ficheiro de Excel no Windows. Este post explica como o fazer.

Imagine que possui um ficheiro de Excel, com determinada informação que serve de base para outras coisas. Pretende executar automaticamente um script externo ao Excel após sair do ficheiro, que irá gerar um output qualquer.

O uso de um script externo permite utilizar a linguagem de programação que bem entende, associar outros dados e evitar sobrecarregar o ficheiro de Excel com código adicional.

Para executar um script externo, ou vários scripts, deve-se usar uma função em Visual Basic. O código dessa função é descrito mais adiante.

Por outro lado, o script deve ser executável no Windows. Por exemplo, se utilizarmos um script em Python este deve ser convertido para executável para ser chamado pelo Excel.

De um modo genérico, para executar scripts externos no Excel, pode utilizar-se a seguinte sequência:

• Abrir o Visual Basic Editor do Excel com o ficheiro em causa aberto.
• NA janela definida por Project - VBAProject seleccionar ThisWorkbook.
• Digitar o seguinte código em Visual Basic:

  Private Sub Workbook_BeforeClose(cancel As Boolean)
  ActiveWorkbook.Save
  Application.DisplayAlerts = False
  Shell ("!PATH!")
  Me.Saved = True
  End Sub

  Explicando o código por linha:

  • Linha 1 - criar a funãoo que será executada no fecho do ficheiro de Excel (o texto tem de ser este).
  • Linha 2 - grava o ficheiro Excel (opcional).
  • Linha 3 - desactiva os alertas automáticos do Excel, como por exemplo ao gravar o ficheiro evita a questão de confirmação.
  • Linha 4 - executa o script externo, substituindo-se !PATH! pelo caminho completo do script. Para cada script uma linha independente.
  • Linha 5 - ao fechar o ficheiro desactiva a pergunta de gravação. Esta é uma pergunta um pouco imbecil pois se incluirmos a linha 2 o ficheiro já estará gravado, mas o Excel possui outros dados (por exemplo a hora) que também grava e insiste em perguntar no fim mesmo com a desactivação dos alertas da linha 3.
  • Linha 6 - fecho da função.
• Gravar e sair do Visual Basic Editor. Ao fechar o ficheiro Excel esta função já irá correr.