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

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.