Makro för att lista alla blad i en arbetsbok - exempel på VBA -kod

Innehållsförteckning

Följande makro går igenom varje ark i en arbetsbok och skriver fliknamnet på varje ark sekventiellt till ett ark du väljer. Detta kan vara praktiskt för en snabb lista över varje ark i en arbetsbok med många blad.

Lista alla kalkylblad i en arbetsbok

För att använda makrot, ersätt bara ordet Sheet1 (det visas två gånger) i koden med fliknamnet där du vill ha resultaten. Se till att det inte finns någon viktig information på utdatafliken eftersom den rensar data innan du skriver till den.

123456789101112131415 Sub ListSheets ()Dim ws Som arbetsbladDim x Som heltalx = 1Sheets ("Sheet1"). Range ("A: A"). ClearFör varje ws i kalkylbladSheets ("Sheet1"). Celler (x, 1) = ws.Namex = x + 1Nästa wsAvsluta Sub
wave wave wave wave wave