Excel Identificar Caminho para macro

[David Gustavo da Silva]

Estou com um problema para identificar o caminho das macros que são salvas no PERSONAL.XLSB que são utilizadas como padrão no excel, ou identificar onde é salvo, preciso encontrar o caminho para fazer um Run dessa macro dentro de um .vbs.

[Patropi]

Boa tarde, @David Gustavo da Silva

 

No link abaixo tem um vídeo o Trovato que deve resolver a tua dúvida.

 

[]s

[David Gustavo da Silva]

Boa tarde, @Patropi

 

Abaixo segue meu código, adicionei no excel para realizar a depuração e onde ocorre o Erro é na posição ExcelApp.Run CaminhoMacro, porque não consegue encontrar de forma correta o caminho da macro que está na personal.xlsb, como o arquivo que tem a macro executada por dentro da utility será sobrescrito, adicionei na geral para que não ocorra este problema.

preciso de uma solução para encontrar o path dessa macro, obs: utilizando um path referente a uma macro de uma planilha que não seja esta padrão, consigo identificar o path.

 

Segue anexo o erro

Sub ScriptVBS()

'Caminho completo para a planilha excel
CaminhoArquivoExcel = "C:\Users\david.silva\Documents\LenhaAparas\Fonte de dados\relforn.xlsm"
CaminhoArquivoExcelMacro = "C:\Users\david.silva\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB"

'Criamos uma instância do excel
Set ExcelApp = CreateObject("Excel.Application")

'Você deseja que essa instância fique visível?
ExcelApp.Visible = True

'Previne que o Excel mostre alertas
ExcelApp.DisplayAlerts = False

'Abrimos o arquivo excel
Set wb = ExcelApp.Workbooks.Open(CaminhoArquivoExcel)
Set macrolocation = ExcelApp.Workbooks.Open(CaminhoArquivoExcelMacro)
'Escopo e nome completo da macro para executar

CaminhoMacro = "C:\Users\david.silva\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB\Utility.Ranking_Fornecedores_Auto"
'Path = ThisWorkbook.Path
'Utility.Ranking_Fornecedores_Auto
'Executamos a macro
ExcelApp.Run CaminhoMacro
 
'Salvamos o arquivo excel após a execução da macro
wb.Save

'Voltamos com o parâmetro de alertas para evitar problemas com outras planilhas
ExcelApp.DisplayAlerts = True
  
'Fechamos o arquivo Excel
wb.Close
 
'Fechamos a instância do Excel
ExcelApp.Quit
   
'Alerta para avisar quando a planilha for executada com sucesso
MsgBox "Sua planilha foi executada automaticamente com sucesso às:" & TimeValue(Now), vbInformation

End Sub