Coba : dim wbkNew as workbook set wbknew=workbooks.add wbknew.saveas "z:\data\namafilebaru.xlsx"
Kid. On Wed, Mar 28, 2012 at 21:02, ChubbyMike <[email protected]> wrote: > ** > > > ** 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 > ------------------------------ > *From: * "Kid Mr." <[email protected]> > *Sender: * [email protected] > *Date: *Wed, 28 Mar 2012 17:11:49 +0700 > *To: *<[email protected]> > *ReplyTo: * [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 >> >> > >
