/ / Loop per knygas ir lakštus Excel VBA

"Loop through Books and Sheets" programoje "Excel VBA"

Žemiau apžvelgsime programą Excel VBA tai per visus atidarytus darbaknygius ir darbalapius, ir rodo visus pavadinimus.

Padėtis:

Paveikslėlis per knygas ir lapus

Į komandų mygtuką pridėkite šias kodo eilutes:

1. Pirma, deklaruojame du objektus ir vieną kintamąjį. Vienas "Workbook" tipo objektas, kurį mes vadiname knyga, yra vieno tipo objektas "Worksheet", kurį mes vadiname "sheet", ir kintamąjį tipo String, kurį mes vadiname tekstu.

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

2. Mes norime kilpa per visus atvirus darbaknygius. Norėdami tai pasiekti, pridėkite šią kodo eilutę:

For Each book In Workbooks

3. Mes rašome tekstą "Darbaknygė:", darbo knygos pavadinimą ir tekstą "Darbalapiai:" "į kintamąjį tekstą.

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

Pastaba: jūs galite naudoti "&" operatorių susieti (prisijungti) elementus. Norėdami pradėti naują eilutę, galite naudoti vbNewLine.

4. Norėdami sukviesti visas darbo knygos darbalapius, pridėkite šią kodo eilutę:

For Each sheet In book.Worksheets

5. Darbaknygių darbalapių pavadinimus rašome į kintamąjį tekstą.

text = text & sheet.Name & vbNewLine

6. Uždarykite antrąją kilpą.

Next sheet

7. Pridėkite baltą liniją.

text = text & vbNewLine

8. Nepamirškite uždaryti pirmosios kilpos.

Next book

9. Galiausiai rodomas kintamas tekstas naudojant MsgBox.

MsgBox text

10. Patikrinkite programą. Prieš spustelėdami komandų mygtuką, pateikite savo darbo lapuose keletą aprašomųjų pavadinimų ir atidarykite kitą tuščią darbaknygę.

Rezultatas:

"Loop through Books and Sheets" programoje "Excel VBA"

Taip pat perskaitykite: