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
>
>
>
