{"id":854,"date":"2013-02-11T18:48:46","date_gmt":"2013-02-11T10:48:46","guid":{"rendered":"https:\/\/umarzuki.org\/blogku\/?p=854"},"modified":"2013-02-11T18:48:46","modified_gmt":"2013-02-11T10:48:46","slug":"makro-excel-ubah-beberapa-worksheet-ke-fail-csv-berasingan","status":"publish","type":"post","link":"https:\/\/umarzuki.org\/blog\/2013\/02\/11\/makro-excel-ubah-beberapa-worksheet-ke-fail-csv-berasingan\/","title":{"rendered":"Makro Excel Ubah beberapa worksheet ke fail CSV berasingan"},"content":{"rendered":"<p>[code lang=&#8217;vb&#8217;]Option Explicit<br \/>\nSub mysaver()<br \/>\nDim counter As Integer<br \/>\ncounter = 1<br \/>\n&#8216; counter is for the number of sheets in the workbook<br \/>\nDo While counter <= Worksheets.Count\n' Worksheets.Count represents the total number of sheets in the workbook\nOn Error GoTo ErrorHandler\n' go to the nominated sheet\nWorksheets(counter).Activate\n' and save it. Simple...\nActiveSheet.SaveAs FileName:=ActiveSheet.Name, FileFormat:=xlCSV\ncounter = counter + 1\nLoop\nMsgBox \"All Sheets Saved.\", , \"Success\"\nExit Sub\n\nErrorHandler:\nMsgBox \"Error during save - Caution!\", vbCritical, \"Save Errors\"\nExit Sub\nEnd Sub[\/code]\n\n\n\n<ol>\n<li>Pada fail excel tekan Alt dan F11 serentak<\/li>\n<li>Pilih Insert -> Module<\/li>\n<li>Pindah kod diatas<\/li>\n<li>Tekan Alt dan Q untuk kembali ke fail excel<\/li>\n<li>Tekan Alt dan F8 dan klik Run<\/li>\n<\/ol>\n<p>Sumber: http:\/\/www.accountingweb.co.uk\/anyanswers\/macro-exporting-50-worksheets-csv-one-pass<\/p>\n","protected":false},"excerpt":{"rendered":"<p>[code lang=&#8217;vb&#8217;]Option Explicit Sub mysaver() Dim counter As Integer counter = 1 &#8216; counter is for the number of sheets in the workbook Do While counter<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[256,260],"tags":[255,257,258,259,261],"class_list":["post-854","post","type-post","status-publish","format-standard","hentry","category-excel","category-office","tag-csv","tag-excel","tag-makro","tag-multiple","tag-worksheet"],"_links":{"self":[{"href":"https:\/\/umarzuki.org\/blog\/wp-json\/wp\/v2\/posts\/854","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/umarzuki.org\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/umarzuki.org\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/umarzuki.org\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/umarzuki.org\/blog\/wp-json\/wp\/v2\/comments?post=854"}],"version-history":[{"count":0,"href":"https:\/\/umarzuki.org\/blog\/wp-json\/wp\/v2\/posts\/854\/revisions"}],"wp:attachment":[{"href":"https:\/\/umarzuki.org\/blog\/wp-json\/wp\/v2\/media?parent=854"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/umarzuki.org\/blog\/wp-json\/wp\/v2\/categories?post=854"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/umarzuki.org\/blog\/wp-json\/wp\/v2\/tags?post=854"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}