1162x
004638
2020-08-19

Pergunta

Ao programar em VBA com linhas RFEM, aparece-me o seguinte problema: "Nenhuma atribuição possível no campo de dados." O que devo fazer?


Resposta:

Neste caso, existe um erro no EXCEL VBA que não pode ser corrigido da nossa parte. Por esse motivo, foi criado o novo objeto RFEM.RfLine (em vez de RFEM.Line) que pode ser utilizado para continuar o seu trabalho. Aqui está um pequeno exemplo:

Sub test_RfLine()
    
    Dim iModel As RFEM5.IModel2
    Set iModel = GetObject(, "RFEM5.Model")
    iModel.GetApplication.LockLicense
    

On Error GoTo e
    
    Dim iModelData As RFEM5.IModelData2
    Set iModelData = iModel.GetModelData
    
    Dim lines() As RFEM5.RfLine
    lines = iModelData.GetLines
    
    
e:  If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
    
    Set iModelData = Nothing
    iModel.GetApplication.UnlockLicense
    Set iModel = Nothing
    
End Sub