{"id":4994,"date":"2023-07-05T10:00:07","date_gmt":"2023-07-05T10:00:07","guid":{"rendered":"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/"},"modified":"2023-07-05T10:00:07","modified_gmt":"2023-07-05T10:00:07","slug":"vba-dapatkan-daftar-buku-kerja-yang-terbuka","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/","title":{"rendered":"Vba: cara mendapatkan daftar semua buku kerja yang terbuka"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\">Anda bisa menggunakan loop <strong>For Each<\/strong> di VBA untuk mendapatkan daftar semua buku kerja Excel yang terbuka.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Berikut adalah cara umum untuk melakukan hal ini dalam praktik:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">Sub<\/span> ListAllOpenWorkbooks()\n\n<span style=\"color: #0000ff;\">Dim<\/span> wbName <span style=\"color: #0000ff;\">As String<\/span>\n<span style=\"color: #0000ff;\">Dim<\/span> wb <span style=\"color: #0000ff;\">As<\/span> Workbook\n\n<span style=\"color: #008000;\">'add each open workbook to message box\n<\/span><span style=\"color: #0000ff;\">For Each<\/span> wb <span style=\"color: #0000ff;\">In<\/span> Application.Workbooks\n    wbName = wbName &amp; wb.Name &amp; vbCrLf\n<span style=\"color: #0000ff;\">Next<\/span>\n\n<span style=\"color: #008000;\">'display message box with all open workbooks\n<\/span><span style=\"color: #0000ff;\">MsgBox<\/span> wbName\n\n<span style=\"color: #0000ff;\">End Sub\n<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Makro khusus ini akan menghasilkan kotak pesan yang berisi daftar semua buku kerja Excel yang terbuka.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Contoh berikut menunjukkan cara menggunakan makro ini dalam praktiknya.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Contoh: Dapatkan daftar semua buku kerja yang terbuka menggunakan VBA<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\"><span style=\"color: #000000;\">Mari kita asumsikan bahwa tiga buku kerja Excel berikut sedang terbuka:<\/span><\/span><\/p>\n<ul>\n<li> <span style=\"color: #000000;\"><strong>baseball_data.xlsx<\/strong><\/span><\/li>\n<li> <span style=\"color: #000000;\"><strong>football_data.xlsx<\/strong><\/span><\/li>\n<li> <span style=\"color: #000000;\"><strong>hoki_data.xlsx<\/strong><\/span><\/li>\n<\/ul>\n<p> <span style=\"color: #000000;\">Katakanlah kita ingin menggunakan VBA untuk membuat daftar nama semua buku kerja yang terbuka ini.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Kita dapat membuat makro berikut untuk melakukan ini:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">Sub<\/span> ListAllOpenWorkbooks()\n\n<span style=\"color: #0000ff;\">Dim<\/span> wbName <span style=\"color: #0000ff;\">As String<\/span>\n<span style=\"color: #0000ff;\">Dim<\/span> wb <span style=\"color: #0000ff;\">As<\/span> Workbook\n\n<span style=\"color: #008000;\">'add each open workbook to message box\n<\/span><span style=\"color: #0000ff;\">For Each<\/span> wb <span style=\"color: #0000ff;\">In<\/span> Application.Workbooks\n    wbName = wbName &amp; wb.Name &amp; vbCrLf\n<span style=\"color: #0000ff;\">Next<\/span>\n\n<span style=\"color: #008000;\">'display message box with all open workbooks\n<\/span><span style=\"color: #0000ff;\">MsgBox<\/span> wbName\n\n<span style=\"color: #0000ff;\">End Sub<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Saat kami menjalankan makro ini, kami menerima keluaran berikut:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-38955 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/ao1.png\" alt=\"\" width=\"435\" height=\"337\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Kotak pesan menampilkan nama masing-masing buku kerja yang terbuka, dengan masing-masing buku kerja unik dicantumkan pada barisnya sendiri.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Perhatikan bahwa kami menggunakan konstanta <strong>vbCrLf<\/strong> di perulangan <strong>For Each<\/strong> untuk menyisipkan carriage return, yang memindahkan kursor ke baris berikutnya.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Hal ini memungkinkan kami untuk mencantumkan setiap buku kerja yang terbuka pada barisnya sendiri di kotak pesan.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Sumber daya tambahan<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:<\/span><\/p>\n<p> <span style=\"color: #000000;\"><a href=\"https:\/\/statorials.org\/id\/vba-mengganti-nama-file\/\" target=\"_blank\" rel=\"noopener\">Cara mengganti nama file menggunakan VBA<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/\" target=\"_blank\" rel=\"noopener\">Cara membuat daftar file dalam folder menggunakan VBA<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/vba-buka-semua-file-di-folder\/\" target=\"_blank\" rel=\"noopener\">Cara membuka semua file dalam satu folder menggunakan VBA<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/vba-memeriksa-apakah-file-ada\/\" target=\"_blank\" rel=\"noopener\">Cara memeriksa apakah file ada menggunakan VBA<\/a><br \/><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Anda bisa menggunakan loop For Each di VBA untuk mendapatkan daftar semua buku kerja Excel yang terbuka. Berikut adalah cara umum untuk melakukan hal ini dalam praktik: Sub ListAllOpenWorkbooks() Dim wbName As String Dim wb As Workbook &#8216;add each open workbook to message box For Each wb In Application.Workbooks wbName = wbName &amp; wb.Name &amp; [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v21.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>VBA: Cara mendapatkan daftar semua buku kerja yang terbuka \u2013 Statologi<\/title>\n<meta name=\"description\" content=\"Tutorial ini menjelaskan cara mendapatkan daftar buku kerja Excel yang terbuka menggunakan VBA, dengan sebuah contoh.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/\" \/>\n<meta property=\"og:locale\" content=\"id_ID\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA: Cara mendapatkan daftar semua buku kerja yang terbuka \u2013 Statologi\" \/>\n<meta property=\"og:description\" content=\"Tutorial ini menjelaskan cara mendapatkan daftar buku kerja Excel yang terbuka menggunakan VBA, dengan sebuah contoh.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-05T10:00:07+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/ao1.png\" \/>\n<meta name=\"author\" content=\"Benjamin anderson\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Ditulis oleh\" \/>\n\t<meta name=\"twitter:data1\" content=\"Benjamin anderson\" \/>\n\t<meta name=\"twitter:label2\" content=\"Estimasi waktu membaca\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 menit\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/\",\"url\":\"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/\",\"name\":\"VBA: Cara mendapatkan daftar semua buku kerja yang terbuka \u2013 Statologi\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/id\/#website\"},\"datePublished\":\"2023-07-05T10:00:07+00:00\",\"dateModified\":\"2023-07-05T10:00:07+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\"},\"description\":\"Tutorial ini menjelaskan cara mendapatkan daftar buku kerja Excel yang terbuka menggunakan VBA, dengan sebuah contoh.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/#breadcrumb\"},\"inLanguage\":\"id\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/statorials.org\/id\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Vba: cara mendapatkan daftar semua buku kerja yang terbuka\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/statorials.org\/id\/#website\",\"url\":\"https:\/\/statorials.org\/id\/\",\"name\":\"Statorials\",\"description\":\"Panduan anda untuk kompetensi statistik!\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/statorials.org\/id\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"id\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\",\"name\":\"Benjamin anderson\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"id\",\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/image\/\",\"url\":\"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"contentUrl\":\"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"caption\":\"Benjamin anderson\"},\"description\":\"Halo, saya Benjamin, pensiunan profesor statistika yang menjadi guru Statorial yang berdedikasi. Dengan pengalaman dan keahlian yang luas di bidang statistika, saya ingin berbagi ilmu untuk memberdayakan mahasiswa melalui Statorials. Baca selengkapnya\",\"sameAs\":[\"http:\/\/statorials.org\/id\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"VBA: Cara mendapatkan daftar semua buku kerja yang terbuka \u2013 Statologi","description":"Tutorial ini menjelaskan cara mendapatkan daftar buku kerja Excel yang terbuka menggunakan VBA, dengan sebuah contoh.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/","og_locale":"id_ID","og_type":"article","og_title":"VBA: Cara mendapatkan daftar semua buku kerja yang terbuka \u2013 Statologi","og_description":"Tutorial ini menjelaskan cara mendapatkan daftar buku kerja Excel yang terbuka menggunakan VBA, dengan sebuah contoh.","og_url":"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/","og_site_name":"Statorials","article_published_time":"2023-07-05T10:00:07+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/ao1.png"}],"author":"Benjamin anderson","twitter_card":"summary_large_image","twitter_misc":{"Ditulis oleh":"Benjamin anderson","Estimasi waktu membaca":"1 menit"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/","url":"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/","name":"VBA: Cara mendapatkan daftar semua buku kerja yang terbuka \u2013 Statologi","isPartOf":{"@id":"https:\/\/statorials.org\/id\/#website"},"datePublished":"2023-07-05T10:00:07+00:00","dateModified":"2023-07-05T10:00:07+00:00","author":{"@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81"},"description":"Tutorial ini menjelaskan cara mendapatkan daftar buku kerja Excel yang terbuka menggunakan VBA, dengan sebuah contoh.","breadcrumb":{"@id":"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/#breadcrumb"},"inLanguage":"id","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/id\/vba-dapatkan-daftar-buku-kerja-yang-terbuka\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/statorials.org\/id\/"},{"@type":"ListItem","position":2,"name":"Vba: cara mendapatkan daftar semua buku kerja yang terbuka"}]},{"@type":"WebSite","@id":"https:\/\/statorials.org\/id\/#website","url":"https:\/\/statorials.org\/id\/","name":"Statorials","description":"Panduan anda untuk kompetensi statistik!","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/statorials.org\/id\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"id"},{"@type":"Person","@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81","name":"Benjamin anderson","image":{"@type":"ImageObject","inLanguage":"id","@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/image\/","url":"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","contentUrl":"http:\/\/statorials.org\/id\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","caption":"Benjamin anderson"},"description":"Halo, saya Benjamin, pensiunan profesor statistika yang menjadi guru Statorial yang berdedikasi. Dengan pengalaman dan keahlian yang luas di bidang statistika, saya ingin berbagi ilmu untuk memberdayakan mahasiswa melalui Statorials. Baca selengkapnya","sameAs":["http:\/\/statorials.org\/id"]}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4994"}],"collection":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/comments?post=4994"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4994\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/media?parent=4994"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/categories?post=4994"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/tags?post=4994"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}