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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

accessdelisi

Gümüş Ü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
 479
 11.966
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,19:23
Çö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

Gümüş Ü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ü Access 2010 Da Açılan Proje Access 2016 Da Açılmıyor.(Her İki Bilgisayarda 64 Bit) Oğuz Türkyılmaz 2 78 05/03/2019, 17:06
Son Yorum: haliliyas
Çözüldü Excel Kargo Takip Uygulamasi Yardim ecan81 2 280 04/02/2019, 10:46
Son Yorum: ecan81
Çözüldü Bir Formdan Başka Açık Bir Formda Bulunan Altformdaki Bir Alana Setfocus Yaptırabilme hbal09 2 138 11/01/2019, 16:20
Son Yorum: Allback
Çözüldü İstenilen Zamanda Bilgisayarı Kapatma. barcins 8 184 11/01/2019, 15:30
Son Yorum: barcins
Çözüldü Ms Access Excel Veri Alma Sorunu / Ms Access Import Data hakkih 13 1.839 10/01/2019, 21:40
Son Yorum: hakkih

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