Ana içeriğe atla

Excel'deki mevcut dosyanın üzerine otomatik olarak yazmak için Farklı Kaydet işlevi nasıl kullanılır?

Bir Excel çalışma kitabını yeni bir klasöre kaydederken, aynı ad çalışma kitabı varsa ve klasörde bulursa, aşağıdaki ekran görüntüsü gibi bir istem kutusu alırsınız. Anlık uyarı mesajı olmadan mevcut dosyanın üzerine otomatik olarak nasıl yazılır? Bu makaledeki yöntem size yardımcı olabilir.

VBA kodu ile mevcut dosyanın üzerine otomatik olarak yazmak için farklı kaydet işlevi


VBA kodu ile mevcut dosyanın üzerine otomatik olarak yazmak için farklı kaydet işlevi

Bir çalışma kitabını yeni bir adla kaydetmek ve otomatik olarak Excel'deki mevcut dosyanın üzerine yazmak istiyorsanız. Lütfen aşağıdaki işlemleri yapın.

1. Öncelikle, çalışma sayfanızdaki Farklı Kaydet işlevini tetiklemek için lütfen bir Komut Düğmesi oluşturun. lütfen tıklayın Geliştirici > Ekle > Komut Düğmesi (Aktif X Kontrolü). Ekran görüntüsüne bakın:

2. Çalışma sayfanıza bir Komut Düğmesi çizin. Ardından sağ tıklayın ve seçin Kodu Görüntüle bağlam menüsünden.

3. içinde Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki VBA kodunu kopyalayın ve arasına yapıştırın. Özel Sub ve End Sub satırları Kod pencere.

VBA kodu: Mevcut dosyanın üzerine otomatik olarak yazmak için farklı kaydet işlevi

Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
  xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
  xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
  ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True

4. Tuşuna basın. Ara Toplam + Q çıkış tuşları Uygulamalar için Microsoft Visual Basic pencere. Ve kapat Tasarım Modu altında Geliştirici sekmesi.

5. Komut Düğmesine tıklayın, ardından a Farklı Kaydet iletişim kutusu açılır, lütfen bu çalışma kitabını kaydetmek için bir klasör seçin ve ardından İndirim düğmesine basın.

Hedef klasörde aynı adda bir çalışma kitabı varsa, sorulmadan doğrudan geçerli çalışma kitabıyla otomatik olarak üzerine yazılacaktır.


İlgili Makaleler:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

Açıklama


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Step-by-step instructions should not contain "please." It's inane, not polite—the instructions are for something we already want to do; in fact, we probably sought them out deliberately.
This comment was minimized by the moderator on the site
Hi,Thanks for your advice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations