Option Explicit com erro ao executar  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Option Explicit com erro ao executar

Mensagempor JNEXCEL » Qua Jan 10, 2018 12:22 pm

Por favor, alguém poderia me auxiliar?
Quando tento executar essa macro ela da erro de analise de xml
Eu estou tentando usar essa macro para importar um arquivo xml (uma planilha mapeada)
Muito obrigado.

Código: Selecionar todos
Option Explicit

Public Sub ListaArquivos()
'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Dim FSO As New FileSystemObject
Dim result() As String
Dim Pasta As Folder
Dim Arquivo As File
Dim Indice As Long
Dim caminho As String
caminho = "C:\WCONFER\"

ReDim result(0) As String
If FSO.FolderExists(caminho) Then
Set Pasta = FSO.GetFolder(caminho)

For Each Arquivo In Pasta.Files
' Indice = IIf(result(0) = "", 0, Indice + 1)
' ReDim Preserve result(Indice) As String
' result(Indice) = Arquivo.Name

ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import URL:=caminho & Arquivo.Name & ".xml"
Next
End If

' ListaArquivos = result
ErrHandler:
Set FSO = Nothing
Set Pasta = Nothing
Set Arquivo = Nothing
End Sub



Public Sub ListaArquivos2()
'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Dim FSO As New FileSystemObject
Dim result() As String
Dim Pasta As Folder
Dim Arquivo As File
Dim Indice As Long
Dim caminho As String
caminho = "C:\WCONFER"

ReDim result(0) As String
If FSO.FolderExists(caminho) Then
Set Pasta = FSO.GetFolder(caminho)

For Each Arquivo In Pasta.Files
' Indice = IIf(result(0) = "", 0, Indice + 1)
' ReDim Preserve result(Indice) As String
' result(Indice) = Arquivo.Name

ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import URL:=caminho & "\" & Arquivo.Name & ".xml"
Next
End If

' ListaArquivos = result
ErrHandler:
Set FSO = Nothing
Set Pasta = Nothing
Set Arquivo = Nothing
End Sub
JNEXCEL
Membro
Membro
 
Mensagens: 74
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 54 times
Have thanks: 2 times

{ SO_SELECT }

Re: Option Explicit com erro ao executar

Mensagempor klarc28 » Qua Jan 10, 2018 12:38 pm

Aqui há duas macros. Já tentou executar as duas? Dá o mesmo erro nas duas? Você fez referência à biblioteca Micrsoft Scripting Runtime? Anexe o arquivo. Execute o código passo a passo, apertando F8, veja em qual linha está dando erro.
Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
JNEXCEL (Qua Jan 10, 2018 2:21 pm)
klarc28
Membro
Membro
 
Mensagens: 451
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 158 times

Re: Option Explicit com erro ao executar

Mensagempor klarc28 » Qua Jan 10, 2018 12:45 pm

Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
JNEXCEL (Qua Jan 10, 2018 2:21 pm)
klarc28
Membro
Membro
 
Mensagens: 451
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 158 times

Re: Option Explicit com erro ao executar

Mensagempor JNEXCEL » Qua Jan 10, 2018 2:20 pm

Olá, muito obrigado pelo vídeo.

sim, tentei usar as duas porém eu não consegui, por gentileza, você poderia verificar o que eu estou fazendo de errado?

Já referenciei, a planilha está salva na pasta indicada pelo código.

Muito obrigado pela atenção e ajuda.

anexa planilha com detalhes.
Você não está autorizado a ver ou baixar esse anexo.
JNEXCEL
Membro
Membro
 
Mensagens: 74
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 54 times
Have thanks: 2 times

Re: Option Explicit com erro ao executar

Mensagempor klarc28 » Qua Jan 10, 2018 2:51 pm

Código: Selecionar todos
Private Sub CommandButton1_Click()

Call ListaArquivos

End Sub

Public Sub ListaArquivos()
'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
Dim FSO As New FileSystemObject
Dim result() As String
Dim Pasta As Folder
Dim Arquivo As File
Dim Indice As Long
Dim caminho As String
caminho = "C:\WCONFER\"

ReDim result(0) As String
If FSO.FolderExists(caminho) Then
Set Pasta = FSO.GetFolder(caminho)

For Each Arquivo In Pasta.Files
' Indice = IIf(result(0) = "", 0, Indice + 1)
' ReDim Preserve result(Indice) As String
' result(Indice) = Arquivo.Name

ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import URL:=caminho & Arquivo.Name
Next
End If

' ListaArquivos = result
ErrHandler:
Set FSO = Nothing
Set Pasta = Nothing
Set Arquivo = Nothing

End Sub
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 451
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 158 times

Re: Option Explicit com erro ao executar

Mensagempor JNEXCEL » Qua Jan 10, 2018 3:00 pm

Desculpe pelo erro com o sub :oops: :oops: :oops: :oops: :oops: :oops: :oops: :oops:

A macro deu erro, por favor, você poderia me informar o que estou fazendo de errado
Você não está autorizado a ver ou baixar esse anexo.
JNEXCEL
Membro
Membro
 
Mensagens: 74
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 54 times
Have thanks: 2 times

Re: Option Explicit com erro ao executar

Mensagempor klarc28 » Qua Jan 10, 2018 3:03 pm

Fiz algumas alterações no código acima. Favor verificar. Aqui percorreu os arquivos, depois deu erro de automação. Aí já não sei o que é.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 451
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 158 times

Re: Option Explicit com erro ao executar

Mensagempor JNEXCEL » Qua Jan 10, 2018 3:35 pm

Deu certo no seu computador?

No meu não deu certo.

Por favor, diga que deu certo no seu computador, você era a minha salvação :o :o :o :shock:
JNEXCEL
Membro
Membro
 
Mensagens: 74
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 54 times
Have thanks: 2 times

Re: Option Explicit com erro ao executar

Mensagempor klarc28 » Qua Jan 10, 2018 4:10 pm

Deu erro
Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 451
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 158 times

Re: Option Explicit com erro ao executar

Mensagempor JNEXCEL » Qua Jan 10, 2018 4:36 pm

:cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry:

Nesse caso não tem o que fazer, isso mesmo? :?: :?:
JNEXCEL
Membro
Membro
 
Mensagens: 74
Registrado em: Sex Out 27, 2017 4:34 pm
Has thanked: 54 times
Have thanks: 2 times

Próximo

Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot], luke002 e 1 visitante