VBA - Copy And Paste (Values) for Multiple Worksheets

[rodrigo_m_almeida]

I need help to copy and paste only the values of a sheet from other workbooks.

This is the code I'm using

Public Sub TEST()

    Application.ScreenUpdating = False
    
    Set Wb = Workbooks.Open("C:\ETC\01_12_2021.xlsm", UpdateLinks:=False) 
    Wb.Sheets("Resumo_1").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    Wb.Close savechanges:=False
    ActiveSheet.Name = "01" ' - Day 01
    
    Set Wb = Workbooks.Open("C:\ETC\02_12_2021.xlsm", UpdateLinks:=False) 
    Wb.Sheets("Resumo_1").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    Wb.Close savechanges:=False
    ActiveSheet.Name = "02" ' - Day 02
    
    Application.ScreenUpdating = True
        
End Sub

I needed to open all the files in my folder copy and paste only the sheet values (Resumo_1) from other worksheets to my and rename to 01,02,03,31,etc...

 

[hajiali]

Use the link https://www.mrexcel.com/board/threads/combine-multiple-workbooks-to-one.1126029/. I think you are needing something Similar to what I had back to combing multiple Excels into one. Let me know if this helps.