MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 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 : 2609
    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. 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: 7/3/2021, 04:56