Hi kid, code yg kamu berikan itu berjalan dengan sempurna, 
Boleh nanya 1 lg ga?
Dalam macro yg sy buat itu membuat 1 workbook baru lg(file c), dari tadi saya 
coba otak atik.
Kalau vfile dibawah itu artinya file yg dipilih sm user, gmn cara membuat vfile 
itu adalah workbook yg kita buat baru.
Sent from my BlackBerry yg belum lunas

-----Original Message-----
From: "Kid Mr." <[email protected]>
Sender: [email protected]
Date: Wed, 28 Mar 2012 17:11:49 
To: <[email protected]>
Reply-To: [email protected]
Subject: Re: [belajar-excel] membuat workbook baru dan menjalankan macro di
 workbook tersebut

Mungkin begini :

    Dim vFile As Variant
    Dim wbkFile As Workbook
    vFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
    If LenB(vFile) <> 0 Then
        Set wbkFile = Workbooks.Open(vFile)
    End If

Kemudian semua kegiatan di file B bisa dilakukan dengan memanggil object
wbkFile
Misal :
wbkfile.activate
wbkfile.sheets(1).activate
wbkfile.sheets(1).range("d3:h19,z55:ab77").clearcontents

Kid.

On Wed, Mar 28, 2012 at 16:52, Chubby Mike <[email protected]> wrote:

> **
>
>
> hi all,
>
> tolong bantuannya membuat macro seperti judul diatas dong.
>
> deskripsi :
> saya mau membuat commandbutton (di file A) yg jika diklik, user harus
> memilih file excel (file b) dimana macro akan berjalan di file A tersebut.
>
> saya sudah coba
>
> newfile = application.getopenfilename(filefilter:="Excel Files
> (*.xls),*.xls", title:="please select a file")
>
> tapi sayangnya macro saya berjalan di file A sehingga terjadi error.
>
> bagaimana cara membuat file B menjadi aktif setelah dibuat
>
> thanks in advance
> Mike
>
>  
>

Kirim email ke