Re: ]] XL-mania [[ Coding File Browser

 

Kalau bukan itu yg dikehendaki

coba yang ini:

Sub BrowseForFile()

   ' siti Vi / 01 Sept 2010

   Dim Path_n_FileName

   Path_n_FileName = Application.GetOpenFilename( _

       "Microsoft Office Excel Files(*.xls),*xls")

   If Path_n_FileName = False Then

      Range("B2") = "ndak ada yg dipilih"

   Else

      Range("B2") = Path_n_FileName

   End If

End Sub

2010/8/31 Tommy <tomz.zlow@gmail.com>
>
> Dear masters,
> Tolong bantu saya buat coding untuk menampilkan window browser untuk memudahkan memilih file *.xls yang dikehendaki.
> Setelah dipiliih, maka nama file akan masuk ke cell A4, dan file path masuk ke cell C4 misalnya.
> Saya pernah melihat macro buatan Mbak Siti, tapi hanya bisa untuk browse folder, sudah coba modif codingan itu, cari bantuan dari excel help, tapi tetep aja i've got no idea :)
> Terlampir project buatan Mbak Siti untuk pertanyaan  Chusk Soepono bertajuk "]] XL-mania [[ bekerja/memanipulasi nama file melalui Excel"
> blessings,
> tomz

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 83

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| oooppsss... 216 e-mails di folder sp4m kepencet [delete] :(       |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___