istenilen yerde ve isimde excel oluştur

[honestman]

Merhaba


Hocam, A kolonunda dosya adı, B kolonunda oluşturulacağı lokasyonlar olacak. Yapmak istediğim belirtilen isimle belirtilen lokasyonda excel dosyası oluşturmak. Nasıl yapabilirim?

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları kullanabilirsiniz.

Sub DosyaOlustur()
    Dim dsy As New Workbook
    Set dsy = Workbooks.Add
    With ThisWorkbook.Worksheets("Sayfa1")
        dsy.SaveAs (.Range("A1").Value & "\" & .Range("B1").Value)
        dsy.Close True
    End With
End Sub

 

[honestman]

hocam runtime error1004 verdi olmadı. Dosyaya erişilemedi dedi


Ayrıca aA ve B sütununda birden fazla data için oluşturmak istersek nasıl yapmalıyız?

 

[askm]

Kodları aşağıdaki ile değiştirip deneyin.

Sub DosyaOlustur()
Application.DisplayAlerts = False
Dim dsy As New Workbook
For i = 1 To Range("A" & Rows.Count).End(3).Row
    Path = Range("b" & i)
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    Name = Range("A" & i) & ".xls"
    Set dsy = Workbooks.Add
    With ThisWorkbook.Worksheets("Sayfa1")
        dsy.SaveAs (Path & Name)
        dsy.Close True
    End With
Next i
End Sub

 

[honestman]

Kodları aşağıdaki ile değiştirip deneyin.

Sub DosyaOlustur()
Application.DisplayAlerts = False
Dim dsy As New Workbook
For i = 1 To Range("A" & Rows.Count).End(3).Row
    Path = Range("b" & i)
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    Name = Range("A" & i) & ".xls"
    Set dsy = Workbooks.Add
    With ThisWorkbook.Worksheets("Sayfa1")
        dsy.SaveAs (Path & Name)
        dsy.Close True
    End With
Next i
End Sub

Oldu hocam teşekkür ederim.

 

[askm]

Rica ederim. Asıl teşekkürü dalgalikur hakediyor. Kodların asıl kısmı ona ait.