Windows("").Activate com variação de nome


#1

Tenho a necessidade de colocar um comando onde ele abre uma planilha em determinado lugar e volta pra minha origem e cola.

o problema é que o nome da planilha da minha origem não é fixo (determinado por um concatenar), já a planilha que ele vai abrir sim, estou tentando realizar o processo para que sempre funciono com o nome variado porém não consigo

Segue código:

Sub geral()

‘Abrir o arquivo de base e voltar pra planilha com ele copiado, depois voltar e fechar. - problema nisso é que o nome do arquivo sempre vai variar’

Application.ScreenUpdating = False 'metrica de otimização de processo

'--------------------------------------------------------------------------------------
Dim tempo As Double
Dim nome As String já tentei colocar como woorbook e também não funciona ele gera um erro ao executar de intervalo with

nome = “435-4-Filial-42881-VENC-42851-CAIO TOP-15245.xlsm”

‘já tentei colocar a formula do concatenar e não adiantou

'----------------------------------------------------------------------------------------

Workbooks.OpenText filename:="\192.168.3.60\dti\teste_compras\REL PRECO.xlsx"

Worksheets(“Dados_Relatorio”).Activate 'Abriu selecionou a aba que eu quero e o intervalo e copiou
Cells.Select
Range(“A:N”).Select
Selection.Copy

Windows(“nome”).Activate

Sheets(“Base de Dados”).Select
ActiveCell.Range(“A1”).Select 'cola
ActiveSheet.Paste

'--------------------------------------
Application.ScreenUpdating = True 'metrica de otimização de processo

End Sub