Hai Odhy, Nama File di Sheet2 Range("A1") sdh sesuai dengan nama file gabungannya (dalam contoh saya namanya "Master") ? Salam,Hk
Sent from Yahoo Mail on Android On Fri, Jul 28, 2017 at 21:17, Odhy odhyz83_assas...@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote: 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 #yiv9025404201 #yiv9025404201 -- #yiv9025404201ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9025404201 #yiv9025404201ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9025404201 #yiv9025404201ygrp-mkp #yiv9025404201hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9025404201 #yiv9025404201ygrp-mkp #yiv9025404201ads {margin-bottom:10px;}#yiv9025404201 #yiv9025404201ygrp-mkp .yiv9025404201ad {padding:0 0;}#yiv9025404201 #yiv9025404201ygrp-mkp .yiv9025404201ad p {margin:0;}#yiv9025404201 #yiv9025404201ygrp-mkp .yiv9025404201ad a {color:#0000ff;text-decoration:none;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ygrp-lc {font-family:Arial;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ygrp-lc #yiv9025404201hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ygrp-lc .yiv9025404201ad {margin-bottom:10px;padding:0 0;}#yiv9025404201 #yiv9025404201actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9025404201 #yiv9025404201activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9025404201 #yiv9025404201activity span {font-weight:700;}#yiv9025404201 #yiv9025404201activity span:first-child {text-transform:uppercase;}#yiv9025404201 #yiv9025404201activity span a {color:#5085b6;text-decoration:none;}#yiv9025404201 #yiv9025404201activity span span {color:#ff7900;}#yiv9025404201 #yiv9025404201activity span .yiv9025404201underline {text-decoration:underline;}#yiv9025404201 .yiv9025404201attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9025404201 .yiv9025404201attach div a {text-decoration:none;}#yiv9025404201 .yiv9025404201attach img {border:none;padding-right:5px;}#yiv9025404201 .yiv9025404201attach label {display:block;margin-bottom:5px;}#yiv9025404201 .yiv9025404201attach label a {text-decoration:none;}#yiv9025404201 blockquote {margin:0 0 0 4px;}#yiv9025404201 .yiv9025404201bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9025404201 .yiv9025404201bold a {text-decoration:none;}#yiv9025404201 dd.yiv9025404201last p a {font-family:Verdana;font-weight:700;}#yiv9025404201 dd.yiv9025404201last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9025404201 dd.yiv9025404201last p span.yiv9025404201yshortcuts {margin-right:0;}#yiv9025404201 div.yiv9025404201attach-table div div a {text-decoration:none;}#yiv9025404201 div.yiv9025404201attach-table {width:400px;}#yiv9025404201 div.yiv9025404201file-title a, #yiv9025404201 div.yiv9025404201file-title a:active, #yiv9025404201 div.yiv9025404201file-title a:hover, #yiv9025404201 div.yiv9025404201file-title a:visited {text-decoration:none;}#yiv9025404201 div.yiv9025404201photo-title a, #yiv9025404201 div.yiv9025404201photo-title a:active, #yiv9025404201 div.yiv9025404201photo-title a:hover, #yiv9025404201 div.yiv9025404201photo-title a:visited {text-decoration:none;}#yiv9025404201 div#yiv9025404201ygrp-mlmsg #yiv9025404201ygrp-msg p a span.yiv9025404201yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9025404201 .yiv9025404201green {color:#628c2a;}#yiv9025404201 .yiv9025404201MsoNormal {margin:0 0 0 0;}#yiv9025404201 o {font-size:0;}#yiv9025404201 #yiv9025404201photos div {float:left;width:72px;}#yiv9025404201 #yiv9025404201photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9025404201 #yiv9025404201photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9025404201 #yiv9025404201reco-category {font-size:77%;}#yiv9025404201 #yiv9025404201reco-desc {font-size:77%;}#yiv9025404201 .yiv9025404201replbq {margin:4px;}#yiv9025404201 #yiv9025404201ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9025404201 #yiv9025404201ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9025404201 #yiv9025404201ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9025404201 #yiv9025404201ygrp-mlmsg select, #yiv9025404201 input, #yiv9025404201 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9025404201 #yiv9025404201ygrp-mlmsg pre, #yiv9025404201 code {font:115% monospace;}#yiv9025404201 #yiv9025404201ygrp-mlmsg * {line-height:1.22em;}#yiv9025404201 #yiv9025404201ygrp-mlmsg #yiv9025404201logo {padding-bottom:10px;}#yiv9025404201 #yiv9025404201ygrp-msg p a {font-family:Verdana;}#yiv9025404201 #yiv9025404201ygrp-msg p#yiv9025404201attach-count span {color:#1E66AE;font-weight:700;}#yiv9025404201 #yiv9025404201ygrp-reco #yiv9025404201reco-head {color:#ff7900;font-weight:700;}#yiv9025404201 #yiv9025404201ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ov li a {font-size:130%;text-decoration:none;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ov ul {margin:0;padding:0 0 0 8px;}#yiv9025404201 #yiv9025404201ygrp-text {font-family:Georgia;}#yiv9025404201 #yiv9025404201ygrp-text p {margin:0 0 1em 0;}#yiv9025404201 #yiv9025404201ygrp-text tt {font-size:120%;}#yiv9025404201 #yiv9025404201ygrp-vital ul li:last-child {border-right:none !important;}#yiv9025404201