Obrigado pela resposta Cristiano, foi exatamente o que fiz, rodei essa rotina para colocar o material direto pelo excel, sem precisar de um parâmetro de texto.
Sub Main SearchMaterial()
' Procura o material na planilha Excel associada ao modelo
Dim materialName As String
Dim excelFileName As String
Dim inventorSheet As String
Dim cellAddress As String
' Defina o nome do arquivo Excel, a planilha e a célula a serem pesquisadas
excelFileName = "3rd Party:" & ThisDoc.FileName
inventorSheet = "Inventor"
cellAddress = "G15"
' Obtem o valor da célula
On Error Resume Next
materialName = GoExcel.CellValue(excelFileName, inventorSheet, cellAddress)
If MaterialExists(materialName) Then
iProperties.Material = materialName
Else
' Exibe uma mensagem de aviso se o material não for encontrado no modelo
MsgBox ("O material especificado não foi encontrado. Por favor, verifique os dados da planilha.", vbExclamation, "Aviso")
End If
End Sub
Function MaterialExists(materialName As String) As Boolean
' Verifica se o material existe na lista de materiais do modelo Inventor
Dim oMaterial As Material
For Each oMaterial In ThisApplication.ActiveDocument.Materials
If oMaterial.Name = materialName Then
MaterialExists = True
Exit Function
End If
Next
MaterialExists = False
End Function