{"id":4469,"date":"2023-07-10T20:54:36","date_gmt":"2023-07-10T20:54:36","guid":{"rendered":"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/"},"modified":"2023-07-10T20:54:36","modified_gmt":"2023-07-10T20:54:36","slug":"vba-simpan-sebagai-csv","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/","title":{"rendered":"Vba: cara menyimpan spreadsheet sebagai file csv (dengan contoh)"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\">Anda bisa menggunakan sintaks berikut di VBA untuk menyimpan setiap lembar buku kerja ke file CSV:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">Sub<\/span> SaveCSV()\n\n<span style=\"color: #0000ff;\">Dim<\/span> Ws <span style=\"color: #0000ff;\">As<\/span> Worksheet\n<span style=\"color: #0000ff;\">Dim<\/span> SaveDir <span style=\"color: #0000ff;\">As<\/span> String\n\n<span style=\"color: #0000ff;\">Dim<\/span> CurrentWorkbook <span style=\"color: #0000ff;\">As<\/span> String\n<span style=\"color: #0000ff;\">Dim<\/span> CurrentFormat <span style=\"color: #0000ff;\">As<\/span> Long\n\nCurrentWorkbook = ThisWorkbook.FullName\nCurrentFormat = ThisWorkbook.FileFormat\n\n<span style=\"color: #008000;\">'specify directory to save CSV files in\n<\/span>SaveDir = \" <span style=\"color: #ff0000;\">C:\\Users\\bobbi\\OneDrive\\Desktop\\<\/span> \"\n\n<span style=\"color: #008000;\">'save each sheet to individual CSV file\n<\/span><span style=\"color: #0000ff;\">For Each<\/span> Ws <span style=\"color: #0000ff;\">In<\/span> Application.ActiveWorkbook.Worksheets\n    Ws.SaveAs SaveDir &amp; Ws.Name, xlCSV\n<span style=\"color: #0000ff;\">Next<\/span>\n\nApplication.DisplayAlerts = False\nThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat\nApplication.DisplayAlerts = True\n\n<span style=\"color: #0000ff;\">End Sub\n<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Makro khusus ini akan menyimpan setiap lembar buku kerja yang sedang aktif ke file CSV.<\/span><\/p>\n<p> <span style=\"color: #000000;\">File CSV akan disimpan di jalur yang ditentukan dalam variabel <strong>SaveDir<\/strong> .<\/span><\/p>\n<p> <span style=\"color: #000000;\"><strong>Catatan<\/strong> : Baris <strong>Application.DisplayAlerts=False<\/strong> memberitahu VBA untuk menonaktifkan sementara semua peringatan tampilan di Excel saat menyimpan file.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Contoh: Simpan Spreadsheet sebagai File CSV Menggunakan VBA<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Misalkan kita memiliki buku kerja Excel dengan dua lembar.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Lembar pertama disebut <strong>player_stats<\/strong> dan berisi statistik tentang pemain bola basket yang berbeda:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-34980 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/economiseur1.png\" alt=\"\" width=\"474\" height=\"405\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Lembar kedua disebut <strong>team_info<\/strong> dan berisi informasi tentang berbagai tim bola basket:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-34981 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/economiseur2.png\" alt=\"\" width=\"475\" height=\"402\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Katakanlah kita ingin menyimpan masing-masing sheet ini sebagai file CSV individual di desktop komputer kita.<\/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> SaveCSV()\n\n<span style=\"color: #0000ff;\">Dim<\/span> Ws <span style=\"color: #0000ff;\">As<\/span> Worksheet\n<span style=\"color: #0000ff;\">Dim<\/span> SaveDir <span style=\"color: #0000ff;\">As<\/span> String\n\n<span style=\"color: #0000ff;\">Dim<\/span> CurrentWorkbook <span style=\"color: #0000ff;\">As<\/span> String\n<span style=\"color: #0000ff;\">Dim<\/span> CurrentFormat <span style=\"color: #0000ff;\">As<\/span> Long\n\nCurrentWorkbook = ThisWorkbook.FullName\nCurrentFormat = ThisWorkbook.FileFormat\n\n<span style=\"color: #008000;\">'specify directory to save CSV files in\n<\/span>SaveDir = \" <span style=\"color: #ff0000;\">C:\\Users\\bobbi\\OneDrive\\Desktop\\<\/span> \"\n\n<span style=\"color: #008000;\">'save each sheet to individual CSV file\n<\/span><span style=\"color: #0000ff;\">For Each<\/span> Ws <span style=\"color: #0000ff;\">In<\/span> Application.ActiveWorkbook.Worksheets\n    Ws.SaveAs SaveDir &amp; Ws.Name, xlCSV\n<span style=\"color: #0000ff;\">Next<\/span>\n\nApplication.DisplayAlerts = False\nThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat\nApplication.DisplayAlerts = True\n\n<span style=\"color: #0000ff;\">End Sub<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Setelah makro ini dijalankan, setiap lembar akan disimpan sebagai file CSV di desktop kita.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Jika saya menavigasi ke desktop komputer, saya dapat melihat masing-masing file CSV berikut dengan nama file yang cocok dengan nama sheet:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-34982 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/economiseur3.png\" alt=\"\" width=\"573\" height=\"457\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Jika saya membuka file CSV <strong>player_stats<\/strong> menggunakan Notepad, saya dapat melihat bahwa nilai dalam file Excel disimpan sebagai nilai yang dipisahkan koma:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-34983 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/economiseur4.png\" alt=\"\" width=\"423\" height=\"444\" srcset=\"\" sizes=\"\"><\/p>\n<p> <span style=\"color: #000000;\">Perhatikan bahwa dalam contoh ini kami dapat menyimpan dua lembar ke buku kerja kami sebagai file CSV individual, namun makro yang sama ini akan berfungsi dengan jumlah lembar berapa pun.<\/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> <a href=\"https:\/\/statorials.org\/id\/vba-menghitung-jumlah-lembar\/\" target=\"_blank\" rel=\"noopener\">VBA: Cara menghitung jumlah lembar dalam buku kerja<\/a><br \/> VBA: Cara mengekstrak data dari buku kerja lain<br \/> <a href=\"https:\/\/statorials.org\/id\/vba-menambahkan-lembar\/\" target=\"_blank\" rel=\"noopener\">VBA: Bagaimana cara menambahkan sheet baru<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Anda bisa menggunakan sintaks berikut di VBA untuk menyimpan setiap lembar buku kerja ke file CSV: Sub SaveCSV() Dim Ws As Worksheet Dim SaveDir As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat &#8216;specify directory to save CSV files in SaveDir = &#8221; C:\\Users\\bobbi\\OneDrive\\Desktop\\ &#8221; &#8216;save each sheet [&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 menyimpan sheet sebagai file CSV (dengan contoh) - Statorials<\/title>\n<meta name=\"description\" content=\"Tutorial ini menjelaskan cara menyimpan lembar Excel sebagai file CSV, beserta contohnya.\" \/>\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-simpan-sebagai-csv\/\" \/>\n<meta property=\"og:locale\" content=\"id_ID\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA: Cara menyimpan sheet sebagai file CSV (dengan contoh) - Statorials\" \/>\n<meta property=\"og:description\" content=\"Tutorial ini menjelaskan cara menyimpan lembar Excel sebagai file CSV, beserta contohnya.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-10T20:54:36+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/economiseur1.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-simpan-sebagai-csv\/\",\"url\":\"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/\",\"name\":\"VBA: Cara menyimpan sheet sebagai file CSV (dengan contoh) - Statorials\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/id\/#website\"},\"datePublished\":\"2023-07-10T20:54:36+00:00\",\"dateModified\":\"2023-07-10T20:54:36+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81\"},\"description\":\"Tutorial ini menjelaskan cara menyimpan lembar Excel sebagai file CSV, beserta contohnya.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/#breadcrumb\"},\"inLanguage\":\"id\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/statorials.org\/id\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Vba: cara menyimpan spreadsheet sebagai file csv (dengan contoh)\"}]},{\"@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 menyimpan sheet sebagai file CSV (dengan contoh) - Statorials","description":"Tutorial ini menjelaskan cara menyimpan lembar Excel sebagai file CSV, beserta contohnya.","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-simpan-sebagai-csv\/","og_locale":"id_ID","og_type":"article","og_title":"VBA: Cara menyimpan sheet sebagai file CSV (dengan contoh) - Statorials","og_description":"Tutorial ini menjelaskan cara menyimpan lembar Excel sebagai file CSV, beserta contohnya.","og_url":"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/","og_site_name":"Statorials","article_published_time":"2023-07-10T20:54:36+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/economiseur1.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-simpan-sebagai-csv\/","url":"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/","name":"VBA: Cara menyimpan sheet sebagai file CSV (dengan contoh) - Statorials","isPartOf":{"@id":"https:\/\/statorials.org\/id\/#website"},"datePublished":"2023-07-10T20:54:36+00:00","dateModified":"2023-07-10T20:54:36+00:00","author":{"@id":"https:\/\/statorials.org\/id\/#\/schema\/person\/3d17a1160dd2d052b7c78e502cb9ec81"},"description":"Tutorial ini menjelaskan cara menyimpan lembar Excel sebagai file CSV, beserta contohnya.","breadcrumb":{"@id":"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/#breadcrumb"},"inLanguage":"id","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/id\/vba-simpan-sebagai-csv\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/statorials.org\/id\/"},{"@type":"ListItem","position":2,"name":"Vba: cara menyimpan spreadsheet sebagai file csv (dengan contoh)"}]},{"@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\/4469"}],"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=4469"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/posts\/4469\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/media?parent=4469"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/categories?post=4469"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/id\/wp-json\/wp\/v2\/tags?post=4469"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}