maaf jadi pgn ikutan nanya juga ya. bagaimana bila filter getopenfilename nya dengan 2 extensi atau lebih ( *.xls dan *.xlsx atau *.xlsm) ?
------- Original message ------- > From: Kid Mr. <[email protected]> > To: [email protected] > Sent: 28.3., 17:12 > > > > 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 >> >> >
