Classe Research - serviço de pesquisa (Excel VBA)

A classe Research representa os controles de uma consulta Research. Para usar uma variável de classe Research, ela primeiro precisa ser instanciada por exemplo

Dim rsr as Research
Set rsr = ActiveWorkbook.Research

IsResearchService

Indica se o GUID especificado no parâmetro ServiceID corresponde a um serviço atualmente configurado.

IsResearchService (ServiceID)

ServiceID: Especifica o GUID que identifica o serviço de pesquisa.

Dim strServiceID As String: strServiceID = 
Dim booIsResearchService As Boolean
booIsResearchService = ActiveWorkbook.Research.IsResearchService(ServiceID:=strServiceID)

Query

Especifica uma consulta de pesquisa.

Query (ServiceID, QueryString, QueryLanguage, UseSelection, LaunchQuery)

Dim strServiceID As String: strServiceID = 
ActiveWorkbook.Research.Query ServiceID:=strServiceID

Arguments

O seguinte argumento é necessário

ServiceID (String) - Especifica o GUID que identifica o serviço de pesquisa.

Optional arguments

Os seguintes argumentos são opcionais

QueryString (String) - Especifica a cadeia de caracteres de consulta.

QueryLanguage (String) - Especifica o idioma da cadeia de caracteres de consulta.

UseSelection (Boolean) - True para usar a seleção atual como a cadeia de caracteres de consulta. Isso substitui o parâmetro QueryString , se definido. Valor padrão é False.

LaunchQuery (Boolean) - True para iniciar a consulta. False exibe o escopo do painel de tarefas de pesquisa para pesquisar o serviço de pesquisa especificado.

SetLanguagePair

Define os idiomas do serviço de tradução.

SetLanguagePair (LanguageFrom, LanguageTo)

Dim lngLanguageFrom As Long: lngLanguageFrom = 
Dim lngLanguageTo As Long: lngLanguageTo = 
ActiveWorkbook.Research.SetLanguagePair LanguageFrom:=lngLanguageFrom, LanguageTo:=lngLanguageTo

Arguments

O seguinte argumento é opcional

LanguageFrom (Long) - Especifica o idioma de origem.

LanguageTo (Long) - Especifica o idioma a ser traduzido.