Toplu listeden excel dosyası oluşturma

[hureyre84]

Bu kod

Sub Test()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
For i = 2 To 6
Set objWdFile = objWord.documents.Add
objWdFile.SaveAs ThisWorkbook.Path & Application.PathSeparator & Range("A" & i).Text & ".docx"
objWdFile.Close
Next
objWord.Quit
Set objWdFile = Nothing
Set objWord = Nothing
End Sub

word dosyası oluşturuyor. Bunu Excel dosyası oluşturacak şekilde üzerinde değişiklikler yapmaya çalıştım ama yapamadım. Ayrıca oluşturulan her Excel dosyasına daha önce oluşturduğum şablon kopyalanması lazım.
Yardımlarınızı bekliyorum. Şimdiden çok teşekkür ederim. Saygılarımla...

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub Test()
    Dim ExDos As Workbook
    Dim Bak As Integer
    For Bak = 2 To 6
        Set ExDos = Workbooks.Add
        
        ExDos.Worksheets(1).Range("A1").Value = "daha önce oluşturduğum şablon"
        
        ExDos.SaveAs ThisWorkbook.Path & Application.PathSeparator & Range("A" & Bak).Text
        ExDos.Close
    Next
End Sub

 

[hureyre84]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub Test()
    Dim ExDos As Workbook
    Dim Bak As Integer
    For Bak = 2 To 6
        Set ExDos = Workbooks.Add
     
        ExDos.Worksheets(1).Range("A1").Value = "daha önce oluşturduğum şablon"
     
        ExDos.SaveAs ThisWorkbook.Path & Application.PathSeparator & Range("A" & Bak).Text
        ExDos.Close
    Next
End Sub

Olmadı. Şöyle anlatayım. yaptığınız formülde kitap diye bir excel dosyası açıyor sadece içinde de daha önce oluşturduğum şablon yazıyor. İstediğim bu değil. A sütununda 1 den fazla veri var. her oluşturulan excel dosyası hazırladığım şablonun a sütunundaki verinin adıyla kaydedilmesi gibi. Yani
A Sütunu
345
432
456
gibi veriler var.
345.xlsx
432.slsx
456.xlsx
gibi kaydedecek ve her kaydedilen dosya benim hazırladığım şablon gibi olacak.

 

[Muzaffer Ali]

her kaydedilen dosya benim hazırladığım şablon gibi olacak.
kısmı hariç verdiğim kodlar tam olarak istediğiniz şeyi yapıyor. Lütfen test ediniz.

her kaydedilen dosya benim hazırladığım şablon gibi olacak.
Buna da cevap verebilmem için taktir edersiniz ki hazırladığınız şablonun ne olduğunu bilmem lazım.