Coba :
Dim v As Variant
v = Application.GetOpenFilename("Excel files (*.xlsm;*.xls),
*.xlsm;*.xls")
Kid.
On Thu, Mar 29, 2012 at 14:21, <[email protected]> wrote:
> **
>
>
> 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
> >>
> >>
> >
>
>
>
