Çözüldü Klasör İçerisine İsimlere Göre Dosya Oluşturma

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
Merhaba;

Ekteki dosyada belirtilen (B Sütunundaki) 410 satır adında ayrı ayrı klasöre başlıkları ile birlikte çalışma kitabı oluşturmak istiyorum. Konu hakkında yardımcı olabilir misiniz. Teşekkürler.
 

Ekli dosyalar

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,226
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
D:\TestFolder olarak bir klasör oluşturun ve deneyin...

PHP:
Sub Test()
    Dim Wb As Workbook, DestWb As String, DestDir As String, i As Integer
  
    Const ROOT_FOLDER As String = "D:\TestFolder\"
  
    Worksheets("Sheet1").Copy
  
    Set Wb = ActiveWorkbook
  
    For i = 2 To Cells(Rows.Count, "b").End(3).Row
      
        DestDir = ROOT_FOLDER & Cells(i, "b")
      
        DestWb = DestDir & "\" & Cells(i, "b") & ".xlsx"
      
        If Dir(DestDir, vbDirectory) = "" Then MkDir DestDir
      
        If Dir(DestWb) = "" Then Wb.SaveCopyAs DestWb
      
    Next
  
    Wb.Close False
  
End Sub
 

Namık BOLAT

Altın Üye
Katılım
29 Mayıs 2014
Mesajlar
37
Excel Vers. ve Dili
Ofis 365 TR 64 Bit
Katılım
6 Kasım 2004
Mesajlar
199
Excel Vers. ve Dili
Excel 2016
Türkçe 64 BIT
Merhaba,
Ekteki dosyayı kullanarak önce fotoğrafların dosya isimlerinin listesini oluşturun, daha sonra o listeyi kullanarak yukarıdaki klasör oluşturma dosyasıyla istediğiniz klasörleri oluşturabilirsiniz.
Not: Ekteki dosyayı fotoğrafların bulunduğu ana dizine kopyalamanız gerekir.
 

Ekli dosyalar

Namık BOLAT

Altın Üye
Katılım
29 Mayıs 2014
Mesajlar
37
Excel Vers. ve Dili
Ofis 365 TR 64 Bit
Merhaba,
Ekteki dosyayı kullanarak önce fotoğrafların dosya isimlerinin listesini oluşturun, daha sonra o listeyi kullanarak yukarıdaki klasör oluşturma dosyasıyla istediğiniz klasörleri oluşturabilirsiniz.
Not: Ekteki dosyayı fotoğrafların bulunduğu ana dizine kopyalamanız gerekir.

Klasör oluşturuldu diyor ama maalesef hiç bir şey olmuyor. ☺
 
Katılım
6 Kasım 2004
Mesajlar
199
Excel Vers. ve Dili
Excel 2016
Türkçe 64 BIT
Klasör oluşturuldu diyor ama maalesef hiç bir şey olmuyor. ☺
Sayın @Namık BOLAT 3 numaralı mesajdaki dosyayı indirdim. Herhangi bir sıkıntı olmadı. Yazdığınız klasör isimlerinde sıkıntı olabilir. Dosyayı indirdikten sonra değişiklik yapmadan orjinal haliyle çalıştırıp deneyin.
 

KuTuKa

Altın Üye
Katılım
10 Mart 2005
Mesajlar
729
Excel Vers. ve Dili
Microsoft Office LTSC Pr. Pl 2021 - 64 bit Türkçe
Öncelikle çok güzel düşünülmüş bir çalışma
ekteki dosyanın şunu yapmasını istiyorum dosya numaralarını yıl olarak yazdım. İçindekinler kısmı 2021 den 2036 ya kadar içindekinler kısmını yazacak.

Ek ödemeler içine Fazla Mesai ve Agiden Kaynaklı Ek Ödemeler diye bir klasör açacak ve onun içindede Fazla Mesai ve Agi Diye 2 dosya daha olacak

Eğer yapılırsa altdosya 3 alt dosya 10 a kadar uzanırsa arşivleme yönünden süper bir çalışma olacak

Buna yardımcı olacak bir arkadaş olabilir mi ?
 


224273
 

Ekli dosyalar

Üst