Pessoal estou com um grande problema com o COMMONDIALOG no VBA do excel, creio que estou fazendo tudo certinho... Eu vou em   "Ferramentas" escolho  a opção   "Referências" , depois de localizar o arquivo   "comdlg32.ocx" eu marco a opção "Microsoft Common Dialog Control 6.0 (SP3) , depois eu vou novamente em   "Ferramentas" escolho  a opção   "Controles Adicionais" e seleciono a opção "Microsoft Common Dialog Control, verson 6.0, até ai tudo bem, só que quando eu vou adicionar o controle ao meu formulário aparece um msg de instalação e logo depois uma msg   "Não foi possível criar o controle porque este não está licenciado corretamente."   . Eu já registrei
assim: regsvr32 c:windowssystem32comdlg32.ocx , já tentei todas as opções aqui do forum, até mesmo as em API, só que as em API eu não consegui usar pois não entendo muito de API e as dicas não estavam muito claras... agradeceria a ajuda de vcs. Eu uso o Windows XP e o Office 2003
Grato

nikola blz?? Eu tenho uma classe q é, creio eu, até mais completa q o commondialog se quiser eu passo pra vc... é pouca coisa diferente... vc só adiciona a classe no projeto.

Pessoal fuçando aqui no help do VBA eu achei a solução para substituir o uso do commondialog da forma mais simples possivel, eu usei o seguinte código (Obs.: esse código foi usado o office 2003, em versões anteriores não consegui usar)

 

Sub Banco_de_Dados()
'************ Seleciona o Arquivo *****************************
Dim fd As FileDialog
Dim nomearq As String
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        .AllowMultiSelect = False
        .Filters.Add "Arquivos Excel", "*.xls", 1
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                MsgBox "The path is: " & vrtSelectedItem
                nomearq = vrtSelectedItem 'Caminho e nome do arquivo
                Next vrtSelectedItem
        Else
        End If
    End With
    Set fd = Nothing