/ / Húzza át az Excel VBA könyvek és táblázatok segítségével

Húzza át az Excel VBA könyveket és lapokat

Az alábbiakban egy programot nézünk be Excel VBA hogy minden nyitott munkafüzeten és munkalapon keresztül, és megjeleníti az összes nevet.

Helyzet:

Húzza át a könyveket és a lapokat Példa

Adja hozzá a következő kódsorokat a parancsgombhoz:

1. Először két objektumot és egy változót deklarálunk. A Workbook típusú egyik objektum, amelyet könyvnek nevezünk, egy Munkafüzet típusú objektumnak nevezzük, és egy String típusú változót hívunk szövegnek.

Dim book As Workbook, sheet As Worksheet, text As String

2. Meg akarjuk nyitni az összes nyitott munkafüzetet. Ehhez a következő kódsor hozzáadásához:

For Each book In Workbooks

3. A "Workbook:" szöveget, a munkafüzet nevét és a "Munkalapok:" szöveget a változó szövegre írjuk.

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

Megjegyzés: a & kezelővel összekapcsolhatja az elemeket. Új vonal indításához használhatja a vbNewLine alkalmazást.

4. A munkafüzet összes munkalapjának áthaladásához adja hozzá a következő kódsorozatot:

For Each sheet In book.Worksheets

5. Egy munkalap munkalapainak nevét írjuk a változó szövegre.

text = text & sheet.Name & vbNewLine

6. Zárja be a második hurkot.

Next sheet

7. Adjon hozzá egy fehér vonalat.

text = text & vbNewLine

8. Ne felejtsd el lezárni az első hurkot.

Next book

9. Végül a változó szöveget egy MsgBox segítségével jelenítjük meg.

MsgBox text

10. Vizsgálja meg a programot. Mielőtt rákattint a parancs gombra, adja meg munkalapjainak néhány leíró nevét, és nyisson meg egy üres munkafüzetet.

Eredmény:

Húzza át az Excel VBA könyveket és lapokat

Szintén olvasható: