Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
20/09/2017 12:20
Konu Sahibi
accessdelisi
Yorumlar
2
Okunma
73
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

accessdelisi

Aktif Üye*
Ah.... Fu.... Ce....
 41
 82
 392
 30/10/2008
17
 -
 Yönetici
 Ofis 2016 64 Bit
 13/01/2019,02:34
Çözüldü 
Merhaba, konu başlığında da belirttiğim gibi, forma eklediğim butonu tıkladığımda belirli Excel belgesinin açık olup olmadığını nasıl denetleyebilirim? Ve bu açık Excel belgesini kod ile nasıl kapatabilirim.


SÖZ VERİYORUM... USLU DURUCAM...

Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.718
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:15
Çözüldü 
Merhaba. Modüle ekleyeceğiniz


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function IsWorkbookOpen(ByVal strWorkBookName As String) As Boolean

    Dim objExcel As Object
    Dim varWorkbook As Variant
On Error GoTo ExitFunction
    Set objExcel = GetObject(, "Excel.Application")
    For Each varWorkbook In objExcel.Workbooks
        If varWorkbook.Name = strWorkBookName Then
            IsWorkbookOpen = True
            Exit For
        End If
    Next
ExitFunction:
    Set objExcel = Nothing
    
End Function



kodu ile Excel belgesinin açık olup olmadığını denetleyebilirsiniz. Kodun kullanımı:


Visual Basic Code
If IsWorkbookOpen("excelbelgesininadi.xlsx") = True Then
msgbox("belge açık")
end if


Şeklindedir.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim GExcelBelgesi As String
Dim xlApp As Object
Dim wb As Workbook

GExcelBelgesi = CurrentProject.Path & "\deneme.xlsx"

If IsWorkbookOpen("deneme.xlsx") = True Then

    Set xlApp = GetObject(, "Excel.Application")
    xlApp.Application.ScreenUpdating = False
    xlApp.Visible = True
    
    Set wb = xlApp.Workbooks.Open(GExcelBelgesi, True, False)


    xlApp.Application.ScreenUpdating = True
    wb.Save
    wb.Close False
    
    xlApp.Quit
    Set xlApp = Nothing

End If


Kodu ile de açık olan Excel belgesini kapatabilirsiniz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

accessdelisi

Aktif Üye*
Ah.... Fu.... Ce....
 41
 82
 392
 30/10/2008
17
 -
 Yönetici
 Ofis 2016 64 Bit
 13/01/2019,02:34
Çözüldü 
ozan bey çok tesekkur ederim.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bir Formdan Başka Açık Bir Formda Bulunan Altformdaki Bir Alana Setfocus Yaptırabilme hbal09 2 73 11/01/2019, 16:20
Son Yorum: Allback
Çözüldü İstenilen Zamanda Bilgisayarı Kapatma. barcins 8 104 11/01/2019, 15:30
Son Yorum: barcins
Çözüldü Ms Access Excel Veri Alma Sorunu / Ms Access Import Data hakkih 13 1.705 10/01/2019, 21:40
Son Yorum: hakkih
Çözüldü Dosya Açık mı kontrolü bibib 6 244 13/12/2018, 23:58
Son Yorum: bibib
Çözüldü Access' Den Excel Sayfalarına Veri Gönderme aydint33 5 208 10/12/2018, 15:59
Son Yorum: aydint33

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.