Excel web service toolkit vba

Hai un problema con Excel?

Nuova discussione

Excel web service toolkit vba
di Antonio.cassano (utente non iscritto) data: 17/11/2011
Non riesco a capire come mai il codice per cercare molecole in chemspider non mi funziona... le prime due funzini funzionano perfettamente ma quando cerco di combinare i due risultati ocn la terza funzione non ottengo un risultato corretto eppure non ottengo nessun errore in fase di compilazione.. fatemi sapere vi prego.. grazie in anticipo

Public Function SimpleSearchCS(name As String) As Variant
    Dim WebService As New clsws_Search
    SimpleSearchCS = WebService.wsm_SimpleSearch(name, "6d3f0296-b0de-499b-be1e-6776a4e810d3")
End Function

Public Function GetCompoundInfoCS(csID As Long) As String
    Dim WebService As New clsws_Search
    GetCompoundInfoCS = WebService.wsm_GetCompoundInfo(csID, "6d3f0296-b0de-499b-be1e-6776a4e810d3").SMILES
End Function

Public Function NametoSmilesCS(molName As String) As String
    Dim csidfy As Long
    Dim molSmiles As String
    csidfy = SimpleSearchCS(molName)
    Debug.Print csidfy
    molSmiles = GetCompoundInfoCS(csidfy)
    Debug.Print molSmiles
    NametoSmilesCS = molSmiles
End Function

Vuoi Approfondire?