Em vez de recortar, porque não move-lo ? (oFSO.MoveFile)

Veja algumas rotinas referentes a "FileSystemObject", acredito que irá ajudar.
Working with files and the FileSystemObject
http://www.sqldts.com/292.aspx

[]s

Em vez de recortar, porque não move-lo ? (oFSO.MoveFile)

Veja algumas rotinas referentes a "FileSystemObject", acredito que irá ajudar.
Working with files and the FileSystemObject
http://www.sqldts.com/292.aspx

[]s

Não consegui adptar para o meu código poderia me ajudar:
Dim fso As Object
Dim oArquivo As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'se o primeiro arquivo existe
If fso.FileExists("C:SISTEMA PEDIDO V1.0TERMINAL3BD_3.xlsx") Then

'pega o arquivo no objeto oArquivo1
Set oArquivo = fso.GetFile("C:SISTEMA PEDIDO V1.0TERMINAL3BD_3.xlsx")

'copia e cola no destino, substituindo caso encontre outro com mesmo nome
oArquivo.Copy "C:SISTEMA PEDIDO V1.0DropboxBD_3.xlsx", True
End If

'limpeza de memória
Set oArquivo = Nothing
Set fso = Nothing

End Sub

Bom dia!!

Considerando que o arquivo será re-escrito, não seria necessário.

Sub Copy_One_File()
'Fonte:http://www.rondebruin.nl/win/s3/win026.htm
    FileCopy "C:UsersaleVBADesktopTD_Filtro.xlsm", "C:UsersaleVBADownloadsTD_Filtro.xlsm"
End Sub

Att

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 = CreateObject("Scripting.FileSystemObject")

'se o primeiro arquivo existe
If fso.FileExists("C:SISTEMA PEDIDO V1.0TERMINAL3BD_3.xlsx") Then

'pega o arquivo no objeto oArquivo1
Set oArquivo = fso.GetFile("C:SISTEMA PEDIDO V1.0TERMINAL3BD_3.xlsx")

'copia e cola no destino, substituindo caso encontre outro com mesmo nome
oArquivo.Copy "C:SISTEMA PEDIDO V1.0DropboxBD_3.xlsx", True
End If

'limpeza de memória
Set oArquivo = Nothing
Set fso = Nothing

Boa tarde!

Você não precisa abrir outro tópico, poderia ter perguntado do tópico abaixo.

Analisou minha sugestão?
viewtopic.php?f=10&t=12312

Att

Boa tarde!

Você não precisa abrir outro tópico, poderia ter perguntado do tópico abaixo.

Analisou minha sugestão?
viewtopic.php?f=10&t=12312

Att

Ainda não consegui entender como faço eu abri outro tópico pois não estava esclarecido como terei que fazer?

Boa tarde!
Você não precisa abrir outro tópico, poderia ter perguntado do tópico abaixo.
Analisou minha sugestão?
viewtopic.php?f=10&t=12312

Att

Ainda não consegui entender como faço eu abri outro tópico pois não estava esclarecido como terei que fazer?

Wenpra, se não conseguiu ainda uma solução, não sete o Tópico como RESOLVIDO, e nem abra outros referentes ao mesmo assunto, tenha paciência, lembre-se que o Forum é composto por Voluntários e nem sempre se tem a oportunidade de estarem postando respostas em tempo real.
Juntei os 3 tópicos por entender que se realacionam.

[]s

Logo apos a linha:
'copia e cola no destino, substituindo caso encontre outro com mesmo nome
oArquivo.Copy "C:SISTEMA PEDIDO V1.0DropboxBD_3.xlsx", True
Adicione esta:
'Deleta o arquivo apos a cópia
Kill oArquivo

[]s