Hot Fox: Re: ]] XL-mania [[ Excel Macro untuk membuka file yang nama dan letaknya bervariasi

quarta-feira, 27 de maio de 2009

Re: ]] XL-mania [[ Excel Macro untuk membuka file yang nama dan letaknya bervariasi

masih belum disebutkan :
KAPAN / ketika ada peristiwa apa, workbook tsb ingin terbuka ostosmastis ??
misal: kita tentukan: ketika cell F16 di klik atau "ketika" lainnya.

contoh lain: workbook ingin dibuka jika tombol "OPEN " diceklik..

kalo gitu: tombol (commandbutton1) diberi makro spt ini
Private Sub CommandButton1_Click()
OpenaBook Range("c4").Value, Range("c2").Value
End Sub

lalu ditulis pula makro (di module standar)

Sub OpenaBook(fdName As String, fName As String)
Workbooks.Open fdName & "\" & fName
End Sub

ini ceritaknya kita kan sambl praktek: membuat prosedur sub yg ada arguments-nya
gitu loch....

makro tsb menganggap bahwa folder dan file yg tertulis di cell c4 dan c2
memang benar-benar sudah ada.
kalo ternyata ndak ada, makro akan memunculkan ellol message yg tidak informatip.
(alias "ndak sofan")

kita masih dapat melengkapi makro tsb agar jika file atau folder ternyata tidak ada
maka msgBox (buatan sendiri) yg muncul cukup informatip dan sopan..
misal : "OB..., kata pak taka, file yg ingin sampeyan buka itu = ndak ada"

2009/5/27 Office Boy <boy.of.office@gmail.com>

Dear Bapak2x/Ibu Master Excel,

nubi ingin bertanya:
contoh script macro, yang bisa digunakan utk "open file" seolah2x
secara otomatis. User hanya perlu mengisi nama file dan letak file
(nama folder (folder tree secara lengkap)).

pada excel terlampir saya cantumkan contoh nama file = "test.xls" dan
letaknya di "D:\Data\TestInventory\Unresolved". (dimana kedua
parameter ini dapat diubah-ubah oleh user/saya.

mohon pencerahannya.

(kalau ternyata pertanyaan ini repost, mohon maaf, minta tolong link
or kata kunci utk search di groups-nya :p)

sebelumnya terima kasih banyak.

Salam,
pras

__._,_.___

Messages in this topic (2) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Uanggggg... di manakah kau beradaaaa?                             |
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

$9000/Month at Home. Learn how Part Time, online!.

I made $5,827 last week.. Find out How. Part Time!.

Mom Power: Discover the community of moms doing more for their families, for the world and for each other