Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por Diego100ges
Posts
#49537
Bom dia pessoal,
Utilizo esse código para copiar alguns arquivos pdf de uma determinada origem para determinado destino, são em torno de 15 linhas, cada uma com uma origem diferente, então as vezes pode acontecer de alguma delas estar com o caminho errado, gostaria de saber se é possivel colocar na macro um aviso de qual linha deu erro, caso ocorra.
Código: Selecionar todos
Sub SalvarRelatorios()

    Dim origem  As String
    Dim destino As String
    Dim i       As Integer
    Dim Row     As Integer

Row = Plan1.Range("A" & Rows.Count).End(xlUp).Row

For i = 4 To Row
    origem = Range("C" & i)
    destino = Range("D" & i)
    FileCopy origem, destino
Next
End Sub
Avatar do usuário
Por Jimmy
Avatar
#49540
Olá Diego,

Veja se isto te ajuda:
Código: Selecionar todos
Sub SalvarRelatorios()

    Dim origem  As String
    Dim destino As String
    Dim Msg     As String
    Dim i       As Integer
    Dim Row     As Integer

Row = Plan1.Range("A" & Rows.Count).End(xlUp).Row

For i = 4 To Row
    origem = Range("C" & i)
    destino = Range("D" & i)
    On Error Resume Next
    FileCopy origem, destino

    If Err.Number <> 0 Then _
        Msg = Msg & "De:    " & origem & vbCrLf & "Para: " & destino & vbCrLf & _
                    "Linha " & i & ", Erro " & Err.Number & ": " & Err.Description & vbCrLf & vbCrLf
        on error goto 0
Next
If Msg <> "" Then MsgBox "Erro ao copiar o(s) arquivo(s):" & vbCrLf & vbCrLf & Msg
End Sub
Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.

Jimmy San Juan
Por Diego100ges
Posts
#49545
Como uma luva Jimmy, muito obrigado!
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord