Note: The other languages of the website are Google-translated. Back to English

Excel dosyasını hücre değeriyle nasıl kaydedebilirim?

Bir çalışma kitabını kullandığınızda, Excel dosyasını hücre içeriğine göre kaydetmeyi hiç düşündünüz mü? Örneğin, A1 hücresinde "Satış fiyatı" var ve çalışma kitabını Satış fiyatı adı olarak kaydetmek istiyorsunuz. Elbette, adı Farklı Kaydet iletişim kutusuna yazabilir ve ardından kaydedebilirsiniz. Ancak bu, iş miktarınızda verimsiz bir yöntem olacaktır. Bugün bunu çözmek için hızlı bir numaradan bahsedeceğim.

VBA kodunu kullanarak Excel dosyasını belirli hücre değeriyle kaydedin

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
  • 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
  • Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
  • Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
  • Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
  • Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
  • 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.

ok mavi sağ balon VBA kodunu kullanarak Excel dosyasını belirli hücre değeriyle kaydedin

Aşağıdaki VBA kodu, çalışma kitabınızı belirli bir hücre değeriyle kaydetmenize yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Excel dosyasını belirli hücre değeriyle kaydedin

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Ve sonra tuşuna basın. F5 kodu yürütmek için anahtar ve çalışma kitabınız A1 hücresinin hücre içeriği olarak adlandırılmıştır. Ekran görüntüsüne bakın:

hücre değeri-1 ile belge-kaydetme

Notlar:

1. Yukarıdaki kodda A1'i diğer hücre referansına değiştirerek dosya adı olarak herhangi bir hücre değerini belirtebilirsiniz.

2. Etkin çalışma kitabınız şu klasörüne kaydedilecektir: C: \ Kullanıcılar \ dt \ Masaüstü \ bilgilerim \ (son eğik çizgi yerine konumunuzu yapıştırdığınızda kalmalıdır), ihtiyacınıza giden yolu değiştirebilirsiniz.


İlgili yazılar:

Excel'de tarih ve saatle dosya nasıl kaydedilir?

Excel'de başlık çubuğunda veya araç çubuğunda dosya yolu nasıl gösterilir?


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (33)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
modül .XlsX dosyasına kaydetmez ; satır 7 ile ilgisi olduğunu düşünüyorum;; ".xls", FileFormat:=xlNormal; Ayrıca, birleştirilmiş 3 farklı hücreden değeri almak için nasıl değiştirebilirim? örneğin: ad, soyadı, tarih; kodun 6. satırında?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Dosya adını Dize olarak karart
Dosyaadı1'i Dizge Olarak Karart
Dosyaadı2'i Dizge Olarak Karart

Yol = "C:\Kullanıcılar\dt\Masaüstü\bilgilerim\"
dosya adı = Aralık ("A1")
dosyaadı1 = Aralık("A2")
dosyaadı2 = Aralık("A3")
ActiveWorkbook.SaveAs filename:=Yol ve dosya adı & "-" & dosyaadı1 & "-" & dosyaadı2 ".xls", FileFormat:=xlNormal
Bu yorum sitedeki moderatör tarafından en aza indirildi
Chris. Bunu ayrı bir hücrede birleştirebilir ve ardından o hücreye dosya adı değeriniz olarak başvurabilirsiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Mine sadece yol ve dosya adı olarak kaydedilecek. Yalnızca hücreden başvurulan dosya adının yalnızca kaydedilmesini istiyorum. Lütfen bana yardım edebilir misin?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu oldukça güzel... ama nasıl düzelteceğimi bilmediğim bir hata var gibi görünüyor. Bunu makro etkin bir şablonda kullanıyorum. Şablonu açıyorum, değişiklikler/güncellemeler yapıyorum, makroyu çalıştırmak için F5'e basıyorum... ve... bir "Referans" girmemi bekleyen bir "Git" iletişim kutusu açılıyor. Ancak, ALT tuşuna basarsam F11 ve SONRA F5'e basın, yeni .xls dosyası beklendiği gibi kaydedilir. Bu "kaydet" prosedürünü çalıştırmak için her zaman Visual Basic modülünü açmam gerekir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kullanıcının alanlardan birine girilen tarihe göre adlandırılmış dosyayı kaydetmesi için üzerine yazılmasını istemediğim bir şablonum var. Kullanıcının araçları açmasını ve ardından makroyu seçmesini/çalıştırmasını istemiyorum. Dosya adını da girebilirler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
=ŞİMDİ()'yi Makro'ya çıkarmadan önce hücredeki dosya adınıza bir parametre olarak ekleyebilirsiniz (ve ayrıca sayfanın köşesine standart bir düğme yerleştirin, böylece çalışan herhangi bir araç açmak zorunda kalmaz
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sizler cankurtaransınız. Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
.csv dosyası olarak kaydetmem gerekiyor. .csv dosyası olarak kaydetmesini sağlamak için bunu nasıl değiştiririm? Private Sub filename_cellvalue() 'Güncelleme 20141112 Yolu Dize Olarak Karart Dosya adını As Dize Yolu = "C:\Doorlister\import\DoorJob\" dosyaadı = Aralık("AC2") ActiveWorkbook.SaveAs dosyaadı:=Yol ve dosya adı & ".xls ", FileFormat:=xlNormal End Sub Yardımlarınız için şimdiden teşekkür ederiz!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sanırım burada yanlış bir şey yaptım...

Sheets("shitname") satırında bana bir hata veriyor.Seç

Muhtemelen K10 hücresi gibi "bok adı" olarak adlandırırken yanlış bir şey yaptım.

Sayfayı tam olarak K10 hücresi gibi adlandırılan başka bir sayfayla değiştirmek istiyorum


' gicsel makro
'
' Klavye Kısayolu: Ctrl+Shift+C
'
Selection.Copy
Sayfalar("debagat").Seç
Satırlar("8:8").Seç
ActiveSheet.Paste
Yolu Dize Olarak Karart
Yol = "C:\cgxml\"
Dosya adını Dize olarak karart
dosya adı = Aralık ("A8")
Dim bok adı As String
bok adı = Aralık ("K10")
Sayfalar("bok adı").Seçin
Application.CutCopyMode = Yanlış
ActiveWorkbook.SaveAs filename:=Yol ve dosya adı & ".xml", FileFormat:=xltxt, CreateBackup:=False
Sayfalar("TOPLAM").Seçin
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika çalışıyor... Teşekkürler, ancak PDF olarak kaydetmem gerekiyor... Herhangi bir düşünceniz var mı?

Teşekkürler

Chris
Bu yorum sitedeki moderatör tarafından en aza indirildi
yukarıdakiyle aynı, ancak ActiveWorkbook.SaveAs'ı şununla değiştirin: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=Doğru, IgnorePrintAreas:=Yanlış, _
OpenAfterPublish:=Doğru
Bu yorum sitedeki moderatör tarafından en aza indirildi
Geri bildiriminiz için teşekkürler, bana çok yardımcı oldu.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Etkin çalışma sayfasını kaydetmek istiyorsam ancak sayfa 1 hücre değerini kullanmak istersem ne eklemeliyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Lütfen yardım edin... Her şeyi yapmayı başardım. Ancak dokümanları belirtilen sunucu yerine Belgelerim'e kaydeder...



Özel Alt KomutDüğmesi1_Click ()
Yolu Dize Olarak Karart
DosyaAdı1'i Dize Olarak Karartın
DosyaAdı2'i Dize Olarak Karartın
DosyaAdı3'i Dize Olarak Karartın
DosyaAdı4'i Dize Olarak Karartın
DosyaAdı5'i Dize Olarak Karartın
Yol = "J:\Koruma Hizmetleri\Belgeler\Booysendal güvenliği"
DosyaAdı1 = Aralık("A2")
DosyaAdı2 = Aralık("B2")
DosyaAdı3 = Aralık("C2")
DosyaAdı4 = Aralık("D2")
DosyaAdı5 = Aralık("E2")
ActiveWorkbook.SaveAs Dosya Adı:=DosyaAdı1 & "-" & DosyaAdı2 & "-" & DosyaAdı3 & "-" & DosyaAdı4 & "-" & DosyaAdı5 & ".xls", DosyaFormat:=xlNormal
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Güvenlikten sonra ve alıntıdan önce bir ters eğik çizgi ekleyin... ...güvenlik\"
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ya sadece dosya adını tanımlamak, ancak her kaydettiğinizde dosya yolunu seçme seçeneğine sahip olmak istiyorsanız?

Ayrıca dosya adı için birden çok hücre belirtebilirsiniz. Hücreler de birleştirilir.

Her seferinde farklı dosya yollarına kaydedin

Dosya adı için birden çok hücre kullanın
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tamam, bu yüzden bir sayfa içi düğmeyi kullanarak bu işi iyi yaptım. Şimdi, ilk farklı kaydetme işleminden sonra normal olarak kaydetmesini istiyorum. Bu yapılabilir mi? Aynı kaydet düğmesini mi kullanıyorsunuz?
Teşekkürler Bruce
Bu yorum sitedeki moderatör tarafından en aza indirildi
birden çok sayfayı hücre değerleriyle dosya adları olarak kaydetmek için bir makro nasıl oluşturulur
Teşekkürler,
Rajiv
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tüm hi!

Aynı hücrelerde, diğer hücrelerde tekrarlayan girdileri bir Makro ile nasıl kaydedebilirim?

Sayfa1'de A1, B1, C1'e günde n kez veri giriyorum. Sayfa2'de, tüm bu kayıtları A2, B2, C2, A3, B3, C3, vs.'ye kaydetmem gerekiyor. Tnx!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba arkadaşlar,
Bir sorunum var ve bana yardım edecek biri varsa sevinirim
"F" sürücüsünde ve "ABS" klasöründe bir dosyam var - dosya adım "Listdata"
Masaüstümdeki bir Excel dosyasında, hücrelerin (4,4) "ABS" sayfasından (1) ve hücreden (2,2) veri almasını istiyorum
Aşağıdaki kod
Alt Macro1 ()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
ama düzgün çalışmıyor
Teşekkürler arkadaşlar
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu kodu kullanmaya çalışıyorum ama çalıştırmayı denediğimde çalışma zamanı 1004 hatası alıyorum ve 7. satırı geçersiz olarak vurguluyor: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
Bunu nasıl çözebilirim? office 365 kullanıyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir açık plan dışında bir referans referans hücreniz var mı? Nasılsın?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba. Çalışabileceği için çok heyecanlıyım ama benim için "TEMEL çalışma zamanı hatası. Sob-prosedür veya fonksiyon prosedürü tanımlanmadı" diyor. ve 6. satırı gösteren ok. Ne yapmalıyım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Halihazırda çalışmakta olan belirli bir konuma belirli bir adla PDF olarak kaydetmek için bir kontrol düğmem var, ancak dosya adı etkin sayfanın adı artı başka bir sayfadaki belirli bir hücrenin değeri olduğundan kodu değiştirmek istiyorum. Bunu nasıl yaparım? PDF olarak kaydetmek için sahip olduğum şey bu:


Özel Alt KomutDüğmesi1_Click ()
Application.ScreenUpdating = Yanlış
ActiveSheet.ExportAsFixedFormat Türü:=xlTypePDF, _
dosyaadı:="\\U:\Belgeler\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = Yanlış
Application.ScreenUpdating = True
End Sub

Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herhangi biri bir çözüme yardımcı olabilir mi, hücre boş değilse çıktıyı doğru bir şekilde almayı başardım

Özel Alt Kayıtlar()

Dize yolu Dize olarak

Dosyaadı1'i Dizge Olarak Karart



yol = "C:\Kullanıcı\Compwork\"



filename1 = path & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTEror "

Application.DisplayAlerts = Yanlış

ActiveWorkbook.Saveas dosyaadı1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("rapor").ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = True

ActiveWorkbook.Close



End Sub



Ancak benim sorunum, örneğin hücre değeri NULL ise boşluk bırakmadan bir dosya adını kaydetmek istiyorum, eğer G6 değeri boşsa "G4-H7 VTError" çıktısını seviyorum.
Buna yaklaşmanın bir yolu var mı?


Teşekkürler.
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır