Olá como ficaria este código abaixo ao invés de copiar ele mover o arquivo? Sub Upload_BD_3() Dim fso As Object Dim oArquivo As Object Set fso = Cre...

Em vez de recortar, porque não move-lo ? (oFSO.MoveFile) Veja algumas rotinas referentes a "FileSystemObject", acredito que irá ajudar. Wor...

Boa tarde wenpra, Altera essa linha disso: Set a = fs.CreateTextFile(ThisWorkbook.FullName & ".xml", True) para isso: Set a = fs.Create...

Sub Copy_B3_PARA_B2() Application.ScreenUpdating = False Workbooks.Open ("C:SISTEMA PEDIDO V1.0TERMINAL2BD_3.xlsx"...

só não esta salvando a planilha BD_2

Resolvi usando Workbooks("SISTEMA PEDIDOS V1.0.xlsm").RefreshAll

Option Explicit Sub Mover_E_Substituir() Dim fso As Object Dim oArquivo As Object Set fso = CreateObject("Scripting.FileSys...

Olá amigo(a) acho que tenho o que desejas ... Segue planilha como exemplo. Eu fiz as macros para consolidar dados em mesma planilha, porém posso faz...

Não veio anexo amigo agradeço atenção....

E que eu não manjo nada de ACCESS.