MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Erro - O método 'NameSpace' do objeto 'IShellDispatch6' falhou

    avatar
    MMALHEIROS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 18/10/2017

    Erro - O método 'NameSpace' do objeto 'IShellDispatch6' falhou Empty Erro - O método 'NameSpace' do objeto 'IShellDispatch6' falhou

    Mensagem  MMALHEIROS em 22/3/2020, 17:40

    Boa tarde,

    Esse erro aparece ao tentar executar no Excel 2010 a macro do código abaixo:

    Sub Descompactar()

    Dim oApp As Object
    Dim arquivo As Variant
    Dim caminho As Variant

    'On Error GoTo RazãoDoErro

    lr = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).row

    For i = 2 To lr
    arquivo = Cells(i, 6).Value
    caminho = Cells(i, 7).Value & "\"

    'On Error Resume Next

    Set oApp = CreateObject("shell.application")
    oApp.Namespace(caminho).CopyHere oApp.Namespace(arquivo).Items
    Next

    'RazãoDoErro:
    ' If Err.Number <> 0 Then
    ' MsgBox "Ocorreu o seguinte erro : " & Err.Description & vbCrLf & "Código do erro : " & Err.Number, vbInformation + vbOKOnly, "Alerta!"
    ' End If

    End Sub

    Alguma ideia?

    Abs
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1593
    Registrado : 22/11/2016

    Erro - O método 'NameSpace' do objeto 'IShellDispatch6' falhou Empty Re: Erro - O método 'NameSpace' do objeto 'IShellDispatch6' falhou

    Mensagem  DamascenoJr. em 22/3/2020, 19:30

    Tópico movido para sala Off Tópic por não se tratar de nada relacionado a Access.

    Vale lembrar que este é um fórum sobre Access, para assuntos de outros aplicativos o melhor é procurar o fórum correspondente.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 4/4/2020, 11:56