1. Buat Module spt di bawah
2. Panggil fungsi BukaXLS di Command On Click
Function BukaXLS()
On Error Resume Next
Dim DataXLS
DataXLS = Shell("C:\RSMus\CHART01.xls", 1)
End Function
Salam,
Agung Hend
=============================================================
--- In belajar-access@yahoogroups.com, Hendra Agestha Hamid <the_agestha@...> wrote:
>
> Dear rekan2 milis,
>
> Bagaimana kode VBA pada sebuah command button on click untuk membuka sebuah
> file, misal sebuah file excel
> tapi tidak dengan menggunakan hyperlink. Terima kasih banyak atas bantuannya
>
> Regards
> Hendra
>
------------------------------------
SPAM IS PROHIBITEDYahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)
<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
No comments:
Post a Comment