İstediğim klasöre kayıt sorunu

[gercekgun]

Sub Kaydet()
Ad = CreateObject("wscript.Shell").SpecialFolders.Item("MyDocuments") & _
"\Fiyatlar" & Application.PathSeparator & ActiveSheet.name & ".xls"
ActiveSheet.Copy
With ActiveWorkbook
For Each myshape In ActiveSheet.Shapes
myshape.Delete
Next myshape
.SaveAs Filename:=[B1]
.Close
End With
End Sub


Böyle bir makrom var.. Belgeyi belgelerime kaydediyor şu an.. ben belgelerim içindeki fiyatlar klasorune kaydetmek istiyorum.. foruma kod eklemeyi bilmediğimden bu şekil ekledim..

 

[Muzaffer Ali]

Şöyle olmalı

Sub Kaydet()
 ad = CreateObject("wscript.Shell").SpecialFolders.Item("MyDocuments") & _
 "\Fiyatlar\"
 ActiveSheet.Copy
 With ActiveWorkbook
 For Each myshape In ActiveSheet.Shapes
 myshape.Delete
 Next myshape
 .SaveAs ad & Range("B1").Value & ".xls"
 .Close
 End With
 End Sub

 

[gercekgun]

Şöyle olmalı

Sub Kaydet()
 ad = CreateObject("wscript.Shell").SpecialFolders.Item("MyDocuments") & _
 "\Fiyatlar\"
 ActiveSheet.Copy
 With ActiveWorkbook
 For Each myshape In ActiveSheet.Shapes
 myshape.Delete
 Next myshape
 .SaveAs Range("B1").Value
 .Close
 End With
 End Sub

yine belgelerimin içine atıyor.. çözemedim bir türlü

 

[Muzaffer Ali]

kodları düzelttim yeniden deneyin

 

[gercekgun]

kodları düzelttim yeniden deneyin

yine belgelerime atıyor acaba win7 diye mi? ilginiz için teşekkürler.. olmuyorsa zorlamaya gerek yok..

 

[halit3]

Alternatif kod;

Sub Kaydet()

ad = CreateObject("wscript.Shell").SpecialFolders.Item("MyDocuments") & "\Fiyatlar\" & [B1] & ".xls"
ActiveSheet.Copy
For Each myshape In ActiveSheet.Shapes
myshape.Delete
Next myshape
ActiveWorkbook.SaveAs ad
ActiveWorkbook.Close False
End Sub

 

[gercekgun]

Alternatif kod;

Sub Kaydet()

ad = CreateObject("wscript.Shell").SpecialFolders.Item("MyDocuments") & "\Fiyatlar\" & [B1] & ".xls"
ActiveSheet.Copy
For Each myshape In ActiveSheet.Shapes
myshape.Delete
Next myshape
ActiveWorkbook.SaveAs ad
ActiveWorkbook.Close False
End Sub

bu sefer oldu.. teşekkürler.. sadece uzantısını .xlsx olarak değiştim.. office 2007 diye.