Bom dia
Por favor, alguém poderia me ajudar?
Preciso alterar uma macro original por uma alterada, porém eu não estou conseguindo fazer a macro alterada funcionar na planilha nova.
macro original:
ActiveWorkbook.XmlMaps("XML").Import URL:= _
"C:UsersFiscalDesktopARQUIVOS XMLXML.xml"
macro alterada:
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:TempARQUIVOS XML" 'Aqui altere para o seu diretorio
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:=Arquivo
Next
End If
' ListaArquivos = result
ErrHandler:
Set FSO = Nothing
Set Pasta = Nothing
Set Arquivo = Nothing
End Sub
Private Sub CommandButton1_Click()
ListaArquivos
End Sub
Preciso inserir esse código na planilha anexa, mas eu não estou conseguindo fazer isso.
muito obrigado a todos pela atenção.
Postado : 20/02/2018 4:50 am