Excel'de etkin çalışma kitabı (geçerli dosya) nasıl silinir?
Bir web sitesinden bir çalışma kitabı indirdiğinizi ve çalışma kitabının otomatik olarak açıldığını varsayalım. Ancak, çalışma kitabı uygun olmayabilir veya çalışma kitabı gerekli bilgileri içermiyor ve siz onu silmek istiyorsunuz. Bazen, muhtemelen indirilen dosyaların otomatik olarak kaydedildiği varsayılan dizini unutursunuz. Merak etmeyin, açılış / etkin çalışma kitabını doğrudan Excel'de kapatmadan silebiliriz.
Etkin çalışma kitabını (mevcut dosya) VBA ile sil
Bu çalışma kitabının seçili olduğu etkin çalışma kitabını içeren klasörü açmak için tek tıklama
Geçerli çalışma kitabını içeren klasörü / dizini hızlı bir şekilde açmak ve açılış klasöründe geçerli çalışma kitabının seçilmesini sağlamak için lütfen Kutools for Excel'i deneyin Klasör İçeren aç Yarar.
Etkin çalışma kitabını (mevcut dosya) VBA ile sil
Bu yöntem, açma / etkin çalışma kitabını Excel'de kapatmadan silmek için bir VBA sunacaktır. Lütfen aşağıdaki işlemleri yapın:
1. Tuşuna basın. Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için aynı anda tuşlarına basın.
2. tık Ekle > modül, aşağıdaki VBA kodunu kopyalayın ve açılan modül penceresine yapıştırın.
VBA: Etkin Çalışma Kitabını Excel'de kapatmadan silin
Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub
3. Tuşuna basın. F5 anahtar veya koşmak Bu VBA'yı çalıştırmak için düğmesine basın.
notlar:
(1) Bu VBA, etkin çalışma kitabını silebilir ancak Excel penceresini kapatamaz. Etkin çalışma kitabı silindikten sonra açılan çalışma kitabı yoksa, lütfen Excel penceresini manuel olarak kapatın.
(2) Etkin çalışma kitabı daha önce hiç kaydedilmediyse, bu VBA onu silemez. Ancak, bu kaydedilmemiş çalışma kitabını kapatarak doğrudan silebilirsiniz.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!