Hai Fran,
Misal :
- folder kerja di k:\folder\subfolder
- file kerja bernama app.xlsm -> berisi VBA
- file yang punya link ke workbook lain bernama olah.xlsx
- file olah.xlsx berisi formula yang merujuk ke workbook bernama data1.xlsx
- file data2.xlsx -> file yang akan menjadi rujukan baru bagi formula yang
ada dalam olah.xlsx
- file data1.xlsx dan data2.xlsx memiliki struktur yang sama, terutama nama
sheet
target :
mengganti rujukan workbook dalam file olah.xlsx agar merujuk ke file
data2.xlsx
langkah membuatnya :
1. tutup file olah.xlsx, data1.xlsx, data2.xlsx
2. buka atau buat file app.xlsm
3. buka atau buat general module dalam VBE
4. buat sebuah prosedur sub berscope public, misal diberi nama UbahLink
5. dalam prosedur bernama UbahLink diberi baris-baris kode berikut :
dim wbk as workbook
application.displayalerts=false 'biar Excel gak cerewet nampilin dialog
tanya macem-macem
set wbk=workbooks.open("k:\folder\subfolder\olah.xlsx" , 2 ) 'parameter
updatelinks diset bernilai 2 alias ndak usah di-update
wbk.changelink "k:\folder\subfolder\data1.xlsx" ,
"k:\folder\subfolder\data2.xlsx" , 1 'angka 1 berarti linknya adalah excel
link
wbk.close true 'tutup wbk dengan didahului proses save
application.displayalerts=true 'Excel boleh cerewet lagi
6. kembali ke worksheet (tekan ALT F11)
7. save app.xlsm (tekan CTRL S)
8. jalankan prosedur yang baru dibuat tadi (misal bernama UbahLink) dengan
cara tekan ALT F8 lalu pilih nama prosedur dan klik Run
9. coba buka file olah.xlsx dan lihat link workbook nya
*** sesuaikan nama folder dan nama file yang dirujuk dalam baris-baris kode
sesuai keadaan setempat
*** syarat dan ketentuan berlaku
Regard,
Kid
On Thu, Apr 23, 2015 at 1:06 PM, [email protected] [belajar-excel] <
[email protected]> wrote:
>
>
> Gimana caranya change source data antar file diexcel menggunakan macro.
>
> thx
> FR
>
>
>
>
