Pra deixar mais fácil a explicação, vou estar chamando um arquivo de "A" e o outro arquivo de "B".
Basicamente, o que eu estou tentando fazer é copiar os dados do arquivo "A" para o "B". Para isso, no próprio código eu crio um novo arquivo "B" e copio as informações pra ele.
No entanto, quando eu tento salvar o arquivo "B", ele dá o seguinte erro: Erro em tempo de execução '1004'.
A minha intenção é salvar o "B" em um local específico do computador, com um nome específico. Alguém sabe como fazer isso?
O código que eu tenho é esse:
Sub tratamento()
'Aqui eu declaro as variáveis que eu vou usar
Dim base As Worksheet
Dim este_arq As Workbook, contemplados_arq As Workbook
Dim number As Integer, contagem As Integer
Dim data_atual As Date
Set base = Plan1
number = 1
contagem = 0
'Nesse loop ele faz a exclusão de linhas em branco na coluna "E"
With base
.Range("A1").Select
Do While ActiveCell <> ""
If .Cells(number, 5) = "" Then
.Cells(number, 5).EntireRow.Delete shift:=xlUp
contagem = contagem + 1
Else
ActiveCell.Offset(1, 0).Select
number = number + 1
End If
Loop
End With
Set este_arq = ThisWorkbook
'Aqui ele copia as informações do meu arquivo atual
base.Range("A1").CurrentRegion.Copy
'Já aqui ele cria um novo arquivo, pra onde eu quero colar as informações copiadas
Application.Workbooks.Add
Set contemplados_arq = ActiveWorkbook
'Aqui ele cola as informações
contemplados_arq.Sheets(1).Paste
'E foi aqui que deu o problema: minha intenção é salvar o novo arquivo em um caminho específico com um nome específico.
'Mas dá erro.
contemplados_arq.SaveAs (ThisWorkbook.Path & "\Contemplados hoje" & "\" & "Relatório.xlsm")
contemplados_arq.Close
End Sub
Agradeço desde já!