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

access_delisi

Aktif Üye
20
Ah.... Fu.... Ce....
 41
 63
 401
 30/10/2008
17
 -
 Yönetici
 Ofis 2016 64 Bit
 18/06/2019,12:02
Çö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...

ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,20:53
Çö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. 

...........
access_delisi

access_delisi

Aktif Üye
20
Ah.... Fu.... Ce....
 41
 63
 401
 30/10/2008
17
 -
 Yönetici
 Ofis 2016 64 Bit
 18/06/2019,12:02
Çö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ü Excel Kodu Access Koda Çevirmek C*e*l*o*y*c*e 3 175 18/05/2019, 01:34
Son Yorum: C*e*l*o*y*c*e
Çözüldü Excel Kitaplar Arası Geçişte Problem ertus35 20 506 11/05/2019, 02:36
Son Yorum: ertus35
Çözüldü EXCEL e Access Tablosundaki İstediğimiz alanları ve veriyi atma blacksir 4 3.765 16/04/2019, 21:49
Son Yorum: next
Çözüldü Access 2010 Da Açılan Proje Access 2016 Da Açılmıyor.(Her İki Bilgisayarda 64 Bit) Oğuz Türkyılmaz 2 171 05/03/2019, 17:06
Son Yorum: halily
Çözüldü Excel Kargo Takip Uygulamasi Yardim ecan81 2 411 04/02/2019, 10:46
Son Yorum: ecan81

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