{"id":4873,"date":"2023-07-07T00:08:01","date_gmt":"2023-07-07T00:08:01","guid":{"rendered":"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/"},"modified":"2023-07-07T00:08:01","modified_gmt":"2023-07-07T00:08:01","slug":"vba-daftar-file-dalam-folder","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/","title":{"rendered":"Vba: cara membuat daftar file dalam folder"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\">Anda dapat menggunakan metode berikut di VBA untuk membuat daftar file dalam folder:<\/span><\/p>\n<p> <strong><span style=\"color: #000000;\">Metode 1: Daftarkan semua file dalam folder<\/span><\/strong><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">SubListFiles<\/span> ()\n\n<span style=\"color: #0000ff;\">Dim<\/span> i <span style=\"color: #0000ff;\">As<\/span> Integer\n<span style=\"color: #0000ff;\">Dim<\/span> oFSO <span style=\"color: #0000ff;\">As<\/span> Object\n<span style=\"color: #0000ff;\">Dim<\/span> oFolder <span style=\"color: #0000ff;\">As<\/span> Object\n<span style=\"color: #0000ff;\">Dim<\/span> objFile <span style=\"color: #0000ff;\">As<\/span> Object\n\n<span style=\"color: #0000ff;\">Set<\/span> oFSO = CreateObject(\"Scripting.FileSystemObject\")\n\n<span style=\"color: #0000ff;\">Set<\/span> oFolder = oFSO.GetFolder(\"C:\\Users\\bob\\Documents\\current_data\")\n\n<span style=\"color: #0000ff;\">For Each<\/span> objFile <span style=\"color: #0000ff;\">In<\/span> oFolder.Files\n    Cells(i + 1, 1) = objFile.Name\n    i = i + 1\n<span style=\"color: #0000ff;\">Next<\/span> objFile\n\n<span style=\"color: #0000ff;\">End Sub<\/span><\/strong><\/span><\/pre>\n<p> <strong><span style=\"color: #000000;\">Metode 2: Cantumkan hanya file .xlsx di folder<\/span><\/strong><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">SubListFiles<\/span> ()\n\n<span style=\"color: #0000ff;\">Dim<\/span> i <span style=\"color: #0000ff;\">As<\/span> Integer\n<span style=\"color: #0000ff;\">Dim<\/span> oFSO <span style=\"color: #0000ff;\">As<\/span> Object\n<span style=\"color: #0000ff;\">Dim<\/span> oFolder <span style=\"color: #0000ff;\">As<\/span> Object\n<span style=\"color: #0000ff;\">Dim<\/span> objFile <span style=\"color: #0000ff;\">As<\/span> Object\n\n<span style=\"color: #0000ff;\">Set<\/span> oFSO = CreateObject(\"Scripting.FileSystemObject\")\n\n<span style=\"color: #0000ff;\">Set<\/span> oFolder = oFSO.GetFolder(\"C:\\Users\\bob\\Documents\\current_data\")\n\n<span style=\"color: #0000ff;\">For Each<\/span> objFile <span style=\"color: #0000ff;\">In<\/span> oFolder.Files\n    <span style=\"color: #0000ff;\">If<\/span> Right(objFile.Name, 4) = \"xlsx\" <span style=\"color: #0000ff;\">Then<\/span>\n        Cells(i + 1, 1) = objFile.Name\n        i = i + 1\n    <span style=\"color: #0000ff;\">End If<\/span>\n<span style=\"color: #0000ff;\">Next<\/span> objFile\n\n<span style=\"color: #0000ff;\">End Sub<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Contoh berikut menunjukkan cara menggunakan setiap metode dalam praktik dengan folder yang memiliki jalur file berikut:<\/span><\/p>\n<ul>\n<li> <span style=\"color: #000000;\"><strong>C:\\Users\\bob\\Documents\\current_data<\/strong><\/span><\/li>\n<\/ul>\n<p> <span style=\"color: #000000;\">Folder tersebut berisi dua file <strong>.xlsx<\/strong> dan tiga file <strong>.csv<\/strong> :<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-38055 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/liste1.png\" alt=\"\" width=\"587\" height=\"303\" srcset=\"\" sizes=\"\"><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Contoh 1: Daftar semua file dalam folder<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Kita dapat membuat makro berikut untuk mencantumkan semua file di folder:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">SubListFiles<\/span> ()\n\n<span style=\"color: #0000ff;\">Dim<\/span> i <span style=\"color: #0000ff;\">As<\/span> Integer\n<span style=\"color: #0000ff;\">Dim<\/span> oFSO <span style=\"color: #0000ff;\">As<\/span> Object\n<span style=\"color: #0000ff;\">Dim<\/span> oFolder <span style=\"color: #0000ff;\">As<\/span> Object\n<span style=\"color: #0000ff;\">Dim<\/span> objFile <span style=\"color: #0000ff;\">As<\/span> Object\n\n<span style=\"color: #0000ff;\">Set<\/span> oFSO = CreateObject(\"Scripting.FileSystemObject\")\n\n<span style=\"color: #0000ff;\">Set<\/span> oFolder = oFSO.GetFolder(\"C:\\Users\\bob\\Documents\\current_data\")\n\n<span style=\"color: #0000ff;\">For Each<\/span> objFile <span style=\"color: #0000ff;\">In<\/span> oFolder.Files\n    Cells(i + 1, 1) = objFile.Name\n    i = i + 1\n<span style=\"color: #0000ff;\">Next<\/span> objFile\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-38057 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/liste2.png\" alt=\"\" width=\"481\" height=\"370\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Kita dapat melihat bahwa nama semua file dalam folder (terlepas dari ekstensinya) sekarang tercantum di kolom A lembar Excel kita.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Contoh 2: Cantumkan hanya file .xlsx di folder<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Kita dapat membuat makro berikut untuk mencantumkan hanya file yang memiliki ekstensi <strong>.xlsx<\/strong> di folder:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">SubListFiles<\/span> ()\n\n<span style=\"color: #0000ff;\">Dim<\/span> i <span style=\"color: #0000ff;\">As<\/span> Integer\n<span style=\"color: #0000ff;\">Dim<\/span> oFSO <span style=\"color: #0000ff;\">As<\/span> Object\n<span style=\"color: #0000ff;\">Dim<\/span> oFolder <span style=\"color: #0000ff;\">As<\/span> Object\n<span style=\"color: #0000ff;\">Dim<\/span> objFile <span style=\"color: #0000ff;\">As<\/span> Object\n\n<span style=\"color: #0000ff;\">Set<\/span> oFSO = CreateObject(\"Scripting.FileSystemObject\")\n\n<span style=\"color: #0000ff;\">Set<\/span> oFolder = oFSO.GetFolder(\"C:\\Users\\bob\\Documents\\current_data\")\n\n<span style=\"color: #0000ff;\">For Each<\/span> objFile <span style=\"color: #0000ff;\">In<\/span> oFolder.Files\n    <span style=\"color: #0000ff;\">If<\/span> Right(objFile.Name, 4) = \"xlsx\" <span style=\"color: #0000ff;\">Then<\/span>\n        Cells(i + 1, 1) = objFile.Name\n        i = i + 1\n    <span style=\"color: #0000ff;\">End If<\/span>\n<span style=\"color: #0000ff;\">Next<\/span> objFile\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-38056 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/liste3.png\" alt=\"\" width=\"447\" height=\"360\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Kita dapat melihat bahwa hanya nama file dengan ekstensi <strong>.xlsx<\/strong> di folder tersebut yang sekarang tercantum di kolom A lembar Excel kita.<\/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-membuat-folder\/\">Cara Membuat Folder Menggunakan VBA<\/a><br \/> <a href=\"https:\/\/statorials.org\/id\/vba-hapus-folder\/\" target=\"_blank\" rel=\"noopener\">Cara menghapus folder menggunakan VBA<\/a><br \/> <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-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 dapat menggunakan metode berikut di VBA untuk membuat daftar file dalam folder: Metode 1: Daftarkan semua file dalam folder SubListFiles () Dim i As Integer Dim oFSO As Object Dim oFolder As Object Dim objFile As Object Set oFSO = CreateObject(&#8220;Scripting.FileSystemObject&#8221;) Set oFolder = oFSO.GetFolder(&#8220;C:\\Users\\bob\\Documents\\current_data&#8221;) For Each objFile In oFolder.Files Cells(i + 1, 1) [&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 membuat daftar file dalam folder - Statologi<\/title>\n<meta name=\"description\" content=\"Tutorial ini menjelaskan cara membuat daftar file dalam folder menggunakan VBA, dengan beberapa 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-daftar-file-dalam-folder\/\" \/>\n<meta property=\"og:locale\" content=\"id_ID\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA: Cara membuat daftar file dalam folder - Statologi\" \/>\n<meta property=\"og:description\" content=\"Tutorial ini menjelaskan cara membuat daftar file dalam folder menggunakan VBA, dengan beberapa contoh.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-07T00:08:01+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/liste1.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=\"2 menit\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/\",\"url\":\"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/\",\"name\":\"VBA: Cara membuat daftar file dalam folder - Statologi\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/id\/#website\"},\"datePublished\":\"2023-07-07T00:08:01+00:00\",\"dateModified\":\"2023-07-07T00:08:01+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\"},\"description\":\"Tutorial ini menjelaskan cara membuat daftar file dalam folder menggunakan VBA, dengan beberapa contoh.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/#breadcrumb\"},\"inLanguage\":\"id\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/statorials.org\/id\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Vba: cara membuat daftar file dalam folder\"}]},{\"@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 membuat daftar file dalam folder - Statologi","description":"Tutorial ini menjelaskan cara membuat daftar file dalam folder menggunakan VBA, dengan beberapa 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-daftar-file-dalam-folder\/","og_locale":"id_ID","og_type":"article","og_title":"VBA: Cara membuat daftar file dalam folder - Statologi","og_description":"Tutorial ini menjelaskan cara membuat daftar file dalam folder menggunakan VBA, dengan beberapa contoh.","og_url":"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/","og_site_name":"Statorials","article_published_time":"2023-07-07T00:08:01+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/liste1.png"}],"author":"Benjamin anderson","twitter_card":"summary_large_image","twitter_misc":{"Ditulis oleh":"Benjamin anderson","Estimasi waktu membaca":"2 menit"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/","url":"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/","name":"VBA: Cara membuat daftar file dalam folder - Statologi","isPartOf":{"@id":"https:\/\/statorials.org\/id\/#website"},"datePublished":"2023-07-07T00:08:01+00:00","dateModified":"2023-07-07T00:08:01+00:00","author":{"@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81"},"description":"Tutorial ini menjelaskan cara membuat daftar file dalam folder menggunakan VBA, dengan beberapa contoh.","breadcrumb":{"@id":"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/#breadcrumb"},"inLanguage":"id","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/id\/vba-daftar-file-dalam-folder\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/statorials.org\/id\/"},{"@type":"ListItem","position":2,"name":"Vba: cara membuat daftar file dalam folder"}]},{"@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\/4873"}],"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=4873"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4873\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/media?parent=4873"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/categories?post=4873"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/tags?post=4873"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}