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

gicimi

Altın Üye
Altın Üye
Katılım
3 Şubat 2008
Mesajlar
477
Beğeniler
26
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
#1
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

Katılım
31 Aralık 2005
Mesajlar
3,734
Beğeniler
125
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
#2
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
Altın Üye
Katılım
29 Mayıs 2014
Mesajlar
19
Beğeniler
0
Excel Vers. ve Dili
2019 Türkçe
#5

tugkan

Altın Üye
Katılım
6 Kasım 2004
Mesajlar
177
Beğeniler
45
Excel Vers. ve Dili
Excel 2016
Türkçe 64 BIT
#6
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
Altın Üye
Katılım
29 Mayıs 2014
Mesajlar
19
Beğeniler
0
Excel Vers. ve Dili
2019 Türkçe
#7
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. ☺
 

tugkan

Altın Üye
Katılım
6 Kasım 2004
Mesajlar
177
Beğeniler
45
Excel Vers. ve Dili
Excel 2016
Türkçe 64 BIT
#8
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.
 
Üst