Farklı Kaydetme

[Sa.NaL]

MerhabA benim ekte bir çalışmam var.Userformda çıkışa basınca d sürücüsüne o excel dosyasını farklı isimde kaydetsin ama kendi ismi değişmesin yine "ek" isminde kalsın.Yardımlarını bekler şimdiden tşk ederim

 

[halit3]

aşağıdaki kodu denermisiniz.

Private Sub Çıkış_Click()
a = ThisWorkbook.FullName
b = "D:\" & ActiveWorkbook.Name
uzunluk = Len(a)
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
If uzunluk <= 3 Then
DosyaSistemi.CopyFile a & "\" & b
Else
DosyaSistemi.CopyFile a, b
End If
End Sub

 

[Sa.NaL]

Kendimi tam anlatmadım sanırım.Tam olrak istediğim şu olası excel dosyamın adında bir değişiklik yapmadan d sürüsüne kopyalama işlemi yapsın o kopyaladığı dosyanın adını A1,A2,A3 HÜCRELERİNE girilen veriler varya SN33-9-1 işte o verileri bu şekilde aralarında tire ile ayırarak o isimde d sürücüsüne atsın şimdiden tşk

 

[halit3]

Private Sub Çıkış_Click()
a = ThisWorkbook.FullName
b = "D:\" & cells(1,1) & cells(2,1) & cells(3,1)
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")

DosyaSistemi.CopyFile a, b

End Sub

 

[Sa.NaL]

Çok tşk ederim oluyor ama excel dosyası olarak kaydetmiyor onun lada ilgilenebilirmisiniz acaba?

 

[halit3]

Private Sub Çıkış_Click()
a = ThisWorkbook.FullName
b = "D:\" & Cells(1, 1) & Cells(2, 1) & Cells(3, 1) & ".xls"
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
DosyaSistemi.CopyFile a, b
End Sub