a nested Do Loop for workbook and sheets

[GerryZ]

Hello Friends
I'm learning VBA
I am trying to print on the screen the result of 2 nested Loops with the Do Loop, the code I created with some difficulty manages to print only the name of the WorkBook but it does not print the sheets names , maybe I make some mistakes
If anyone can help me
A greeting

Option Explicit
Sub UnisciTuttiIFile()

Dim NomiFile As String
NomiFile = Dir("C:\Users\Utente\Documents\Vendite\Anni\")

    Do Until NomiFile = ""
        Debug.Print NomiFile
                    Do
                        Debug.Print ActiveSheet.Name
                        If ActiveSheet.Next Is Nothing Then Exit Do
                    Loop
        NomiFile = Dir
    Loop
End Sub

EDIT I've the OutPut in another sheet

 

[Peter_SSs]

Hi G..

Hope you are well!

Not a strong area of mine but it depends on whether you are happy to open the workbooks or not. See if this old thread is any help.
Get worksheet names from closed workbook

BTW, I changed the title as requested.

 

[GerryZ]

Hi Peters,
I'm well About You??
Any way I solved in this way
with this line of code before the Do Loop so the procedures started from the first sheet

    FileDelleVendite.Worksheets(1).Select

Here is the the entire Code, of course i Used DEBUG.PRINT to check if the Loop Work Correctly

Option Explicit
Sub UnisciTuttiIFile()
Dim NomiFile As String
Dim FileDelleVendite As Workbook
Dim RisultatoFinale As Worksheet
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
    If ws.CodeName <> "wks1" Then ws.Delete
Next
Application.DisplayAlerts = True
Set RisultatoFinale = ThisWorkbook.Worksheets.Add

NomiFile = Dir("C:\Users\Utente\Documents\Vendite\Anni\")
    Do Until NomiFile = ""
    Set FileDelleVendite = Workbooks.Open("C:\Users\Utente\Documents\Vendite\Anni\" & NomiFile)
'   Debug.Print NomiFile
    FileDelleVendite.Worksheets(1).Select
                        Do
        '                    Debug.Print ActiveSheet.Name
                            ActiveSheet.Range("A1").CurrentRegion.Offset(1).Copy
                            RisultatoFinale.Range("A999999").End(xlUp).Offset(1, 0).PasteSpecial
                            If ActiveSheet.Next Is Nothing Then Exit Do
                            ActiveSheet.Next.Select
                        Loop
            NomiFile = Dir
            FileDelleVendite.Close
    Loop
Workbooks.Open "C:\Users\Utente\Documents\Vendite\Anni\2021.xlsx"
Worksheets(1).Range("A1:D1").Copy RisultatoFinale.Range("A1:D1")
Workbooks("2021.xlsx").Close
RisultatoFinale.Columns.AutoFit
Application.ScreenUpdating = True
End Sub

Ciao Peters ti aspetto in Italia

 

[mohadin]

TRy

 ActiveWorkbook.Worksheets(1).Select

Instead

FileDelleVendite.Worksheets(1).Select

 

[Peter_SSs]

I'm well About You??

Yes, very well thank you. Looking forward to international travel again one day. ?

 

[GerryZ]

TRy

 ActiveWorkbook.Worksheets(1).Select

Instead

FileDelleVendite.Worksheets(1).Select

Thank You! Mohadin i will try thank you for the answear