Hai Him Mah,
Deklarasi variabel seperti :
Dim fs As Scripting.FileSystemObject
menuntut dipastikannya bahwa pada references telah di-add (dicentang) class
terkait.
Untuk class scripting, pada references bisa dicari MS Scripting Runtime
(jika tidak ada, browse dan cari file scrrun.dll dan andai file tersebut
tidak ada, cari, install dan register ke komputer setempat).
Dengan deklarasi seperti tersebut di atas, maka init object pertama kali
akan selalu membutuhkan baris :
Set fs = New Scripting.FileSystemObject
Jika tidak ingin harus melakukan add references, maka bisa dilakukan
binding secara langsung. Deklarasi variabelnya adalah sebagai Object
dim fs as object
Kemudian init object bisa menggunakan :
Set fs = CreateObject("Scripting.FileSystemObject") 'untuk membuat
object baru dari class scripting
Pada class lainnya, bisa juga menggunakan GetObject
misal :
dim objXLNew as object
dim objXLOld as object
set objxlnew=createobject("Excel.Application") 'buat instansi Excel baru
set objxlold=getobject("Excel.Application") 'ambil instansi Excel yang
sudah aktif
Karena type varibel menggunakan Object (universal variabel Object), maka
biasanya akan lebih lambat. Taoi komputer sekarang kan udah pada canggih
tuh, jadi kayanya bisa gak terasa beda.
Wassalam,
Kid.
On Mon, Feb 18, 2013 at 4:15 PM, him mah <himmah....@gmail.com> wrote:
> **
>
>
> dear all, untuk edit dan run file bat dari excel VBA nya seperti apa ya
>
> setelah saya googling di internet ketemu VBA seperti ini
>
> Sub WriteAndRunBatFile()
> Dim fs As Scripting.FileSystemObject
> Dim file As TextStream
> Dim retVal
> Dim strFilePath As String
>
> strFilePath = "C:\AKU\aku.bat"
>
> Set fs = New Scripting.FileSystemObject 'Requires a reference to
> Microsoft Scripting Runtime
> 'Set fs = CreateObject("Scripting.FileSystemObject") 'does not require
> the reference
>
> Set file = fs.CreateTextFile(strFilePath)
>
> file.WriteLine "blah-blah"
> file.WriteLine "blah-blah"
> file.Close
>
> retVal = Shell(strFilePath)
>
> End Sub
>
> nah ketika dijalankan, error pada bagian
> Scripting.FileSystemObject
> "user defined type not defined"
>
> kira-kira solusinya seperti apa
>
>
