terima kasih mr.kid
------- Original message -------
> From: Kid Mr. <[email protected]>
> To: [email protected]
> Sent: 29.3., 14:29
>
>
>
> 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
>>>>
>>>>
>>>
>>
>>
>>
>
