Dear Mr. Hendrik,Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev setelah saya tekan tombol datanya masing kosong.
Terima Kasih atas pencerahannya, Odhy. On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote: Hai Odhy, .zip filenya harus diextract dulu ke salah satu Dir, mis.D: Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file. Silakan dicoba lagi. Salam,HK Sent from Yahoo Mail on Android On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assas...@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote: Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini : Set objFs = CreateObject("Scripting.FileSystemObject") Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES Terima Kasih atas pencerahannya, Odhy. On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote: Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja. ----- Forwarded Message -----From: hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment] Dear Be-Excel, Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D: Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut : - Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja. Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya). Selamat mencoba dan silakan dikembangkan lebih lanjut. Salam,HK On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assas...@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote: Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini : Set objFs = CreateObject("Scripting.FileSystemObject") Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES Terima Kasih atas pencerahannya, Odhy. On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote: Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja. ----- Forwarded Message -----From: hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment] Dear Be-Excel, Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D: Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut : - Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja. Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya). Selamat mencoba dan silakan dikembangkan lebih lanjut. Salam,HK #yiv3658414797 #yiv3658414797 -- #yiv3658414797ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3658414797 #yiv3658414797ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3658414797 #yiv3658414797ygrp-mkp #yiv3658414797hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3658414797 #yiv3658414797ygrp-mkp #yiv3658414797ads {margin-bottom:10px;}#yiv3658414797 #yiv3658414797ygrp-mkp .yiv3658414797ad {padding:0 0;}#yiv3658414797 #yiv3658414797ygrp-mkp .yiv3658414797ad p {margin:0;}#yiv3658414797 #yiv3658414797ygrp-mkp .yiv3658414797ad a {color:#0000ff;text-decoration:none;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ygrp-lc {font-family:Arial;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ygrp-lc #yiv3658414797hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ygrp-lc .yiv3658414797ad {margin-bottom:10px;padding:0 0;}#yiv3658414797 #yiv3658414797actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3658414797 #yiv3658414797activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3658414797 #yiv3658414797activity span {font-weight:700;}#yiv3658414797 #yiv3658414797activity span:first-child {text-transform:uppercase;}#yiv3658414797 #yiv3658414797activity span a {color:#5085b6;text-decoration:none;}#yiv3658414797 #yiv3658414797activity span span {color:#ff7900;}#yiv3658414797 #yiv3658414797activity span .yiv3658414797underline {text-decoration:underline;}#yiv3658414797 .yiv3658414797attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3658414797 .yiv3658414797attach div a {text-decoration:none;}#yiv3658414797 .yiv3658414797attach img {border:none;padding-right:5px;}#yiv3658414797 .yiv3658414797attach label {display:block;margin-bottom:5px;}#yiv3658414797 .yiv3658414797attach label a {text-decoration:none;}#yiv3658414797 blockquote {margin:0 0 0 4px;}#yiv3658414797 .yiv3658414797bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3658414797 .yiv3658414797bold a {text-decoration:none;}#yiv3658414797 dd.yiv3658414797last p a {font-family:Verdana;font-weight:700;}#yiv3658414797 dd.yiv3658414797last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3658414797 dd.yiv3658414797last p span.yiv3658414797yshortcuts {margin-right:0;}#yiv3658414797 div.yiv3658414797attach-table div div a {text-decoration:none;}#yiv3658414797 div.yiv3658414797attach-table {width:400px;}#yiv3658414797 div.yiv3658414797file-title a, #yiv3658414797 div.yiv3658414797file-title a:active, #yiv3658414797 div.yiv3658414797file-title a:hover, #yiv3658414797 div.yiv3658414797file-title a:visited {text-decoration:none;}#yiv3658414797 div.yiv3658414797photo-title a, #yiv3658414797 div.yiv3658414797photo-title a:active, #yiv3658414797 div.yiv3658414797photo-title a:hover, #yiv3658414797 div.yiv3658414797photo-title a:visited {text-decoration:none;}#yiv3658414797 div#yiv3658414797ygrp-mlmsg #yiv3658414797ygrp-msg p a span.yiv3658414797yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3658414797 .yiv3658414797green {color:#628c2a;}#yiv3658414797 .yiv3658414797MsoNormal {margin:0 0 0 0;}#yiv3658414797 o {font-size:0;}#yiv3658414797 #yiv3658414797photos div {float:left;width:72px;}#yiv3658414797 #yiv3658414797photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv3658414797 #yiv3658414797photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3658414797 #yiv3658414797reco-category {font-size:77%;}#yiv3658414797 #yiv3658414797reco-desc {font-size:77%;}#yiv3658414797 .yiv3658414797replbq {margin:4px;}#yiv3658414797 #yiv3658414797ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3658414797 #yiv3658414797ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3658414797 #yiv3658414797ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3658414797 #yiv3658414797ygrp-mlmsg select, #yiv3658414797 input, #yiv3658414797 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3658414797 #yiv3658414797ygrp-mlmsg pre, #yiv3658414797 code {font:115% monospace;}#yiv3658414797 #yiv3658414797ygrp-mlmsg * {line-height:1.22em;}#yiv3658414797 #yiv3658414797ygrp-mlmsg #yiv3658414797logo {padding-bottom:10px;}#yiv3658414797 #yiv3658414797ygrp-msg p a {font-family:Verdana;}#yiv3658414797 #yiv3658414797ygrp-msg p#yiv3658414797attach-count span {color:#1E66AE;font-weight:700;}#yiv3658414797 #yiv3658414797ygrp-reco #yiv3658414797reco-head {color:#ff7900;font-weight:700;}#yiv3658414797 #yiv3658414797ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ov li a {font-size:130%;text-decoration:none;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ov ul {margin:0;padding:0 0 0 8px;}#yiv3658414797 #yiv3658414797ygrp-text {font-family:Georgia;}#yiv3658414797 #yiv3658414797ygrp-text p {margin:0 0 1em 0;}#yiv3658414797 #yiv3658414797ygrp-text tt {font-size:120%;}#yiv3658414797 #yiv3658414797ygrp-vital ul li:last-child {border-right:none !important;}#yiv3658414797