coba mas pake ini

Dim objXL As Object

    On Error Resume Next

    Set objXL = GetObject(, "Excel.Application")
    Set objXL = GetObject("C:\Documents and Settings\nur\My 
Documents\Filtering Trans.xls")

    objXL.Application.Visible = True
    objXL.Parent.Windows(1).Visible = True


Nurhasim

--- In [email protected], ara Firmansyah 
<[EMAIL PROTECTED]> wrote:
>
> Asslamualaikum Wr.Wb
> 
> Mohon bantunnya pada para suhu access,
> gimana cara buka file excel dari form
> 
> Wassalam,
> 
> 
>        
> ---------------------------------
> Looking for last minute shopping deals?  Find them fast with Yahoo! 
Search.
>


Kirim email ke