Sayfayı klasöre kaydetme hk

[metin_0606]

Değerli üstadlar yakıt isimli Excel çalışma sayfamı C sürücüsünün içerisindeki Arşiv isimli klasöre inputboxa yazacağım isimle nasıl kaydederim. Yardımlarınız için şimdiden teşekkürler

 

[mancubus]

Workbooks("yakıt.xlsx").SaveAs "C:\Arşiv\" & Application.InputBox(Prompt:="Dosya Adı", Type:=2) & ".xlsx", 51

 

[mancubus]

bu da microsoft'un sitesinde SaveAs metodu için verilen örnek.
klasör seçme imkanı da veriyor.

Dim DosyaAdı As String

Do
    DosyaAdı = Application.GetSaveAsFilename
Loop Until Dosya <> False

Workbooks("yakıt.xlsx").SaveAs Filename:=DosyaAdı

 

[metin_0606]

Workbooks("yakıt.xlsx").SaveAs "C:\Arşiv\" & Application.InputBox(Prompt:="Dosya Adı", Type:=2) & ".xlsx", 51

Maalesef hata verdi Sayın mancubus

 

[mancubus]

nedir hata?

 

[metin_0606]

nedir hata?

Subscript out of range

 

[mancubus]

"yakıt.xlsx" isminde bir dosya olması ve bunun açık olması lazım.

SaveAs metodu ile ilerlediğinizde yakıt.xlsx dosyasının yerine yeni dosya açık olarak gelir.
yakıt açık kalacaksa SaveCopyAs metodunu deneyin.

 

[metin_0606]

"yakıt.xlsx" isminde bir dosya olması ve bunun açık olması lazım.

SaveAs metodu ile ilerlediğinizde yakıt.xlsx dosyasının yerine yeni dosya açık olarak gelir.
yakıt açık kalacaksa SaveCopyAs metodunu deneyin.

Tamamdır sayın mancubus yalnız makro kopyalama yaparken sayfanın üzerindeki nesneleride kopyaliyor buna bir çözüm bulabilirmiyiz

 

[mancubus]

"dosyayı nasıl kaydederim" demişsiniz; cevabım da ona göre oldu.

yeni dosyada mı nesneler olnayacak. dosyada kaç sayfa var. hepsinde nesne var mı, varsa grafikler ve pivot tablolar da nesne mi size göre?

 

[mancubus]

hazfta sonu bakamam. yarım kalmasın. ben ilgili kodları aktarayım. siz uyarlarsınız.

Sub DelShapes()

    Dim sp As Shape
    Dim sh As Worksheet

    For Each sh In Sheets
        For Each sp In sh.Shapes
            sh.Delete
        Next sp
    Next sh

End Sub

Sub DelCharts()

    Dim ch As ChartObject
    Dim sh As Worksheet

    For Each sh In Sheets
        For Each ch In sh.ChartObjects
            ch.Delete
        Next ch
    Next sh

End Sub


Sub DelPivot()

    Dim pt As PivotTable
    Dim sh As Worksheet

    For Each sh In Sheets
        For Each pt In sh.PivotTables
            pt.TableRange2.Clear
        Next pt
    Next sh

End Sub