İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir fayl (iş kitabı) Excel-də açıq və ya qapalı olub olmadığını necə tez yoxlayırsınız?

Excel gündəlik işi, işləmək üçün birdən çox iş kitabını açırsınız, ancaq bəzən yüzlərlə iş kitabının xüsusi bir iş kitabının açıq və ya qapalı olub olmadığını xatırlamaq üçün başınızı pisleştirebilirsiniz. Faylları bir-birinə yoxlamaq üçün ənənəvi üsuldan imtina edin, burada bir iş kitabını açıq və ya qapalı bir şəkildə tapmaq üçün fəndləri təqdim edirəm.

Bir iş kitabının VBA ilə açıq və ya bağlanılmadığını yoxlayın

İş kitabının Excel üçün Kutools ilə açıq və ya bağlanılmadığını yoxlayın yaxşı fikir3


Naviqasiya Paneli - İş dəftəri və hesabatı (bütün açıq iş kitablarının siyahısı və bütün təbəqələrdir
Mövcud iş kitabının bölməsində siyahıdır, ona keçmək üçün hesabat adını tıklaya bilərsiniz.)

doc naviqasiya siyahısı səhifə

Bir iş kitabının VBA ilə açıq və ya bağlanılmadığını yoxlayın


Xüsusi bir iş kitabının açıq və ya qapalı olub olmadığını yoxlamaq üçün çalıştırabileceğiniz VBA kodu burada.

1. Basın Alt + F11 açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules sonra VBA-nı kopyalayıb yeni yapışdırın Modules pəncərə.

VBA: Bir iş kitabının açıq və ya qapalı olub olmadığını yoxlayın

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. Və mətbuat F5 bu VBA'yı çalıştırmak üçün bir tuşa basın və xüsusi bir iş kitabını açıq və ya hatırlatmadığı bir informasiya qutusu açılır.
doc 1 faylını açdıqdan sonra yoxlayın doc 2 faylını açdıqdan sonra yoxlayın

Ip ucu: Yuxarıdakı VBA-da "birləşdirmək"Yoxlamaq istədiyiniz iş kitabının adıdır, ehtiyacınız olduğu halda bunu edə bilərsiniz.


İş kitabının Excel üçün Kutools ilə açıq və ya bağlanılmadığını yoxlayın

VBA ilə tanış deyilsinizsə, bir iş kitabının açıq olub olmadığını kontrol edə bilərsiniz Excel üçün Kutoolsonunla birlikdə naviqasiya bölmənin iş dəftəri siyahısında bütün açıq iş kitablarını açıq şəkildə görməyə kömək edəcək bölmə.

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyinizi artırmaq və iş vaxtınızı qorumaqdır.

Sonra pulsuz yükləmə Excel üçün Kutools, aşağıdakıları edin:

1. klik Kutools > naviqasiya Naviqasiya bölməsini təmin etmək üçün. Ekran görüntüsünə baxın:
doc 3 faylını açdıqdan sonra yoxlayın

2. Sonra basın İş dəftəri və hesabatı düyməsinə getmək üçün paneli genişləndirmək İş dəftəri və hesabatı bölmə. Və bütün açıq iş kitablarını yuxarı siyahıda görə bilərsiniz. Ekran görüntüsünə baxın:
doc 4 faylını açdıqdan sonra yoxlayın

ilə naviqasiya pane, siz də siyahıda iş kitabları və ya təbəqələr arasında tez keçə bilərsiniz.

Naviqasiya haqqında daha ətraflı məlumat üçün buraya vurun.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    matheus · 6 months ago
    I add this to my code but im having some issues...

    I use ur function to check if a workbook with i take some information from is already open or not, if it is open, the macro msgbox the user, telling him to close the workbook and restart the macro, till here, everything ok, the problem is, after closing the workbook and restarting the macro, it keeps saying the workbook is open while its not, any tips?


    Code:


    Sub Check_BKG()

    Set wa = Nothing

    Confirmação = MsgBox("Deseja realizar a checagem de dados?", vbYesNo + vbExclamation, "Aviso Macro")
    If Confirmação = vbNo Then Exit Sub

    '--------------------------------------------------------------------------------------------'
    '////////////////////////////CHECANDO SE EXSH JÁ ESTA ABERTO\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
    '--------------------------------------------------------------------------------------------'
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("EXSH0101.xlsx")
    If xRet Then
    MsgBox "O arquivo EXSH0101 já está aberto, por favor, feche o arquivo antes de executar a macro novamente.", vbInformation, "ERRO EXSH0101"
    'MsgBox "The EXSH0101 file is already open, please close it before restart the macro.", vbInformation, "EXSH0101 ERROR"
    Exit Sub
    End If
    '--------------------------------------------------------------------------------------------'
    '////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
    '--------------------------------------------------------------------------------------------'

    With Application
    .EnableEvents = False
    .ScreenUpdating = False
    End With

    Call Abrir_Arquivos

    Call Setando_EXSH

    Call Inserir_Formulas

    With Application
    .EnableEvents = True
    .ScreenUpdating = True
    End With

    wb.Sheets("Inserir").Activate

    End Sub
  • To post as a guest, your comment is unpublished.
    Joe · 9 months ago
    Just want to make sure everyone is aware, the "IsWorkBookOpen" function will only be able to tell if a workbook is open in the current instance of Excel. If you have multiple instances open you would need to run it on each instance to be sure the workbook is (not) open, using this code alone.
  • To post as a guest, your comment is unpublished.
    Dawid · 9 months ago
    Wow, super VBA, simple and works. Thank you very much :)
  • To post as a guest, your comment is unpublished.
    Eddie · 1 years ago
    Excellent VBA, works great. Thanks.