[belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]

classic Classic list List threaded Threaded
16 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]

Milis Belajar Excel mailing list
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


=?UTF-8?b?Q29tYmluZVRlc3RSZXYucmFy?= (51K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]

Milis Belajar Excel mailing list
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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

 

CombineTestRev.rar (51K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
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 [hidden email] [belajar-excel] <[hidden email]> wrote:


 


Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.


----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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


    #yiv2318151273 #yiv2318151273 -- #yiv2318151273ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2318151273 #yiv2318151273ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2318151273 #yiv2318151273ygrp-mkp #yiv2318151273hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2318151273 #yiv2318151273ygrp-mkp #yiv2318151273ads {margin-bottom:10px;}#yiv2318151273 #yiv2318151273ygrp-mkp .yiv2318151273ad {padding:0 0;}#yiv2318151273 #yiv2318151273ygrp-mkp .yiv2318151273ad p {margin:0;}#yiv2318151273 #yiv2318151273ygrp-mkp .yiv2318151273ad a {color:#0000ff;text-decoration:none;}#yiv2318151273 #yiv2318151273ygrp-sponsor #yiv2318151273ygrp-lc {font-family:Arial;}#yiv2318151273 #yiv2318151273ygrp-sponsor #yiv2318151273ygrp-lc #yiv2318151273hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2318151273 #yiv2318151273ygrp-sponsor #yiv2318151273ygrp-lc .yiv2318151273ad {margin-bottom:10px;padding:0 0;}#yiv2318151273 #yiv2318151273actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2318151273 #yiv2318151273activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2318151273 #yiv2318151273activity span {font-weight:700;}#yiv2318151273 #yiv2318151273activity span:first-child {text-transform:uppercase;}#yiv2318151273 #yiv2318151273activity span a {color:#5085b6;text-decoration:none;}#yiv2318151273 #yiv2318151273activity span span {color:#ff7900;}#yiv2318151273 #yiv2318151273activity span .yiv2318151273underline {text-decoration:underline;}#yiv2318151273 .yiv2318151273attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2318151273 .yiv2318151273attach div a {text-decoration:none;}#yiv2318151273 .yiv2318151273attach img {border:none;padding-right:5px;}#yiv2318151273 .yiv2318151273attach label {display:block;margin-bottom:5px;}#yiv2318151273 .yiv2318151273attach label a {text-decoration:none;}#yiv2318151273 blockquote {margin:0 0 0 4px;}#yiv2318151273 .yiv2318151273bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2318151273 .yiv2318151273bold a {text-decoration:none;}#yiv2318151273 dd.yiv2318151273last p a {font-family:Verdana;font-weight:700;}#yiv2318151273 dd.yiv2318151273last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2318151273 dd.yiv2318151273last p span.yiv2318151273yshortcuts {margin-right:0;}#yiv2318151273 div.yiv2318151273attach-table div div a {text-decoration:none;}#yiv2318151273 div.yiv2318151273attach-table {width:400px;}#yiv2318151273 div.yiv2318151273file-title a, #yiv2318151273 div.yiv2318151273file-title a:active, #yiv2318151273 div.yiv2318151273file-title a:hover, #yiv2318151273 div.yiv2318151273file-title a:visited {text-decoration:none;}#yiv2318151273 div.yiv2318151273photo-title a, #yiv2318151273 div.yiv2318151273photo-title a:active, #yiv2318151273 div.yiv2318151273photo-title a:hover, #yiv2318151273 div.yiv2318151273photo-title a:visited {text-decoration:none;}#yiv2318151273 div#yiv2318151273ygrp-mlmsg #yiv2318151273ygrp-msg p a span.yiv2318151273yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2318151273 .yiv2318151273green {color:#628c2a;}#yiv2318151273 .yiv2318151273MsoNormal {margin:0 0 0 0;}#yiv2318151273 o {font-size:0;}#yiv2318151273 #yiv2318151273photos div {float:left;width:72px;}#yiv2318151273 #yiv2318151273photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv2318151273 #yiv2318151273photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2318151273 #yiv2318151273reco-category {font-size:77%;}#yiv2318151273 #yiv2318151273reco-desc {font-size:77%;}#yiv2318151273 .yiv2318151273replbq {margin:4px;}#yiv2318151273 #yiv2318151273ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2318151273 #yiv2318151273ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2318151273 #yiv2318151273ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2318151273 #yiv2318151273ygrp-mlmsg select, #yiv2318151273 input, #yiv2318151273 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2318151273 #yiv2318151273ygrp-mlmsg pre, #yiv2318151273 code {font:115% monospace;}#yiv2318151273 #yiv2318151273ygrp-mlmsg * {line-height:1.22em;}#yiv2318151273 #yiv2318151273ygrp-mlmsg #yiv2318151273logo {padding-bottom:10px;}#yiv2318151273 #yiv2318151273ygrp-msg p a {font-family:Verdana;}#yiv2318151273 #yiv2318151273ygrp-msg p#yiv2318151273attach-count span {color:#1E66AE;font-weight:700;}#yiv2318151273 #yiv2318151273ygrp-reco #yiv2318151273reco-head {color:#ff7900;font-weight:700;}#yiv2318151273 #yiv2318151273ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2318151273 #yiv2318151273ygrp-sponsor #yiv2318151273ov li a {font-size:130%;text-decoration:none;}#yiv2318151273 #yiv2318151273ygrp-sponsor #yiv2318151273ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2318151273 #yiv2318151273ygrp-sponsor #yiv2318151273ov ul {margin:0;padding:0 0 0 8px;}#yiv2318151273 #yiv2318151273ygrp-text {font-family:Georgia;}#yiv2318151273 #yiv2318151273ygrp-text p {margin:0 0 1em 0;}#yiv2318151273 #yiv2318151273ygrp-text tt {font-size:120%;}#yiv2318151273 #yiv2318151273ygrp-vital ul li:last-child {border-right:none !important;}#yiv2318151273
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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  
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
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 [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

 

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

 

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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  
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
Dear Mr HK,
Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..

Dikirim dari iPhone saya

Pada 28 Jul 2017, pukul 23.02, hendrik karnadi [hidden email] [belajar-excel] <[hidden email]> menulis:

> 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 [hidden email] [belajar-excel]
> <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel]
> <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:
>
>
>
> Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
>
>
> ----- Forwarded Message -----
> From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>
> To: BeExcel <[hidden email]>
> Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7
> Subject: [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 [hidden email] [belajar-excel]
> <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:
>
>
>  
> Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
>
>
> ----- Forwarded Message -----
> From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>
> To: BeExcel <[hidden email]>
> Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7
> Subject: [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
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
Dear Odhy,Coba kirim .zip dummy filenya.
Salam,HK

Sent from Yahoo Mail on Android
 
  On Fri, Jul 28, 2017 at 23:43, rodhy hakim [hidden email] [belajar-excel]<[hidden email]> wrote:      

Dear Mr HK, Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..

Dikirim dari iPhone saya
Pada 28 Jul 2017, pukul 23.02, hendrik karnadi [hidden email] [belajar-excel] <[hidden email]> menulis:


    

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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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

       
     


 
  #yiv7480228092 #yiv7480228092 -- #yiv7480228092ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7480228092 #yiv7480228092ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092ads {margin-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad {padding:0 0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad p {margin:0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad a {color:#0000ff;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc {font-family:Arial;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc #yiv7480228092hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc .yiv7480228092ad {margin-bottom:10px;padding:0 0;}#yiv7480228092 #yiv7480228092actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7480228092 #yiv7480228092activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7480228092 #yiv7480228092activity span {font-weight:700;}#yiv7480228092 #yiv7480228092activity span:first-child {text-transform:uppercase;}#yiv7480228092 #yiv7480228092activity span a {color:#5085b6;text-decoration:none;}#yiv7480228092 #yiv7480228092activity span span {color:#ff7900;}#yiv7480228092 #yiv7480228092activity span .yiv7480228092underline {text-decoration:underline;}#yiv7480228092 .yiv7480228092attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7480228092 .yiv7480228092attach div a {text-decoration:none;}#yiv7480228092 .yiv7480228092attach img {border:none;padding-right:5px;}#yiv7480228092 .yiv7480228092attach label {display:block;margin-bottom:5px;}#yiv7480228092 .yiv7480228092attach label a {text-decoration:none;}#yiv7480228092 blockquote {margin:0 0 0 4px;}#yiv7480228092 .yiv7480228092bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7480228092 .yiv7480228092bold a {text-decoration:none;}#yiv7480228092 dd.yiv7480228092last p a {font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span.yiv7480228092yshortcuts {margin-right:0;}#yiv7480228092 div.yiv7480228092attach-table div div a {text-decoration:none;}#yiv7480228092 div.yiv7480228092attach-table {width:400px;}#yiv7480228092 div.yiv7480228092file-title a, #yiv7480228092 div.yiv7480228092file-title a:active, #yiv7480228092 div.yiv7480228092file-title a:hover, #yiv7480228092 div.yiv7480228092file-title a:visited {text-decoration:none;}#yiv7480228092 div.yiv7480228092photo-title a, #yiv7480228092 div.yiv7480228092photo-title a:active, #yiv7480228092 div.yiv7480228092photo-title a:hover, #yiv7480228092 div.yiv7480228092photo-title a:visited {text-decoration:none;}#yiv7480228092 div#yiv7480228092ygrp-mlmsg #yiv7480228092ygrp-msg p a span.yiv7480228092yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7480228092 .yiv7480228092green {color:#628c2a;}#yiv7480228092 .yiv7480228092MsoNormal {margin:0 0 0 0;}#yiv7480228092 o {font-size:0;}#yiv7480228092 #yiv7480228092photos div {float:left;width:72px;}#yiv7480228092 #yiv7480228092photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7480228092 #yiv7480228092photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7480228092 #yiv7480228092reco-category {font-size:77%;}#yiv7480228092 #yiv7480228092reco-desc {font-size:77%;}#yiv7480228092 .yiv7480228092replbq {margin:4px;}#yiv7480228092 #yiv7480228092ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7480228092 #yiv7480228092ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7480228092 #yiv7480228092ygrp-mlmsg select, #yiv7480228092 input, #yiv7480228092 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg pre, #yiv7480228092 code {font:115% monospace;}#yiv7480228092 #yiv7480228092ygrp-mlmsg * {line-height:1.22em;}#yiv7480228092 #yiv7480228092ygrp-mlmsg #yiv7480228092logo {padding-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-msg p a {font-family:Verdana;}#yiv7480228092 #yiv7480228092ygrp-msg p#yiv7480228092attach-count span {color:#1E66AE;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco #yiv7480228092reco-head {color:#ff7900;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li a {font-size:130%;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov ul {margin:0;padding:0 0 0 8px;}#yiv7480228092 #yiv7480228092ygrp-text {font-family:Georgia;}#yiv7480228092 #yiv7480228092ygrp-text p {margin:0 0 1em 0;}#yiv7480228092 #yiv7480228092ygrp-text tt {font-size:120%;}#yiv7480228092 #yiv7480228092ygrp-vital ul li:last-child {border-right:none !important;}#yiv7480228092  
 
 
  On Fri, Jul 28, 2017 at 23:43, rodhy hakim [hidden email] [belajar-excel]<[hidden email]> wrote:      

Dear Mr HK, Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..

Dikirim dari iPhone saya
Pada 28 Jul 2017, pukul 23.02, hendrik karnadi [hidden email] [belajar-excel] <[hidden email]> menulis:


    

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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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

       
     


 
  #yiv7480228092 #yiv7480228092 -- #yiv7480228092ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7480228092 #yiv7480228092ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092ads {margin-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad {padding:0 0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad p {margin:0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad a {color:#0000ff;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc {font-family:Arial;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc #yiv7480228092hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc .yiv7480228092ad {margin-bottom:10px;padding:0 0;}#yiv7480228092 #yiv7480228092actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7480228092 #yiv7480228092activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7480228092 #yiv7480228092activity span {font-weight:700;}#yiv7480228092 #yiv7480228092activity span:first-child {text-transform:uppercase;}#yiv7480228092 #yiv7480228092activity span a {color:#5085b6;text-decoration:none;}#yiv7480228092 #yiv7480228092activity span span {color:#ff7900;}#yiv7480228092 #yiv7480228092activity span .yiv7480228092underline {text-decoration:underline;}#yiv7480228092 .yiv7480228092attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7480228092 .yiv7480228092attach div a {text-decoration:none;}#yiv7480228092 .yiv7480228092attach img {border:none;padding-right:5px;}#yiv7480228092 .yiv7480228092attach label {display:block;margin-bottom:5px;}#yiv7480228092 .yiv7480228092attach label a {text-decoration:none;}#yiv7480228092 blockquote {margin:0 0 0 4px;}#yiv7480228092 .yiv7480228092bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7480228092 .yiv7480228092bold a {text-decoration:none;}#yiv7480228092 dd.yiv7480228092last p a {font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span.yiv7480228092yshortcuts {margin-right:0;}#yiv7480228092 div.yiv7480228092attach-table div div a {text-decoration:none;}#yiv7480228092 div.yiv7480228092attach-table {width:400px;}#yiv7480228092 div.yiv7480228092file-title a, #yiv7480228092 div.yiv7480228092file-title a:active, #yiv7480228092 div.yiv7480228092file-title a:hover, #yiv7480228092 div.yiv7480228092file-title a:visited {text-decoration:none;}#yiv7480228092 div.yiv7480228092photo-title a, #yiv7480228092 div.yiv7480228092photo-title a:active, #yiv7480228092 div.yiv7480228092photo-title a:hover, #yiv7480228092 div.yiv7480228092photo-title a:visited {text-decoration:none;}#yiv7480228092 div#yiv7480228092ygrp-mlmsg #yiv7480228092ygrp-msg p a span.yiv7480228092yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7480228092 .yiv7480228092green {color:#628c2a;}#yiv7480228092 .yiv7480228092MsoNormal {margin:0 0 0 0;}#yiv7480228092 o {font-size:0;}#yiv7480228092 #yiv7480228092photos div {float:left;width:72px;}#yiv7480228092 #yiv7480228092photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7480228092 #yiv7480228092photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7480228092 #yiv7480228092reco-category {font-size:77%;}#yiv7480228092 #yiv7480228092reco-desc {font-size:77%;}#yiv7480228092 .yiv7480228092replbq {margin:4px;}#yiv7480228092 #yiv7480228092ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7480228092 #yiv7480228092ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7480228092 #yiv7480228092ygrp-mlmsg select, #yiv7480228092 input, #yiv7480228092 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg pre, #yiv7480228092 code {font:115% monospace;}#yiv7480228092 #yiv7480228092ygrp-mlmsg * {line-height:1.22em;}#yiv7480228092 #yiv7480228092ygrp-mlmsg #yiv7480228092logo {padding-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-msg p a {font-family:Verdana;}#yiv7480228092 #yiv7480228092ygrp-msg p#yiv7480228092attach-count span {color:#1E66AE;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco #yiv7480228092reco-head {color:#ff7900;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li a {font-size:130%;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov ul {margin:0;padding:0 0 0 8px;}#yiv7480228092 #yiv7480228092ygrp-text {font-family:Georgia;}#yiv7480228092 #yiv7480228092ygrp-text p {margin:0 0 1em 0;}#yiv7480228092 #yiv7480228092ygrp-text tt {font-size:120%;}#yiv7480228092 #yiv7480228092ygrp-vital ul li:last-child {border-right:none !important;}#yiv7480228092  
 
 
  On Fri, Jul 28, 2017 at 23:43, rodhy hakim [hidden email] [belajar-excel]<[hidden email]> wrote:      

Dear Mr HK, Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..

Dikirim dari iPhone saya
Pada 28 Jul 2017, pukul 23.02, hendrik karnadi [hidden email] [belajar-excel] <[hidden email]> menulis:


    

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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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 [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>To: BeExcel <[hidden email]>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

       
     


 
  #yiv7480228092 #yiv7480228092 -- #yiv7480228092ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7480228092 #yiv7480228092ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092ads {margin-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad {padding:0 0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad p {margin:0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad a {color:#0000ff;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc {font-family:Arial;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc #yiv7480228092hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc .yiv7480228092ad {margin-bottom:10px;padding:0 0;}#yiv7480228092 #yiv7480228092actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7480228092 #yiv7480228092activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7480228092 #yiv7480228092activity span {font-weight:700;}#yiv7480228092 #yiv7480228092activity span:first-child {text-transform:uppercase;}#yiv7480228092 #yiv7480228092activity span a {color:#5085b6;text-decoration:none;}#yiv7480228092 #yiv7480228092activity span span {color:#ff7900;}#yiv7480228092 #yiv7480228092activity span .yiv7480228092underline {text-decoration:underline;}#yiv7480228092 .yiv7480228092attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7480228092 .yiv7480228092attach div a {text-decoration:none;}#yiv7480228092 .yiv7480228092attach img {border:none;padding-right:5px;}#yiv7480228092 .yiv7480228092attach label {display:block;margin-bottom:5px;}#yiv7480228092 .yiv7480228092attach label a {text-decoration:none;}#yiv7480228092 blockquote {margin:0 0 0 4px;}#yiv7480228092 .yiv7480228092bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7480228092 .yiv7480228092bold a {text-decoration:none;}#yiv7480228092 dd.yiv7480228092last p a {font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span.yiv7480228092yshortcuts {margin-right:0;}#yiv7480228092 div.yiv7480228092attach-table div div a {text-decoration:none;}#yiv7480228092 div.yiv7480228092attach-table {width:400px;}#yiv7480228092 div.yiv7480228092file-title a, #yiv7480228092 div.yiv7480228092file-title a:active, #yiv7480228092 div.yiv7480228092file-title a:hover, #yiv7480228092 div.yiv7480228092file-title a:visited {text-decoration:none;}#yiv7480228092 div.yiv7480228092photo-title a, #yiv7480228092 div.yiv7480228092photo-title a:active, #yiv7480228092 div.yiv7480228092photo-title a:hover, #yiv7480228092 div.yiv7480228092photo-title a:visited {text-decoration:none;}#yiv7480228092 div#yiv7480228092ygrp-mlmsg #yiv7480228092ygrp-msg p a span.yiv7480228092yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7480228092 .yiv7480228092green {color:#628c2a;}#yiv7480228092 .yiv7480228092MsoNormal {margin:0 0 0 0;}#yiv7480228092 o {font-size:0;}#yiv7480228092 #yiv7480228092photos div {float:left;width:72px;}#yiv7480228092 #yiv7480228092photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7480228092 #yiv7480228092photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7480228092 #yiv7480228092reco-category {font-size:77%;}#yiv7480228092 #yiv7480228092reco-desc {font-size:77%;}#yiv7480228092 .yiv7480228092replbq {margin:4px;}#yiv7480228092 #yiv7480228092ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7480228092 #yiv7480228092ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7480228092 #yiv7480228092ygrp-mlmsg select, #yiv7480228092 input, #yiv7480228092 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg pre, #yiv7480228092 code {font:115% monospace;}#yiv7480228092 #yiv7480228092ygrp-mlmsg * {line-height:1.22em;}#yiv7480228092 #yiv7480228092ygrp-mlmsg #yiv7480228092logo {padding-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-msg p a {font-family:Verdana;}#yiv7480228092 #yiv7480228092ygrp-msg p#yiv7480228092attach-count span {color:#1E66AE;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco #yiv7480228092reco-head {color:#ff7900;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li a {font-size:130%;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov ul {margin:0;padding:0 0 0 8px;}#yiv7480228092 #yiv7480228092ygrp-text {font-family:Georgia;}#yiv7480228092 #yiv7480228092ygrp-text p {margin:0 0 1em 0;}#yiv7480228092 #yiv7480228092ygrp-text tt {font-size:120%;}#yiv7480228092 #yiv7480228092ygrp-vital ul li:last-child {border-right:none !important;}#yiv7480228092  
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]

Milis Belajar Excel mailing list
Dear Mr. HK,
 Berikut Filenya...

 

 Terima Kasih atas pencerahannya,   Odhy.
 

 

 

 On ‎Saturday‎, ‎July‎ ‎29‎, ‎2017‎ ‎11‎:‎03‎:‎04‎ ‎AM‎ ‎WIB, hendrik karnadi [hidden email] [belajar-excel] wrote:
 

 

   Dear Odhy,
 Coba kirim .zip dummy filenya.
 

 Salam,
 HK

 Sent from Yahoo Mail on Android https://overview.mail.yahoo.com/mobile/?.src=Android

 
 

 
 

 
 


 
 

 
 









=?UTF-8?b?Q29tYmluZVRlc3RSZXYuemlw?= (54K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
Salam,HK

Sent from Yahoo Mail on Android
 
  On Sat, Jul 29, 2017 at 15:09, Odhy [hidden email] [belajar-excel]<[hidden email]> wrote:      

Dear Mr. HK,Berikut Filenya...

Terima Kasih atas pencerahannya,   Odhy.


On ‎Saturday‎, ‎July‎ ‎29‎, ‎2017‎ ‎11‎:‎03‎:‎04‎ ‎AM‎ ‎WIB, hendrik karnadi [hidden email] [belajar-excel] wrote:

   
Dear Odhy,
Coba kirim .zip dummy filenya.
Salam,HK

Sent from Yahoo Mail on Android

 
        #yiv0455186430 #yiv0455186430 -- #yiv0455186430ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0455186430 #yiv0455186430ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0455186430 #yiv0455186430ygrp-mkp #yiv0455186430hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0455186430 #yiv0455186430ygrp-mkp #yiv0455186430ads {margin-bottom:10px;}#yiv0455186430 #yiv0455186430ygrp-mkp .yiv0455186430ad {padding:0 0;}#yiv0455186430 #yiv0455186430ygrp-mkp .yiv0455186430ad p {margin:0;}#yiv0455186430 #yiv0455186430ygrp-mkp .yiv0455186430ad a {color:#0000ff;text-decoration:none;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ygrp-lc {font-family:Arial;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ygrp-lc #yiv0455186430hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ygrp-lc .yiv0455186430ad {margin-bottom:10px;padding:0 0;}#yiv0455186430 #yiv0455186430actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0455186430 #yiv0455186430activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0455186430 #yiv0455186430activity span {font-weight:700;}#yiv0455186430 #yiv0455186430activity span:first-child {text-transform:uppercase;}#yiv0455186430 #yiv0455186430activity span a {color:#5085b6;text-decoration:none;}#yiv0455186430 #yiv0455186430activity span span {color:#ff7900;}#yiv0455186430 #yiv0455186430activity span .yiv0455186430underline {text-decoration:underline;}#yiv0455186430 .yiv0455186430attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0455186430 .yiv0455186430attach div a {text-decoration:none;}#yiv0455186430 .yiv0455186430attach img {border:none;padding-right:5px;}#yiv0455186430 .yiv0455186430attach label {display:block;margin-bottom:5px;}#yiv0455186430 .yiv0455186430attach label a {text-decoration:none;}#yiv0455186430 blockquote {margin:0 0 0 4px;}#yiv0455186430 .yiv0455186430bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0455186430 .yiv0455186430bold a {text-decoration:none;}#yiv0455186430 dd.yiv0455186430last p a {font-family:Verdana;font-weight:700;}#yiv0455186430 dd.yiv0455186430last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0455186430 dd.yiv0455186430last p span.yiv0455186430yshortcuts {margin-right:0;}#yiv0455186430 div.yiv0455186430attach-table div div a {text-decoration:none;}#yiv0455186430 div.yiv0455186430attach-table {width:400px;}#yiv0455186430 div.yiv0455186430file-title a, #yiv0455186430 div.yiv0455186430file-title a:active, #yiv0455186430 div.yiv0455186430file-title a:hover, #yiv0455186430 div.yiv0455186430file-title a:visited {text-decoration:none;}#yiv0455186430 div.yiv0455186430photo-title a, #yiv0455186430 div.yiv0455186430photo-title a:active, #yiv0455186430 div.yiv0455186430photo-title a:hover, #yiv0455186430 div.yiv0455186430photo-title a:visited {text-decoration:none;}#yiv0455186430 div#yiv0455186430ygrp-mlmsg #yiv0455186430ygrp-msg p a span.yiv0455186430yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0455186430 .yiv0455186430green {color:#628c2a;}#yiv0455186430 .yiv0455186430MsoNormal {margin:0 0 0 0;}#yiv0455186430 o {font-size:0;}#yiv0455186430 #yiv0455186430photos div {float:left;width:72px;}#yiv0455186430 #yiv0455186430photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv0455186430 #yiv0455186430photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0455186430 #yiv0455186430reco-category {font-size:77%;}#yiv0455186430 #yiv0455186430reco-desc {font-size:77%;}#yiv0455186430 .yiv0455186430replbq {margin:4px;}#yiv0455186430 #yiv0455186430ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0455186430 #yiv0455186430ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0455186430 #yiv0455186430ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0455186430 #yiv0455186430ygrp-mlmsg select, #yiv0455186430 input, #yiv0455186430 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0455186430 #yiv0455186430ygrp-mlmsg pre, #yiv0455186430 code {font:115% monospace;}#yiv0455186430 #yiv0455186430ygrp-mlmsg * {line-height:1.22em;}#yiv0455186430 #yiv0455186430ygrp-mlmsg #yiv0455186430logo {padding-bottom:10px;}#yiv0455186430 #yiv0455186430ygrp-msg p a {font-family:Verdana;}#yiv0455186430 #yiv0455186430ygrp-msg p#yiv0455186430attach-count span {color:#1E66AE;font-weight:700;}#yiv0455186430 #yiv0455186430ygrp-reco #yiv0455186430reco-head {color:#ff7900;font-weight:700;}#yiv0455186430 #yiv0455186430ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ov li a {font-size:130%;text-decoration:none;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ov ul {margin:0;padding:0 0 0 8px;}#yiv0455186430 #yiv0455186430ygrp-text {font-family:Georgia;}#yiv0455186430 #yiv0455186430ygrp-text p {margin:0 0 1em 0;}#yiv0455186430 #yiv0455186430ygrp-text tt {font-size:120%;}#yiv0455186430 #yiv0455186430ygrp-vital ul li:last-child {border-right:none !important;}#yiv0455186430  
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
Dear Mr.HK,
Kemungkinan tidak mau di drive C:
Sy menggunakan laptop kantor yg hanya tersedia drive C: .
Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas bantuannya....

Salam
odhy.

Dikirim dari iPhone saya

Pada 30 Jul 2017, pukul 00.05, hendrik karnadi [hidden email] [belajar-excel] <[hidden email]> menulis:

> Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
>
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
>
> On Sat, Jul 29, 2017 at 15:09, Odhy [hidden email] [belajar-excel]
> <[hidden email]> wrote:
>
> Dear Mr. HK,
> Berikut Filenya...
>
> Terima Kasih atas pencerahannya,   Odhy.
>
>
>
> On ‎Saturday‎, ‎July‎ ‎29‎, ‎2017‎ ‎11‎:‎03‎:‎04‎ ‎AM‎ ‎WIB, hendrik karnadi [hidden email] [belajar-excel] wrote:
>
>
>
> Dear Odhy,
>
> Coba kirim .zip dummy filenya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
eh...
dah selesai tritnya ?
gitu doang ?

ayoklah...

gini...
script yang ada di file dari pak HK itu (entah dapat darimana atau diubah
apanya gak tau dah) tergantung suatu nilai referensi.
referensi tersebut ada di sheet bernama 'sheet2' (nama sheet boleh diganti
jadi lainnya).
A1 : diisi nama file yang menggabungkan tersebut. Catatannya, buka windows
explorer, lalu tulis nama file tersebut persis seperti yang ada di windows
explorer.
       kalau di windows explorer tertulis bunyi 'Master.Kid', tulils di A1
bunyi 'Master.Kid' gitu...
       *** Ingat loh ya, script ini gak bisa nulis ke workbook lain, harus
di workbook yang ada script-nya itu doang. Hasil gabungannya cuma di file
itu juga.
       *** nama sheet yang ada tombol commandbutton nya jangan diganti jadi
nama lainnya, harus 'sheet1'
A2 : diisi nama folder files yang akan di-merge. lihat windows explorer
lagi, masuk ke folder yang berisi files yang akan di-merge,
        lalu copy bunyi forlder yang ada di url bar nya, paste ke A2
        *** pastikan isi foldernya cuma file yang akan di-merge.
        *** jangan ada file lainnya, apalagi file pilem iklan perusahaan
yang gedenya sampai puluhan bahkan ratusan MB. Bisa dibuat cerewet tuh
Excel oleh si script.
             tapi kalo cuma file jpg isinya gambar selfie yang dibawah 2MB
sih boleh lah... sapa tahu mo lihat selfie-nya di Excel... bhuahahaha...

Regards,
Kid



















2017-07-29 23:35 GMT+07:00 rodhy hakim [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Dear Mr.HK,
> Kemungkinan tidak mau di drive C:
> Sy menggunakan laptop kantor yg hanya tersedia drive C: .
> Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas
> bantuannya....
>
> Salam
> odhy.
>
> Dikirim dari iPhone saya
>
> Pada 30 Jul 2017, pukul 00.05, hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email]> menulis:
>
>
>
> Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Sat, Jul 29, 2017 at 15:09, Odhy [hidden email]
> [belajar-excel]
> <[hidden email]> wrote:
>
>
> Dear Mr. HK,
> Berikut Filenya...
>
> Terima Kasih atas pencerahannya,   Odhy.
>
>
>
> On ‎Saturday‎, ‎July‎ ‎29‎, ‎2017‎ ‎11‎:‎03‎:‎04‎ ‎AM‎ ‎WIB, hendrik
> karnadi [hidden email] [belajar-excel] wrote:
>
>
>
>
> Dear Odhy,
> Coba kirim .zip dummy filenya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
Woowww.... terpecahkan....
Terima kasih mr.kid
Be exceler....


Dikirim dari iPhone saya

Pada 30 Jul 2017, pukul 06.53, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> menulis:

> eh...
> dah selesai tritnya ?
> gitu doang ?
>
> ayoklah...
>
> gini...
> script yang ada di file dari pak HK itu (entah dapat darimana atau diubah apanya gak tau dah) tergantung suatu nilai referensi.
> referensi tersebut ada di sheet bernama 'sheet2' (nama sheet boleh diganti jadi lainnya).
> A1 : diisi nama file yang menggabungkan tersebut. Catatannya, buka windows explorer, lalu tulis nama file tersebut persis seperti yang ada di windows explorer.
>        kalau di windows explorer tertulis bunyi 'Master.Kid', tulils di A1 bunyi 'Master.Kid' gitu...
>        *** Ingat loh ya, script ini gak bisa nulis ke workbook lain, harus di workbook yang ada script-nya itu doang. Hasil gabungannya cuma di file itu juga.
>        *** nama sheet yang ada tombol commandbutton nya jangan diganti jadi nama lainnya, harus 'sheet1'
> A2 : diisi nama folder files yang akan di-merge. lihat windows explorer lagi, masuk ke folder yang berisi files yang akan di-merge,
>         lalu copy bunyi forlder yang ada di url bar nya, paste ke A2
>         *** pastikan isi foldernya cuma file yang akan di-merge.
>         *** jangan ada file lainnya, apalagi file pilem iklan perusahaan yang gedenya sampai puluhan bahkan ratusan MB. Bisa dibuat cerewet tuh Excel oleh si script.
>              tapi kalo cuma file jpg isinya gambar selfie yang dibawah 2MB sih boleh lah... sapa tahu mo lihat selfie-nya di Excel... bhuahahaha...
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2017-07-29 23:35 GMT+07:00 rodhy hakim [hidden email] [belajar-excel] <[hidden email]>:
>>
>> Dear Mr.HK,
>> Kemungkinan tidak mau di drive C:
>> Sy menggunakan laptop kantor yg hanya tersedia drive C: .
>> Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas bantuannya....
>>
>> Salam
>> odhy.
>>
>> Dikirim dari iPhone saya
>>
>> Pada 30 Jul 2017, pukul 00.05, hendrik karnadi [hidden email] [belajar-excel] <[hidden email]> menulis:
>>
>>>
>>> Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
>>>
>>>
>>> Salam,
>>> HK
>>>
>>> Sent from Yahoo Mail on Android
>>>
>>> On Sat, Jul 29, 2017 at 15:09, Odhy [hidden email] [belajar-excel]
>>> <[hidden email]> wrote:
>>>
>>> Dear Mr. HK,
>>> Berikut Filenya...
>>>
>>> Terima Kasih atas pencerahannya,   Odhy.
>>>
>>>
>>>
>>> On ‎Saturday‎, ‎July‎ ‎29‎, ‎2017‎ ‎11‎:‎03‎:‎04‎ ‎AM‎ ‎WIB, hendrik karnadi [hidden email] [belajar-excel] wrote:
>>>
>>>
>>>
>>> Dear Odhy,
>>>
>>> Coba kirim .zip dummy filenya.
>>>
>>> Salam,
>>> HK
>>>
>>> Sent from Yahoo Mail on Android
>>>
>>>
>>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
Syukurlah.....Aslinya nama file "Master" dan nama folder dari file2 yang akan digabung ada di VBA....saya ganti ke Sheet spy lebih mudah.
Salam,HK

On Tuesday, August 1, 2017, 8:43:03 PM GMT+7, rodhy hakim [hidden email] [belajar-excel] <[hidden email]> wrote:

   

Woowww.... terpecahkan....Terima kasih mr.kidBe exceler....

Dikirim dari iPhone saya
Pada 30 Jul 2017, pukul 06.53, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> menulis:


    

eh...
dah selesai tritnya ?
gitu doang ?

ayoklah...

gini...
script yang ada di file dari pak HK itu (entah dapat darimana atau diubah apanya gak tau dah) tergantung suatu nilai referensi.
referensi tersebut ada di sheet bernama 'sheet2' (nama sheet boleh diganti jadi lainnya).
A1 : diisi nama file yang menggabungkan tersebut. Catatannya, buka windows explorer, lalu tulis nama file tersebut persis seperti yang ada di windows explorer.
       kalau di windows explorer tertulis bunyi 'Master.Kid', tulils di A1 bunyi 'Master.Kid' gitu...
       *** Ingat loh ya, script ini gak bisa nulis ke workbook lain, harus di workbook yang ada script-nya itu doang. Hasil gabungannya cuma di file itu juga.
       *** nama sheet yang ada tombol commandbutton nya jangan diganti jadi nama lainnya, harus 'sheet1'
A2 : diisi nama folder files yang akan di-merge. lihat windows explorer lagi, masuk ke folder yang berisi files yang akan di-merge,
        lalu copy bunyi forlder yang ada di url bar nya, paste ke A2
        *** pastikan isi foldernya cuma file yang akan di-merge.
        *** jangan ada file lainnya, apalagi file pilem iklan perusahaan yang gedenya sampai puluhan bahkan ratusan MB. Bisa dibuat cerewet tuh Excel oleh si script.
             tapi kalo cuma file jpg isinya gambar selfie yang dibawah 2MB sih boleh lah... sapa tahu mo lihat selfie-nya di Excel... bhuahahaha...

Regards,
Kid



















2017-07-29 23:35 GMT+07:00 rodhy hakim [hidden email] [belajar-excel] <[hidden email]>:

    

Dear Mr.HK,Kemungkinan tidak mau di drive C:Sy menggunakan laptop kantor yg hanya tersedia drive C: . Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas bantuannya....
Salam odhy.

Dikirim dari iPhone saya
Pada 30 Jul 2017, pukul 00.05, hendrik karnadi [hidden email] [belajar-excel] <[hidden email] > menulis:


    
Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.

Salam,HK

Sent from Yahoo Mail on Android
 
  On Sat, Jul 29, 2017 at 15:09, Odhy [hidden email] [belajar-excel]<[hidden email] > wrote:      

Dear Mr. HK,Berikut Filenya...

Terima Kasih atas pencerahannya,   Odhy.


On ‎Saturday‎, ‎July‎ ‎29‎, ‎2017‎ ‎11‎:‎03‎:‎04‎ ‎AM‎ ‎WIB, hendrik karnadi [hidden email] [belajar-excel] wrote:

   
Dear Odhy,
Coba kirim .zip dummy filenya.
Salam,HK

Sent from Yahoo Mail on Android

 
         


 


   



 
 
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
Jika memang file lokasi gabungan adalah di file yang berisi script VBA,
maka ganti saja baris yang merujuk ke cells berisi tulisan nama file
tersebut dengan ThisWorkbook.

Kira-kira, kalau ada bunyi :
     blabla = Workbooks( rujukan_ke_cell_berisi_nama_file_master )
diubah menjadi :
    blabla = Thisworkbook

Regards,
Kid





2017-08-01 20:48 GMT+07:00 hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Syukurlah.....
> Aslinya nama file "Master" dan nama folder dari file2 yang akan digabung
> ada di VBA....saya ganti ke Sheet spy lebih mudah.
>
> Salam,
> HK
>
>
> ------------------------------
> On Tuesday, August 1, 2017, 8:43:03 PM GMT+7, rodhy hakim
> [hidden email] [belajar-excel] <[hidden email]>
> wrote:
>
>
>
>
> Woowww.... terpecahkan....
> Terima kasih mr.kid
> Be exceler....
>
>
> Dikirim dari iPhone saya
>
> Pada 30 Jul 2017, pukul 06.53, 'Mr. Kid' [hidden email]
> [belajar-excel] <[hidden email]> menulis:
>
>
>
> eh...
> dah selesai tritnya ?
> gitu doang ?
>
> ayoklah...
>
> gini...
> script yang ada di file dari pak HK itu (entah dapat darimana atau diubah
> apanya gak tau dah) tergantung suatu nilai referensi.
> referensi tersebut ada di sheet bernama 'sheet2' (nama sheet boleh diganti
> jadi lainnya).
> A1 : diisi nama file yang menggabungkan tersebut. Catatannya, buka windows
> explorer, lalu tulis nama file tersebut persis seperti yang ada di windows
> explorer.
>        kalau di windows explorer tertulis bunyi 'Master.Kid', tulils di A1
> bunyi 'Master.Kid' gitu...
>        *** Ingat loh ya, script ini gak bisa nulis ke workbook lain, harus
> di workbook yang ada script-nya itu doang. Hasil gabungannya cuma di file
> itu juga.
>        *** nama sheet yang ada tombol commandbutton nya jangan diganti
> jadi nama lainnya, harus 'sheet1'
> A2 : diisi nama folder files yang akan di-merge. lihat windows explorer
> lagi, masuk ke folder yang berisi files yang akan di-merge,
>         lalu copy bunyi forlder yang ada di url bar nya, paste ke A2
>         *** pastikan isi foldernya cuma file yang akan di-merge.
>         *** jangan ada file lainnya, apalagi file pilem iklan perusahaan
> yang gedenya sampai puluhan bahkan ratusan MB. Bisa dibuat cerewet tuh
> Excel oleh si script.
>              tapi kalo cuma file jpg isinya gambar selfie yang dibawah 2MB
> sih boleh lah... sapa tahu mo lihat selfie-nya di Excel... bhuahahaha...
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2017-07-29 23:35 GMT+07:00 rodhy hakim [hidden email]
> [belajar-excel] <[hidden email]>:
>
>
>
> Dear Mr.HK,
> Kemungkinan tidak mau di drive C:
> Sy menggunakan laptop kantor yg hanya tersedia drive C: .
> Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas
> bantuannya....
>
> Salam
> odhy.
>
> Dikirim dari iPhone saya
>
> Pada 30 Jul 2017, pukul 00.05, hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email] > menulis:
>
>
>
> Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Sat, Jul 29, 2017 at 15:09, Odhy [hidden email]
> [belajar-excel]
> <[hidden email] > wrote:
>
>
> Dear Mr. HK,
> Berikut Filenya...
>
> Terima Kasih atas pencerahannya,   Odhy.
>
>
>
> On ‎Saturday‎, ‎July‎ ‎29‎, ‎2017‎ ‎11‎:‎03‎:‎04‎ ‎AM‎ ‎WIB, hendrik
> karnadi [hidden email] [belajar-excel] wrote:
>
>
>
>
> Dear Odhy,
> Coba kirim .zip dummy filenya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder)

Milis Belajar Excel mailing list
Sdh dites....Thanks Mr. Kid
Salam,HK

Sent from Yahoo Mail on Android
 
  On Wed, Aug 2, 2017 at 5:58, 'Mr. Kid' [hidden email] [belajar-excel]<[hidden email]> wrote:      

Jika memang file lokasi gabungan adalah di file yang berisi script VBA, maka ganti saja baris yang merujuk ke cells berisi tulisan nama file tersebut dengan ThisWorkbook.

Kira-kira, kalau ada bunyi :
     blabla = Workbooks( rujukan_ke_cell_berisi_nama_file_master )
diubah menjadi :
    blabla = Thisworkbook

Regards,
Kid





2017-08-01 20:48 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>:

    

Syukurlah.....Aslinya nama file "Master" dan nama folder dari file2 yang akan digabung ada di VBA....saya ganti ke Sheet spy lebih mudah.
Salam,HK

On Tuesday, August 1, 2017, 8:43:03 PM GMT+7, rodhy hakim [hidden email] [belajar-excel] <[hidden email] > wrote:

   

Woowww.... terpecahkan....Terima kasih mr.kidBe exceler....

Dikirim dari iPhone saya
Pada 30 Jul 2017, pukul 06.53, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email] > menulis:


    

eh...
dah selesai tritnya ?
gitu doang ?

ayoklah...

gini...
script yang ada di file dari pak HK itu (entah dapat darimana atau diubah apanya gak tau dah) tergantung suatu nilai referensi.
referensi tersebut ada di sheet bernama 'sheet2' (nama sheet boleh diganti jadi lainnya).
A1 : diisi nama file yang menggabungkan tersebut. Catatannya, buka windows explorer, lalu tulis nama file tersebut persis seperti yang ada di windows explorer.
       kalau di windows explorer tertulis bunyi 'Master.Kid', tulils di A1 bunyi 'Master.Kid' gitu...
       *** Ingat loh ya, script ini gak bisa nulis ke workbook lain, harus di workbook yang ada script-nya itu doang. Hasil gabungannya cuma di file itu juga.
       *** nama sheet yang ada tombol commandbutton nya jangan diganti jadi nama lainnya, harus 'sheet1'
A2 : diisi nama folder files yang akan di-merge. lihat windows explorer lagi, masuk ke folder yang berisi files yang akan di-merge,
        lalu copy bunyi forlder yang ada di url bar nya, paste ke A2
        *** pastikan isi foldernya cuma file yang akan di-merge.
        *** jangan ada file lainnya, apalagi file pilem iklan perusahaan yang gedenya sampai puluhan bahkan ratusan MB. Bisa dibuat cerewet tuh Excel oleh si script.
             tapi kalo cuma file jpg isinya gambar selfie yang dibawah 2MB sih boleh lah... sapa tahu mo lihat selfie-nya di Excel... bhuahahaha...

Regards,
Kid



















2017-07-29 23:35 GMT+07:00 rodhy hakim [hidden email] [belajar-excel] <[hidden email] >:

    

Dear Mr.HK,Kemungkinan tidak mau di drive C:Sy menggunakan laptop kantor yg hanya tersedia drive C: . Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas bantuannya....
Salam odhy.

Dikirim dari iPhone saya
Pada 30 Jul 2017, pukul 00.05, hendrik karnadi [hidden email] [belajar-excel] <[hidden email] > menulis:


    
Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.

Salam,HK

Sent from Yahoo Mail on Android
 
  On Sat, Jul 29, 2017 at 15:09, Odhy [hidden email] [belajar-excel]<[hidden email] > wrote:      

Dear Mr. HK,Berikut Filenya...

Terima Kasih atas pencerahannya,   Odhy.


On ‎Saturday‎, ‎July‎ ‎29‎, ‎2017‎ ‎11‎:‎03‎:‎04‎ ‎AM‎ ‎WIB, hendrik karnadi [hidden email] [belajar-excel] wrote:

   
Dear Odhy,
Coba kirim .zip dummy filenya.
Salam,HK

Sent from Yahoo Mail on Android

 
         


 


   



 
 

   

  #yiv7318435419 #yiv7318435419 -- #yiv7318435419ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7318435419 #yiv7318435419ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7318435419 #yiv7318435419ygrp-mkp #yiv7318435419hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7318435419 #yiv7318435419ygrp-mkp #yiv7318435419ads {margin-bottom:10px;}#yiv7318435419 #yiv7318435419ygrp-mkp .yiv7318435419ad {padding:0 0;}#yiv7318435419 #yiv7318435419ygrp-mkp .yiv7318435419ad p {margin:0;}#yiv7318435419 #yiv7318435419ygrp-mkp .yiv7318435419ad a {color:#0000ff;text-decoration:none;}#yiv7318435419 #yiv7318435419ygrp-sponsor #yiv7318435419ygrp-lc {font-family:Arial;}#yiv7318435419 #yiv7318435419ygrp-sponsor #yiv7318435419ygrp-lc #yiv7318435419hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7318435419 #yiv7318435419ygrp-sponsor #yiv7318435419ygrp-lc .yiv7318435419ad {margin-bottom:10px;padding:0 0;}#yiv7318435419 #yiv7318435419actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7318435419 #yiv7318435419activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7318435419 #yiv7318435419activity span {font-weight:700;}#yiv7318435419 #yiv7318435419activity span:first-child {text-transform:uppercase;}#yiv7318435419 #yiv7318435419activity span a {color:#5085b6;text-decoration:none;}#yiv7318435419 #yiv7318435419activity span span {color:#ff7900;}#yiv7318435419 #yiv7318435419activity span .yiv7318435419underline {text-decoration:underline;}#yiv7318435419 .yiv7318435419attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7318435419 .yiv7318435419attach div a {text-decoration:none;}#yiv7318435419 .yiv7318435419attach img {border:none;padding-right:5px;}#yiv7318435419 .yiv7318435419attach label {display:block;margin-bottom:5px;}#yiv7318435419 .yiv7318435419attach label a {text-decoration:none;}#yiv7318435419 blockquote {margin:0 0 0 4px;}#yiv7318435419 .yiv7318435419bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7318435419 .yiv7318435419bold a {text-decoration:none;}#yiv7318435419 dd.yiv7318435419last p a {font-family:Verdana;font-weight:700;}#yiv7318435419 dd.yiv7318435419last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7318435419 dd.yiv7318435419last p span.yiv7318435419yshortcuts {margin-right:0;}#yiv7318435419 div.yiv7318435419attach-table div div a {text-decoration:none;}#yiv7318435419 div.yiv7318435419attach-table {width:400px;}#yiv7318435419 div.yiv7318435419file-title a, #yiv7318435419 div.yiv7318435419file-title a:active, #yiv7318435419 div.yiv7318435419file-title a:hover, #yiv7318435419 div.yiv7318435419file-title a:visited {text-decoration:none;}#yiv7318435419 div.yiv7318435419photo-title a, #yiv7318435419 div.yiv7318435419photo-title a:active, #yiv7318435419 div.yiv7318435419photo-title a:hover, #yiv7318435419 div.yiv7318435419photo-title a:visited {text-decoration:none;}#yiv7318435419 div#yiv7318435419ygrp-mlmsg #yiv7318435419ygrp-msg p a span.yiv7318435419yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7318435419 .yiv7318435419green {color:#628c2a;}#yiv7318435419 .yiv7318435419MsoNormal {margin:0 0 0 0;}#yiv7318435419 o {font-size:0;}#yiv7318435419 #yiv7318435419photos div {float:left;width:72px;}#yiv7318435419 #yiv7318435419photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7318435419 #yiv7318435419photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7318435419 #yiv7318435419reco-category {font-size:77%;}#yiv7318435419 #yiv7318435419reco-desc {font-size:77%;}#yiv7318435419 .yiv7318435419replbq {margin:4px;}#yiv7318435419 #yiv7318435419ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7318435419 #yiv7318435419ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7318435419 #yiv7318435419ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7318435419 #yiv7318435419ygrp-mlmsg select, #yiv7318435419 input, #yiv7318435419 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7318435419 #yiv7318435419ygrp-mlmsg pre, #yiv7318435419 code {font:115% monospace;}#yiv7318435419 #yiv7318435419ygrp-mlmsg * {line-height:1.22em;}#yiv7318435419 #yiv7318435419ygrp-mlmsg #yiv7318435419logo {padding-bottom:10px;}#yiv7318435419 #yiv7318435419ygrp-msg p a {font-family:Verdana;}#yiv7318435419 #yiv7318435419ygrp-msg p#yiv7318435419attach-count span {color:#1E66AE;font-weight:700;}#yiv7318435419 #yiv7318435419ygrp-reco #yiv7318435419reco-head {color:#ff7900;font-weight:700;}#yiv7318435419 #yiv7318435419ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7318435419 #yiv7318435419ygrp-sponsor #yiv7318435419ov li a {font-size:130%;text-decoration:none;}#yiv7318435419 #yiv7318435419ygrp-sponsor #yiv7318435419ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7318435419 #yiv7318435419ygrp-sponsor #yiv7318435419ov ul {margin:0;padding:0 0 0 8px;}#yiv7318435419 #yiv7318435419ygrp-text {font-family:Georgia;}#yiv7318435419 #yiv7318435419ygrp-text p {margin:0 0 1em 0;}#yiv7318435419 #yiv7318435419ygrp-text tt {font-size:120%;}#yiv7318435419 #yiv7318435419ygrp-vital ul li:last-child {border-right:none !important;}#yiv7318435419  
Loading...