Olá colegas,
Sou novo aqui e gostaria de saber se alguém consegue me ajudar no seguinte dilema.
Criei uma pequena rotina no excel onde é criado um arquivo da planilha em pdf, e salva no C:temp, gostaria de alem de salvar o arquivo, guardasse o caminho do arquivo salvo, para na próxima rotina já existente, utilizasse os arquivo para enviar como anexo.
Porem na rotina de salvar o caminho, não esta sendo útil, pois serão 10 anexos possíveis, e logo na primeira rotina, todos 10 campos são preenchido com o primeiro arquivo gerado, impossibilitando salvar os próximos.
Acredito ser um problema simples, mas infelizmente não consegui entender o erro.
Se alguém puder contribuir. Desde já agradeço. Segue o macro.
'Rotina que gera o arquivo em pdf
Sheets("Termo de Quitação").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:temp" & "Termo Quitação - " & Range("C10") & " - " & Range("k3") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'rotina para salvar o caminho do arquivo anterior gerado
caminho = "C:temp" & "Termo Quitação - " & Range("C10") & " - " & Range("k3") & ".pdf"
If Range("I17").Value = "" Then
Range("I17").Value = caminho
End If
If Range("I17").Value <> "" And Range("I18").Value = "" Then
Range("I18").Value = caminho
End If
If Range("I18").Value <> "" And Range("I19").Value = "" Then
Range("I19").Value = caminho
End If
If Range("I19").Value <> "" And Range("I20").Value = "" Then
Range("I20").Value = caminho
End If
If Range("I20").Value <> "" And Range("I21").Value = "" Then
Range("I21").Value = caminho
End If
If Range("I21").Value <> "" And Range("I22").Value = "" Then
Range("I22").Value = caminho
End If
If Range("I22").Value <> "" And Range("I23").Value = "" Then
Range("I23").Value = caminho
End If
If Range("I23").Value <> "" And Range("I24").Value = "" Then
Range("I24").Value = caminho
End If
If Range("I24").Value <> "" And Range("I25").Value = "" Then
Range("I25").Value = caminho
End If
If Range("I25").Value <> "" And Range("I26").Value = "" Then
Range("I26").Value = caminho
End If
End Sub
Postado : 03/06/2018 2:37 pm