Mamang kira begini
Sub miningBASE()
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks("miningBASE.xls")
If wb Is Nothing Then Set wb = Workbooks.Open(":="X:\().Mining&_
Database\04. Database and Application Procedure\miningBASE.xls")
On Error Goto 0
Sheets("1a. DE Sample & Assaying").Select
End sub
--- In [email protected], "Posi, Yugustin \(PTI-SOR\)"
<yugustin.p...@...> wrote:
>
> Dear Bapak/Ibu,
>
> Mohon bantuannya,
>
> Saya mencoba membuat macro untuk membuka file tertentu.
>
> Bahasanya seperti berikut :
>
>
>
> Sub miningBASE()
>
> '
>
> ' Macro recorded 8/23/2009 by Yugustin Posi
>
> '
>
>
>
> '
>
> Workbooks.Open Filename:="X:\(). Mining Database\04. Database and
> Application Procedure\miningBASE.xls"
>
> Sheets("1a. DE Sample & Assaying").Select
>
> End Sub
>
>
>
> Mungkin teman-teman ada masukan, bahasa/cara yang lebih baik hingga bila
> file tersebut telah/sedang terbuka, dan kita menjalankan Sub miningBASE
> lagi, booknya tidak reopening tinggal mengaktifkan saja.
>
>
>
> Salam,
>
> Gusti
>
