Visual Basic Erro 9 - Subscrito Fora de Intervalo

[Rodrigo Barroso]

Bom dia !

 

Estou tentando fazer rodar uma macro simples, que essencialmente deve abrir o arquivo mais novo em uma pasta determinada, e então trazer informações desse arquivo recente, para um outro onde consolido os dados.

 

Entretanto, estou tendo dificuldades em ativar o arquivo que uso como consolidador.

Segue código:

 

Sub Atualizaçãodebase()
'
' Atualização de Base Macro
'

'
    Columns("A:X").Select
    Range("A2").Activate
    Selection.Delete Shift:=xlToLeft
    
     Dim arqSys As FileSystemObject
  Dim objArq As File
  Dim minhaPasta
  Dim nomeArq As String
  Dim dataArq As Date
        Const Diret As String = "\\p7000\Compras\Compras 2020\00 - Indicador de custo\00 - Ind. diário\02 - Fevereiro"
        Set arqSys = New FileSystemObject
        Set minhaPasta = arqSys.GetFolder(Diret)
        dataArq = DateSerial(1900, 1, 1)
For Each objArq In minhaPasta.Files
    If objArq.DateLastModified > dataArq Then
        dataArq = objArq.DateLastModified
        nomeArq = objArq
    End If
    
    
Next objArq
        ActiveWorkbook.FollowHyperlink Address:=nomeArq
        Set arqSys = Nothing
        Set minhaPasta = Nothing
    
    Range("A1:X5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1:X9883").Select
    Selection.Copy
    
Windows("Gráfico - Custo Diário.xlsx").Activate (O ERRO ESTÁ NESSA LINHA (ERRO 9 - SUBSCRITO FORA DE INTERVALO)
    
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1:V1").Select
    Sheets("DB Indiretos").Select
    ActiveWindow.SmallScroll Down:=-9
    Columns("A:Z").Select
    Range("A2").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    ActiveWorkbook.FollowHyperlink Address:=nomeArq
    Sheets("Sem Frete INDIRETO").Select
    Range("A1:Z6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1:Z2089").Select
    Selection.Copy
    Windows("Gráfico - Custo Diário.xlsx").Activate
    ActiveSheet.Paste
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    ActiveWorkbook.FollowHyperlink Address:=nomeArq
    Sheets("Variações").Select
    ActiveWindow.SmallScroll Down:=45
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Sheets("Com Frete").Select
    Range("K9878").Select
    Selection.End(xlToLeft).Select
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    ActiveWindow.Close
End Sub
 

[Basole]

Sem ver os arquivos nao da pra dar um parecer com exatidao.

De qualquer forma experimente "setar" o arquivo: Gráfico - Custo Diário.xlsx e abrir (caso esteja fechado), em seguida ativa-lo

Exemplo:

Dim wb As Workbook


  Set wb = Excel.Workbooks.Open(Diret & "\Gráfico - Custo Diário.xlsx")

wb.Activate

 

[Rodrigo Barroso]

@Basole Obrigado Pela ajuda Basole, mas seu comentário me fez perceber o erro (besta).

Estava nomeando o arquivo como XLSX e não como XLSM que é sua extensão atual.

 

De qualquer forma, agradeço.

Att.