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 [email protected] [belajar-excel]<[email protected]> 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 [email protected] [belajar-excel] <[email protected]> wrote: Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja. ----- Forwarded Message -----From: hendrik karnadi [email protected] [belajar-excel] <[email protected]>To: BeExcel <[email protected]>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 #yiv6004982626 #yiv6004982626 -- #yiv6004982626ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6004982626 #yiv6004982626ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626ads {margin-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad {padding:0 0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad p {margin:0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad a {color:#0000ff;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc {font-family:Arial;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc #yiv6004982626hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc .yiv6004982626ad {margin-bottom:10px;padding:0 0;}#yiv6004982626 #yiv6004982626actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6004982626 #yiv6004982626activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6004982626 #yiv6004982626activity span {font-weight:700;}#yiv6004982626 #yiv6004982626activity span:first-child {text-transform:uppercase;}#yiv6004982626 #yiv6004982626activity span a {color:#5085b6;text-decoration:none;}#yiv6004982626 #yiv6004982626activity span span {color:#ff7900;}#yiv6004982626 #yiv6004982626activity span .yiv6004982626underline {text-decoration:underline;}#yiv6004982626 .yiv6004982626attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6004982626 .yiv6004982626attach div a {text-decoration:none;}#yiv6004982626 .yiv6004982626attach img {border:none;padding-right:5px;}#yiv6004982626 .yiv6004982626attach label {display:block;margin-bottom:5px;}#yiv6004982626 .yiv6004982626attach label a {text-decoration:none;}#yiv6004982626 blockquote {margin:0 0 0 4px;}#yiv6004982626 .yiv6004982626bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6004982626 .yiv6004982626bold a {text-decoration:none;}#yiv6004982626 dd.yiv6004982626last p a {font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span.yiv6004982626yshortcuts {margin-right:0;}#yiv6004982626 div.yiv6004982626attach-table div div a {text-decoration:none;}#yiv6004982626 div.yiv6004982626attach-table {width:400px;}#yiv6004982626 div.yiv6004982626file-title a, #yiv6004982626 div.yiv6004982626file-title a:active, #yiv6004982626 div.yiv6004982626file-title a:hover, #yiv6004982626 div.yiv6004982626file-title a:visited {text-decoration:none;}#yiv6004982626 div.yiv6004982626photo-title a, #yiv6004982626 div.yiv6004982626photo-title a:active, #yiv6004982626 div.yiv6004982626photo-title a:hover, #yiv6004982626 div.yiv6004982626photo-title a:visited {text-decoration:none;}#yiv6004982626 div#yiv6004982626ygrp-mlmsg #yiv6004982626ygrp-msg p a span.yiv6004982626yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6004982626 .yiv6004982626green {color:#628c2a;}#yiv6004982626 .yiv6004982626MsoNormal {margin:0 0 0 0;}#yiv6004982626 o {font-size:0;}#yiv6004982626 #yiv6004982626photos div {float:left;width:72px;}#yiv6004982626 #yiv6004982626photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6004982626 #yiv6004982626photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6004982626 #yiv6004982626reco-category {font-size:77%;}#yiv6004982626 #yiv6004982626reco-desc {font-size:77%;}#yiv6004982626 .yiv6004982626replbq {margin:4px;}#yiv6004982626 #yiv6004982626ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6004982626 #yiv6004982626ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6004982626 #yiv6004982626ygrp-mlmsg select, #yiv6004982626 input, #yiv6004982626 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg pre, #yiv6004982626 code {font:115% monospace;}#yiv6004982626 #yiv6004982626ygrp-mlmsg * {line-height:1.22em;}#yiv6004982626 #yiv6004982626ygrp-mlmsg #yiv6004982626logo {padding-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-msg p a {font-family:Verdana;}#yiv6004982626 #yiv6004982626ygrp-msg p#yiv6004982626attach-count span {color:#1E66AE;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco #yiv6004982626reco-head {color:#ff7900;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li a {font-size:130%;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov ul {margin:0;padding:0 0 0 8px;}#yiv6004982626 #yiv6004982626ygrp-text {font-family:Georgia;}#yiv6004982626 #yiv6004982626ygrp-text p {margin:0 0 1em 0;}#yiv6004982626 #yiv6004982626ygrp-text tt {font-size:120%;}#yiv6004982626 #yiv6004982626ygrp-vital ul li:last-child {border-right:none !important;}#yiv6004982626 On Thu, Jul 27, 2017 at 17:21, Odhy [email protected] [belajar-excel]<[email protected]> 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 [email protected] [belajar-excel] <[email protected]> wrote: Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja. ----- Forwarded Message -----From: hendrik karnadi [email protected] [belajar-excel] <[email protected]>To: BeExcel <[email protected]>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 #yiv6004982626 #yiv6004982626 -- #yiv6004982626ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6004982626 #yiv6004982626ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626ads {margin-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad {padding:0 0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad p {margin:0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad a {color:#0000ff;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc {font-family:Arial;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc #yiv6004982626hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc .yiv6004982626ad {margin-bottom:10px;padding:0 0;}#yiv6004982626 #yiv6004982626actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6004982626 #yiv6004982626activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6004982626 #yiv6004982626activity span {font-weight:700;}#yiv6004982626 #yiv6004982626activity span:first-child {text-transform:uppercase;}#yiv6004982626 #yiv6004982626activity span a {color:#5085b6;text-decoration:none;}#yiv6004982626 #yiv6004982626activity span span {color:#ff7900;}#yiv6004982626 #yiv6004982626activity span .yiv6004982626underline {text-decoration:underline;}#yiv6004982626 .yiv6004982626attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6004982626 .yiv6004982626attach div a {text-decoration:none;}#yiv6004982626 .yiv6004982626attach img {border:none;padding-right:5px;}#yiv6004982626 .yiv6004982626attach label {display:block;margin-bottom:5px;}#yiv6004982626 .yiv6004982626attach label a {text-decoration:none;}#yiv6004982626 blockquote {margin:0 0 0 4px;}#yiv6004982626 .yiv6004982626bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6004982626 .yiv6004982626bold a {text-decoration:none;}#yiv6004982626 dd.yiv6004982626last p a {font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span.yiv6004982626yshortcuts {margin-right:0;}#yiv6004982626 div.yiv6004982626attach-table div div a {text-decoration:none;}#yiv6004982626 div.yiv6004982626attach-table {width:400px;}#yiv6004982626 div.yiv6004982626file-title a, #yiv6004982626 div.yiv6004982626file-title a:active, #yiv6004982626 div.yiv6004982626file-title a:hover, #yiv6004982626 div.yiv6004982626file-title a:visited {text-decoration:none;}#yiv6004982626 div.yiv6004982626photo-title a, #yiv6004982626 div.yiv6004982626photo-title a:active, #yiv6004982626 div.yiv6004982626photo-title a:hover, #yiv6004982626 div.yiv6004982626photo-title a:visited {text-decoration:none;}#yiv6004982626 div#yiv6004982626ygrp-mlmsg #yiv6004982626ygrp-msg p a span.yiv6004982626yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6004982626 .yiv6004982626green {color:#628c2a;}#yiv6004982626 .yiv6004982626MsoNormal {margin:0 0 0 0;}#yiv6004982626 o {font-size:0;}#yiv6004982626 #yiv6004982626photos div {float:left;width:72px;}#yiv6004982626 #yiv6004982626photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6004982626 #yiv6004982626photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6004982626 #yiv6004982626reco-category {font-size:77%;}#yiv6004982626 #yiv6004982626reco-desc {font-size:77%;}#yiv6004982626 .yiv6004982626replbq {margin:4px;}#yiv6004982626 #yiv6004982626ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6004982626 #yiv6004982626ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6004982626 #yiv6004982626ygrp-mlmsg select, #yiv6004982626 input, #yiv6004982626 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg pre, #yiv6004982626 code {font:115% monospace;}#yiv6004982626 #yiv6004982626ygrp-mlmsg * {line-height:1.22em;}#yiv6004982626 #yiv6004982626ygrp-mlmsg #yiv6004982626logo {padding-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-msg p a {font-family:Verdana;}#yiv6004982626 #yiv6004982626ygrp-msg p#yiv6004982626attach-count span {color:#1E66AE;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco #yiv6004982626reco-head {color:#ff7900;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li a {font-size:130%;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov ul {margin:0;padding:0 0 0 8px;}#yiv6004982626 #yiv6004982626ygrp-text {font-family:Georgia;}#yiv6004982626 #yiv6004982626ygrp-text p {margin:0 0 1em 0;}#yiv6004982626 #yiv6004982626ygrp-text tt {font-size:120%;}#yiv6004982626 #yiv6004982626ygrp-vital ul li:last-child {border-right:none !important;}#yiv6004982626
