/ / Kirjataan kirjoja ja arkkeja Excel VBA: ssa

Kirjataan kirjoja ja arkkeja Excel VBA: ssa

Alla tarkastelemme ohjelmaa Excel VBA että kattaa kaikki avoimet työkirjat ja työarkit, ja näyttää kaikki nimet.

Tilanne:

Kirjoittaa kirjoja ja arkkeja esimerkkinä

Lisää komentoriviin seuraavat komentorivit:

1. Ensin mainostetaan kaksi kohdetta ja yksi muuttuja. Yksi kirjoituskirjatyöntyyppinen työkirjan kohde, yksi tavoite -työkuvion nimi, jota kutsumme arkille ja tyypin String-muuttuja, jota kutsumme tekstiksi.

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

2. Haluamme silmukka läpi kaikki avoimet työkirjat. Tämän saavuttamiseksi lisää seuraava koodirivi:

For Each book In Workbooks

3. Kirjoitamme tekstin "Työkirja:", työkirjan nimi ja tekstin "Työarkit:" "muuttuviin teksteihin.

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

Huomaa: voit käyttää & operaattoria yhdistää (liitä) elementtejä. Jos haluat aloittaa uuden rivin, voit käyttää vbNewLineä.

4. Voit piirtää kaikki työkirjan laskentataulukot lisäämällä seuraavan koodin rivin:

For Each sheet In book.Worksheets

5. Kirjoitamme työkirjan taulukkojen nimet muuttuviin tekstiin.

text = text & sheet.Name & vbNewLine

6. Sulje toinen silmukka.

Next sheet

7. Lisää valkoinen viiva.

text = text & vbNewLine

8. Älä unohda sulkea ensimmäistä silmukkaa.

Next book

9. Lopuksi näytämme muuttuvan tekstin MsgBoxilla.

MsgBox text

10. Testaa ohjelma. Ennen kuin napsautat komentopainiketta, anna laskentataulukkosi kuvaavat nimet ja avaa uusi tyhjä työkirja.

Tulos:

Kirjataan kirjoja ja arkkeja Excel VBA: ssa

Lue myös: