Menutup Excel jika tidak ada file abc

  1. 5 tahun lalu

    selmat pagi para master excel.
    jadi begini saya memiliki file excel macro enable (utama.xlsm) yng mana saya ingin agar setiap kali file ini dibuka, ada kode macro yng dijalankan yang kira-kira isinya seperti ini:
    "jika file abc.xls ada di dirve D:\Test, maka muncul kotak pesan. tapi jika file abc.xls tidak ada maka file utama.xslm (aplikasi excelnya) akan ditutup secara otomatis"

    sebelumnya saya ucapkan trimakasih sudah diijinkan bergabung di forum.

    cobakode ini

    Dim NamaFile As String
    NamaFile = "D:\Test\abc.xls"
    If Dir(NamaFile) <> "" Then
      MsgBox "File ditemukan, silahkan lanjutkan"
      Else
      MsgBox "Maaf, file TIDAK ditemukan."
      Application.Quit
      ThisWorkbook.Close False
    End If

    semoga membantu

  2. excelive

    20 Jul 2019 Jawaban Terpilih + 92 Poin

    cobakode ini

    Dim NamaFile As String
    NamaFile = "D:\Test\abc.xls"
    If Dir(NamaFile) <> "" Then
      MsgBox "File ditemukan, silahkan lanjutkan"
      Else
      MsgBox "Maaf, file TIDAK ditemukan."
      Application.Quit
      ThisWorkbook.Close False
    End If

    semoga membantu

  3. trimaksih kak
    persis sperti yg saya harapkan

 

atau Mendaftar untuk ikut berdiskusi!