Re: [belajar-excel] Belajar Macro Excel

[Sofyan Efendi]

Baik Pak, ini contohnya:

Sub BukaFile()
    Dim MyPath As String
    Dim MyName As String
    MyPath = "D:\Opi\Excel\" '->Contoh folder
    MyName = Dir(MyPath)
    Do While MyName <> ""
        If Right(MyName, 4) = ".xls" Then Workbooks.Open Filename:=MyPath & 
MyName
        MyName = Dir
    Loop
End Sub

Sub TutupFile()
    Dim MyPath As String
    Dim MyName As String
    MyPath = "D:\Opi\Excel\" '->Contoh folder
    MyName = Dir(MyPath)
    Do While MyName <> ""
        If Right(MyName, 4) = ".xls" Then Workbooks(MyName).Close 
SaveChanges:=False
        MyName = Dir
    Loop
End Sub

Pak, untuk selanjutnya, mohon untuk pertanyaan excel di kirim saja langsung ke 
milis belajar excel ya Pak .... Terima kasih.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com
  ----- Original Message ----- 
  From: Hendro Supardi 
  To: [EMAIL PROTECTED] 
  Sent: Wednesday, May 28, 2008 4:29 PM
  Subject: Re: [belajar-excel] Belajar Macro Excel


  Assalamu’alaikum

   

  Pak Sofyan, 

  Mohon bantuan Bapak mengenai bagaimana perintah di macro untuk membuka dan 
membaca seluruh seluruh file yang ada dalam 1 folder dan menutup seluruh file 
tersebut tanpa save.

   

  Terima kasih atas bantuannya.

   

  Wassalam,

  Hendro Supardi