Case muito longo

[jricslima]

:)Boa tarde, minha dúvida vale para qualquer linguagem:

É sabido que o CASE é mais enxuto que o IF, porém não descobri ainda como evitar uma sequencia de CASE

muito longa, tipo: ao selecionar num ComboBox 1 ítem entre 192 o qual irá abrir um dos 192 arquivos, conforme em VBA abaixo. Pensei num Loop, mas não consegui solucionar, alguém pode ajudar?

rivate Sub OptionButton1_Click()

Sheets("Classe 000").Select

Dim texto As String

texto = Range("ay3")

Select Case texto

Case "DIMAS"

Set wrdapp = CreateObject("Word.Application")

wrdapp.Visible = True

wrdapp.Documents.Open ("C:\CCDA\ENDERECOS\BRASÍLIA\DIMAS.doc"), SW_SHOWNORMAL, vbNormalFocus

wrdapp.Activate

wrdapp = maxmiz

Case "DIPE"

Set wrdapp = CreateObject("Word.Application")

wrdapp.Visible = True

wrdapp.Documents.Open ("C:\CCDA\ENDERECOS\BRASÍLIA\DIPE.doc"), SW_SHOWNORMAL, vbNormalFocus

wrdapp.Activate

wrdapp = maxmiz

Case "DEVEP"

Set wrdapp = CreateObject("Word.Application")

wrdapp.Visible = True

wrdapp.Documents.Open ("C:\CCDA\ENDERECOS\BRASÍLIA\DEVEP.doc"), SW_SHOWNORMAL, vbNormalFocus

wrdapp.Activate

wrdapp = maxmiz

End Select

End Sub

[jricslima]

:)Boa tarde, minha dúvida vale para qualquer linguagem:

É sabido que o CASE é mais enxuto que o IF, porém não descobri ainda como evitar uma sequencia de CASE

muito longa, tipo: ao selecionar num ComboBox 1 ítem entre 192 o qual irá abrir um dos 192 arquivos, conforme em VBA abaixo. Pensei num Loop, mas não consegui solucionar, alguém pode ajudar?

rivate Sub OptionButton1_Click()

Sheets("Classe 000").Select

Dim texto As String

texto = Range("ay3")

Select Case texto

Case "DIMAS"

Set wrdapp = CreateObject("Word.Application")

wrdapp.Visible = True

wrdapp.Documents.Open ("C:\CCDA\ENDERECOS\BRASÍLIA\DIMAS.doc"), SW_SHOWNORMAL, vbNormalFocus

wrdapp.Activate

wrdapp = maxmiz

Case "DIPE"

Set wrdapp = CreateObject("Word.Application")

wrdapp.Visible = True

wrdapp.Documents.Open ("C:\CCDA\ENDERECOS\BRASÍLIA\DIPE.doc"), SW_SHOWNORMAL, vbNormalFocus

wrdapp.Activate

wrdapp = maxmiz

Case "DEVEP"

Set wrdapp = CreateObject("Word.Application")

wrdapp.Visible = True

wrdapp.Documents.Open ("C:\CCDA\ENDERECOS\BRASÍLIA\DEVEP.doc"), SW_SHOWNORMAL, vbNormalFocus

wrdapp.Activate

wrdapp = maxmiz

End Select

End Sub

Resolvido:

[/COLOR][/B]
[B][COLOR=black]Set wrdapp = CreateObject("Word.Application")[/COLOR][/B]
[B][COLOR=black]wrdapp.Visible = True[/COLOR][/B]
[B][COLOR=black]wrdapp.Documents.Open ("C:\CCDA\ENDERECOS\BRASÍLIA\" & texto & ".doc"), SW_SHOWNORMAL, vbNormalFocus[/COLOR][/B]
[B][COLOR=black]wrdapp.Activate[/COLOR][/B]
[B][COLOR=black]wrdapp = maxmiz[/COLOR][/B]
[B][COLOR=black]