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

Birden çok çalışma kitabını Excel'de tek bir ana çalışma kitabında nasıl birleştirebilirim?

Excel'de bir ana çalışma kitabında birden çok çalışma kitabını birleştirmeniz gerektiğinde hiç takıldınız mı? En korkunç şey, birleştirmeniz gereken çalışma kitaplarının birden çok çalışma sayfası içermesidir. Ve birden çok çalışma kitabının yalnızca belirtilen çalışma sayfalarını tek bir çalışma kitabında nasıl birleştirebilirim? Bu öğretici, sorun adımlarını adım adım çözmenize yardımcı olacak birkaç yararlı yöntemi gösterir.


Taşı veya Kopyala işleviyle birden çok çalışma kitabını tek bir çalışma kitabında birleştirin

Yalnızca birkaç çalışma kitabının birleştirilmesi gerekiyorsa, çalışma sayfalarını orijinal çalışma kitabından ana çalışma kitabına el ile taşımak veya kopyalamak için Taşı veya Kopyala komutunu kullanabilirsiniz.

1. Bir ana çalışma kitabına birleştireceğiniz çalışma kitaplarını açın.

2. Özgün çalışma kitabındaki ana çalışma kitabına taşıyacağınız veya kopyalayacağınız çalışma sayfalarını seçin.

Notlar:

1). Birden çok bitişik olmayan çalışma sayfasını, Ctrl tuşuna ve sayfa sekmelerine tek tek tıklayarak.

2). Birden çok bitişik çalışma sayfası seçmek için, lütfen ilk sayfa sekmesine tıklayın, vardiya tuşuna basın ve ardından hepsini seçmek için son sayfa sekmesine tıklayın.

3). Herhangi bir sayfa sekmesine sağ tıklayabilir, Tüm Sayfaları Seç çalışma kitabındaki tüm çalışma sayfalarını aynı anda seçmek için bağlam menüsünden.

3. Gerekli çalışma sayfalarını seçtikten sonra, sayfa sekmesine sağ tıklayın ve ardından Taşı veya Kopyala bağlam menüsünden. Ekran görüntüsüne bakın:

4. Sonra Taşı veya Kopyala iletişim kutusu açılır, Kitaba açılır, çalışma sayfalarını taşıyacağınız veya kopyalayacağınız ana çalışma kitabını seçin. İçinde sona taşı seçin Sayfadan önce kutusu, kontrol edin Bir kopya oluştur kutusunu seçin ve son olarak OK düğmesine basın.

Ardından, iki çalışma kitabındaki çalışma sayfalarını bir arada görebilirsiniz. Çalışma sayfalarını diğer çalışma kitaplarından ana çalışma kitabına taşımak için lütfen yukarıdaki adımları tekrarlayın.


Birden çok çalışma kitabını veya belirtilen çalışma kitabını VBA ile ana çalışma kitabında birleştirin

Birden fazla çalışma kitabının tek bir çalışma kitabında birleştirilmesi gerekiyorsa, hızlı bir şekilde elde etmek için aşağıdaki VBA kodlarını uygulayabilirsiniz. Lütfen aşağıdaki işlemleri yapın.

1. Birleştirmek istediğiniz tüm çalışma kitaplarını aynı dizinin altına koyun.

2. Bir Excel dosyası başlatın (bu çalışma kitabı ana çalışma kitabı olacaktır).

3. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi. İçinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül, ardından VBA kodunu Modül penceresine kopyalayın.

VBA kodu 1: Birden çok Excel çalışma kitabını tek bir çalışma kitabında birleştirin

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

Notlar:

1. Yukarıdaki VBA kodu, birleştirmeden sonra orijinal çalışma kitaplarının sayfa adlarını koruyacaktır.

2. Ana çalışma kitabındaki hangi çalışma sayfalarının birleştirmeden sonra nereden geldiğini ayırt etmek istiyorsanız, lütfen aşağıdaki VBA kodu 2'yi uygulayın.

3. Çalışma kitaplarının belirtilen çalışma sayfalarını bir ana çalışma kitabında birleştirmek istiyorsanız, aşağıdaki VBA kodu 3 yardımcı olabilir.

VBA kodlarında, "C: \ Kullanıcılar \ DT168 \ Masaüstü \ KTE \"Klasör yoludur. VBA kodu 3'te "Sayfa1, Sayfa3", bir ana çalışma kitabıyla birleştireceğiniz çalışma kitaplarının belirtilen çalışma sayfalarıdır. Bunları ihtiyaçlarınıza göre değiştirebilirsiniz.

VBA kodu 2: Çalışma Kitaplarını bire birleştirin (her çalışma sayfası, orijinal dosya adının önekiyle adlandırılacaktır):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

VBA kodu 3: Çalışma kitaplarının belirtilen çalışma sayfalarını bir ana çalışma kitabına birleştirin:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ardından, belirli bir klasördeki çalışma kitaplarının tüm çalışma sayfaları veya belirtilen çalışma sayfaları, aynı anda bir ana çalışma kitabıyla birleştirilir.


Birden çok çalışma kitabını veya belirtilen çalışma kitabını tek bir çalışma kitabında kolayca birleştirin

Neyse ki, Birleştirmek çalışma kitabı faydası Kutools for Excel birden çok çalışma kitabını tek bir çalışma kitabında birleştirmeyi çok daha kolay hale getirir. Bu işlevi birden çok çalışma kitabını birleştirerek nasıl çalıştıracağımızı görelim.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Yeni bir çalışma kitabı oluşturun ve Kutools Artı > Birleştirmek. Ardından, birleştirilmiş tüm çalışma kitaplarının kaydedilmesi gerektiğini ve özelliğin korumalı çalışma kitaplarına uygulanamayacağını hatırlatmak için bir iletişim kutusu açılır, lütfen OK düğmesine basın.

2. içinde Çalışma Sayfalarını Birleştirin sihirbaz, seçin Çalışma kitaplarından birden çok çalışma sayfasını tek bir çalışma kitabında birleştirin seçeneğini ve ardından Sonraki buton. Ekran görüntüsüne bakın:

3. içinde Çalışma Sayfalarını Birleştirin - Adım 2/3 iletişim kutusunda, Ekle > fileto or Dosya Excel dosyalarını eklemek için birleştireceksiniz. Excel dosyalarını ekledikten sonra, Bitiş düğmesine tıklayın ve ana çalışma kitabını kaydetmek için bir klasör seçin. Ekran görüntüsüne bakın:

Şimdi tüm çalışma kitapları bir araya getirildi.

Yukarıdaki iki yöntemle karşılaştırıldığında, Kutools for Excel aşağıdaki avantajlara sahiptir:

  • 1) Tüm çalışma kitapları ve çalışma sayfaları iletişim kutusunda listelenir;
  • 2) Birleştirmeden hariç tutmak istediğiniz çalışma sayfaları için işaretini kaldırmanız yeterlidir;
  • 3) Boş çalışma sayfaları otomatik olarak hariç tutulur;
  • 4) Orijinal dosya adı, birleştirmeden sonra sayfa adının önüne eklenecektir;
  • Bu özelliğin daha fazla işlevi için, lütfen burayı ziyaret edin.

  Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


Excel için Kutools - Her Zaman Zamanının Ötesinde Çalışmanızı Bitirmenize, Hayatın Keyfini Çıkarmak için Daha Fazla Zamana Sahip Olmanıza Yardımcı
Kendinizi sık sık işe yetişirken, kendinize ve ailenize harcayacak zamanın olmadığını mı buluyorsunuz?  Kutools for Excel başa çıkmanıza yardımcı olabilir kârimizin %80 Excel bulmacaları ve iş verimliliğini %80 artırın, size ailenizle ilgilenmek ve hayatın tadını çıkarmak için daha fazla zaman verin.
300 çalışma senaryosu için 1500 gelişmiş araç, işinizi her zamankinden çok daha kolay hale getirir.
Artık formülleri ve VBA kodlarını ezberlemenize gerek yok, bundan sonra beyninizi dinlendirin.
Karmaşık ve tekrarlanan işlemler, saniyeler içinde tek seferlik bir işlem yapılabilir.
Her gün binlerce klavye ve fare işlemini azaltın, meslek hastalıklarına şimdi veda edin.
3 dakika içinde Excel uzmanı olun, hızlı bir şekilde tanınmanıza ve maaş zammı promosyonuna yardımcı olun.
110,000 son derece etkili insan ve 300'den fazla dünyaca ünlü şirketin seçimi.
39.0 $ 'lık değeri 4000.0 $' dan fazla olan başkalarının eğitimini yapın.
Tam özellikli ücretsiz deneme 30-gün. Sebepsiz 60 Günlük Para İade Garantisi.

Yorumları sıralama ölçütü
Yorumlar (146)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Plz, aşağıdaki durumda bana yardım et. Her biri farklı yollarda 5'ten fazla çalışma sayfasına sahip farklı çalışma kitabım var. Farklı çalışma kitabındaki tüm çalışma sayfalarını tek bir çalışma kitabında birleştirmem gerekiyor. Herkes macro.TIA ile çözmeme yardım edebilir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Merhaba Plz aşağıdaki durumda bana yardım edin. Her biri farklı yollarda 5'ten fazla çalışma sayfasına sahip farklı çalışma kitabım var. Farklı çalışma kitabındaki tüm çalışma sayfalarını tek bir çalışma kitabında birleştirmem gerekiyor. Herkes macro.TIA ile çözmeme yardım edebilir mi?A. Karthi tarafından[/quote] Lütfen Kutools for Excel'i indirip yükleyin, hızlı bir şekilde yapabilirsiniz. Ancak bir VBA kullanmak istiyorsanız, çok karmaşık olabilir. Nasıl yapılacağı hakkında daha fazla bilgi için lütfen şu adresi ziyaret edin:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Bu yorum sitedeki moderatör tarafından en aza indirildi
KUTOOLS Harika bir çözüm. Ana çalışma kitabı oluşturduğumda bir yardıma daha ihtiyacım var, ardından çalışma sayfasının hücre rengi orijinal çalışma sayfasından değiştiriliyor. Orijinal çalışma sayfası gibi nasıl tutabilirim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Büromuzda birçok excel orijinalinden veri (örn. isim, adres, şehir, miktar, imza tarihi) çoğaltılmıştır ve verileri birleştirmeye çalışmak devam eden bir çalışma olacaktır. Çifte çalışma ve çifte bilgi girişlerini ortadan kaldırmak için bu nasıl yapılabilir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
'Çalışma zamanı hatası 1004' alıyorum, Çalışma Sayfası sınıfının Kopyalama Yöntemi şu satırda başarısız oldu: Sheet.Copy After:=ThisWorkbook.Sheets(1). Excel 2010 kullanıyorum. Yardımcı olabilir misiniz? Teşekkürler, - Susie
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hey Susie, bir süredir bu problem üzerinde çalışıyorum, aynı hatayı alıyorum. Modülün aktif çalışma kitabınız yerine KİŞİSEL altında oluşturulup oluşturulmadığını kontrol edin. Modülü doğru ağacın altında oluşturduğumda, aşağıdaki kod gayet iyi çalıştı. Sub GetSheets_xls() Dim Sheet As Worksheet Path = "C:\Users\yournamehere\Desktop\Testingfolder\" Dosya Adı = Dir(Yol ve "*.xls") Dosya Adı Sırasında Yap "" Çalışma Kitapları. Dosya Adını Aç:=Yol ve Dosya Adı, ReadOnly:=False Set Sheet = ActiveWorkbook.Sheets(1) Sheet.Copy After:=ThisWorkbook.Sheets(1) 'Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub Umarım bu yardımcı olur!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler. Kodunuz iyi çalıştı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Bir 'çalışma zamanı hatası 1004' alıyorum, Çalışma Sayfası sınıfının Kopyalama Yöntemi şu satırda başarısız oldu: Sheet.Copy After:=ThisWorkbook.Sheets(1). Excel 2010 kullanıyorum. Yardımcı olabilir misiniz? Teşekkürler, - SusieSusie tarafından[/quote] Aynı sorun vardı, "KİŞİSEL"i görüntüleyip gösterdiğimde çalışıyor, ana gizliyken bu makroya erişmekte sorun yaşıyor gibi görünüyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
"KİŞİSEL"i görüntüleyin ve gösterin - ana kod gizliyken tüm kodu yürütmekte sorun yaşıyor gibi görünüyor. Makroyu o çalışma kitabına özgü yapabilirsiniz, ancak her kullanmak istediğinizde her şeyi yeniden oluşturmanız gerekir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba! Bu dosya için çok teşekkürler............. :roll: Saygılarımla
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika bir ipucu. Yaptı neredeyse Tüm istediğim. Birleşik çalışma kitabında, çalışma sayfası adının orijinal çalışma kitabının adını içermesini çok isterdim, bu nedenle verilerin hangi çalışma kitabından geldiğini biliyorum. Birleştirdiğim veriler farklı arşivlerden. Bir girdi aramam gerekiyor ama hangi arşivde olduğunu bilmiyorum. Yani tüm verileri tek bir dosyada birleştirmek, tüm arşivleri bir kerede aramamı mümkün kılacaktır. Ama yine de girdinin hangi arşivde olduğunu bilmem gerekiyor. Henrik
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodun dosya adını dahil etmesi için sadece bunu yapın. Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel Combine\" Dosya Adı = Dir(Yol ve "*.xlsx") Do while Dosya Adı "" Workbooks.Open Dosya Adı:= Yol ve Dosya Adı, ReadOnly:=True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) Workbooks(Filename).Close Filename = Dir() Loop End Sub Note : bu yalnızca ilk sayfayı kopyalamak içindir, tüm sayfaları yapmak için karıştırılabilir
Bu yorum sitedeki moderatör tarafından en aza indirildi
Daha fazla sayfayı nasıl birleştirirsiniz ve tüm sayfaları yapıştırmak için nasıl farklı bir ana dosya belirtirsiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Gerçekten harika bir çözüm. teşekkür ederim. Yine de bir Sorun, bu şekilde çalıştırdığımda, excel kapatmadan önce değişiklikleri kaydetmek isteyip istemediğimi soracak (Ad değiştirildiğinden beri) ve bunu her dosya için yapmak istemiyorum (yürütme başına yaklaşık 32). Bunu çözmenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika :lol: bana çok yardımcı oldu....
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sağol dostum, bu çok faydalı siteden bir gün geçirdin... Aslında ben de farklı sayfaların aynı başlık verilerini 1 ana çalışma sayfasında birleştirmek istiyordum, KUTOOL for Excel bana çok yardımcı oldu.... Tekrar teşekkürler. .... :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Değerli bilgiler için çok teşekkürler. Bu gerçekten işe yarıyor. Bu makalede listelenen adımlar işimi gerçekten kolaylaştırdı. Teşekkürler, Dinesh
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bilgilerinizi paylaştığınız için teşekkür ederiz
Bu yorum sitedeki moderatör tarafından en aza indirildi
Orijinal çalışma kitabındaki değişiklikleri güncellemesini nasıl sağlarsınız? Her bölgenin verilerini kendi çalışma kitaplarına girmesini sağlayacak ve ardından bundan hangi güncellemeleri alan ulusal özeti alacak bir ulusal özet almaya çalışıyorum? Bunu başlangıçta tüm yıl için kurmak ve geriye dönük çalışmamak istiyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalışma sayfalarını tek bir Çalışma Kitabında birleştirdikten sonra nasıl kaydedersiniz kaydedemedim Kitap1 olarak adlandırıldı ve kaydet veya farklı kaydet'e tıklıyorum ama çalışmıyor. herhangi bir öneriniz var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
"Birden çok çalışma kitabını VBA ile tek bir çalışma kitabında birleştir" adımlarını takip ettim ve "çalıştır" ı tıkladım, hiçbir şey olmadı. Hataların farkında değilim ve nasıl düzeltileceğinden emin değilim. Bana yardım eder misin? yeni bir çalışma kitabına girdiğim kod aşağıdadır. Teşekkür ederim Sub GetSheets() Path = "p:\download\macro\" Dosya Adı = Dir(Yol ve "*.xls") Dosya Adı Sırasında Yap "" Workbooks.Open Dosya Adı:=Yol ve Dosya Adı, ReadOnly:=İçindeki Her Sayfa İçin Doğru ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Sonraki Sayfa Çalışma Kitapları(Filename).Close Filename = Dir() Loop End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sayın Yetkili: Aşağıdaki modülü kurmak için "Birden çok çalışma kitabını VBA ile tek bir çalışma kitabında birleştirin" adımlarını izledim, ancak hiçbir şey olmadı. Sorunu bulmama yardım eder misin? teşekkür ederim Sub GetSheets() Path = "p:\download\macro\" Dosya Adı = Dir(Yol & "*.xls") Dosya Adı Sırasında Yap "" Workbooks.Open Dosya Adı:=Yol ve Dosya Adı, ReadOnly:=Her Biri İçin Doğru ActiveWorkbook.Sheets'teki Sayfa Sheet.Copy After:=ThisWorkbook.Sheets(1) Sonraki Sayfa Çalışma Kitapları(Filename).Close Filename = Dir() Loop End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel'in daha yeni sürümleri için bunu deneyin. Açık çalışma kitabımı katalog olarak kaydettim ve tüm dosyalar c:\temp konumunda. Sub GetSheets() Path = "c:\temp\" Dosya Adı = Dir(Yol ve "*.xls") Dosya Adı Sırasında Yap "" Workbooks.Open Dosya Adı:=Yol ve Dosya Adı, ReadOnly:=ActiveWorkbook'taki Her Sayfa İçin Doğru. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel'in daha yeni sürümleri için bunu deneyin. Çalışma kitabımı katalog olarak kaydettim, tüm dosyalar c:\temp konumunda. Sub GetSheets() Path = "c:\temp\" Dosya Adı = Dir(Yol ve "*.xls") Dosya Adı Sırasında Yap "" Workbooks.Open Dosya Adı:=Yol ve Dosya Adı, ReadOnly:=ActiveWorkbook'taki Her Sayfa İçin Doğru. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Excel'in daha yeni sürümleri için bunu deneyin. Çalışma kitabımı katalog olarak kaydettim, tüm dosyalar c:\temp konumunda. Sub GetSheets() Path = "c:\temp\" Dosya Adı = Dir(Yol ve "*.xls") Dosya Adı Sırasında Yap "" Workbooks.Open Dosya Adı:=Yol ve Dosya Adı, ReadOnly:=ActiveWorkbook'taki Her Sayfa İçin Doğru. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End SubDave tarafından[/quote] Yolla ilgili olarak "salt okunur özelliğe atanamıyor" hatası alıyorum... Herhangi bir fikriniz var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ben de bu sorunu yaşıyorum. Bunu çözebildin mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Henüz bir şey yok... Herhangi bir çözüm bulunamadı veya bir düzeltme öneren kimse olmadı. Afedersiniz...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ben de. Bu 6 ay önce çalışıyordu, en son çalıştırmam gerekti. Çözümü henüz bulan var mı? Daha önce çalıştırdıysanız ve şimdi çalışmıyorsa, bunun Microsoft'un bir güncellemesiyle ilgisi olabilir mi? Bu, görevlerim için gerçekten kullanışlı bir araç ve bana çok zaman kazandırıyor. Excel'in bu mesajı aniden görüntülemeye başlamasına neden olacak ne değişmiş olabilir? VBA'da oldukça yeni olmak, mantığı analiz etmeye nereden başlayacağım konusunda çok az fikrim var. Saygılarımla, Greg. Glasgow, İskoçya.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Görünüşe göre "Yol" artık ayrılmış durumda, bu nedenle başka bir ad kullanın ve "Yol"u değiştirin, örneğin "Yolum".
Bu yorum sitedeki moderatör tarafından en aza indirildi
Belki ReadOnly:=True'u ReadOnly:=False olarak değiştirmelisiniz, yaptım ve yardımcı oldu
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu satırlar boyunca bir şey arıyordum ama yorum yapmak istedim. Do while Dosya Adı "" öğesinin "" dışında bir şey olması gerekmez mi? yoksa ben mi yanlış okuyorum Belki de DO NOT filename = "" Sadece bir düşünce...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tüm sayfaları, başlıkların ortak olduğu tek bir sayfada birleştirmek istiyorum... lütfen yardım
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, birkaç dosyayı harmanlamak için yukarıdaki makroları kullanmayı denedim, ne yazık ki sonuç yok...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kopyalayıp yapıştırmadan tek bir sayfaya koymak istediğim 112 excel sayfam var. Lütfen bana yardım edin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yaklaşık 250 Sheet içeren bir çalışma kitabım var. Cobain'e tek sayfada ihtiyacım var. lütfen bana bir çözüm verin
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu bir deneyin...Bunu başka bir siteden aldım ama ne yazık ki hanımın adını hatırlayamıyorum, bu yüzden ondan bahsetmediğim için özür dilerim, benim hatam" Excel'de birden fazla WB'yi birleştirin: DEĞİŞTİRMEYİ UNUTMAYIN MyPath = ! Sub Merge2MultiSheets( ) Dim wbDst As Workbook Dim wbSrc As Workbook Dim wsSrc Çalışma Sayfası Dim MyPath As String Dim strFilename As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\\MyPath\etc\etc..." Set wbDst = Workbooks.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) Eğer Len(strFilename) = 0 ise Sub'dan çıkın strFilename = "" Set wbSrc = Workbooks.Open(Filename:= MyPath & "\" & strFilename) Set wsSrc = wbSrc.Worksheets(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir() Döngü wbDst.Worksheets(1). Sil Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, kodu bir modüle ekledim. Excel kitabına Masterfile adını verdi. Kodun neresine ekleyeceğim. teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunların hiçbiri benim için işe yaramadı, sonunda bunu işe aldım. Bilginize 2010 'Açıklama: Bir klasördeki tüm dosyaları bir ana dosyada birleştirir. Sub MergeFiles() Dim path As String, ThisWB As String, lngFilecounter As Long Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet Dim Dosya Adı As String, Wkb As Workbook Dim CopyRng As Range, Dest As Range Dim RowofCopySheet As Integer RowofCopySheet = 2 ' ThisWB'den kopyaladığınız sayfalarda başlamak için satır = ActiveWorkbook.Name path = "mypath....." ' Bu Application.EnableEvents = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook'u değiştirmeyi unutmayın .Sheets(1) Dosya Adı = Dir(yol & "\*.xls", vbNormal) Len(Dosyaadı) = 0 ise Alttan Çık Dosyaadı = vbNullString Değilse Dosyaadı = ThisWB Sonra Wkb = Workbooks.Open(Dosyaadı: =yol & "\" & Dosya adı) CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Set Hedefi = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) CopyRng.Copy Hedef Wkb.Close False End If Filename = Dir() Loop Rang e("A1").Select Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Bitti!" Alt Alt
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu, alınan verilerin her zaman en üst satırda başlaması için nasıl düzenlerim? Bu kodu iki kez çalıştırırsam, verileri önceki verilerimin sonuna ekler (makronun ilk çalıştırmasından).
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu satırı değiştirin: RowofCopySheet = 2, RowofCopySheet = 1
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, parola korumalı birden çok Excel Dosyası (tek sayfa) farklı klasörüm var. günün sonunda tüm verileri tek bir Ana dosyada birleştirmek istiyorum. Her seferinde şifreyi girip dosyayı açıp ana dosyaya kopyala yapıştır yapmam gerekiyor. Lütfen bunun için VBA koduyla bana yardım edin.
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