aktif sayfayı farklı kaydet

[emrexcel123]

arkadaşlar ve üstadlar ii akşamlar
4 sayfadan oluşan bir çalışma kitabının istenilen sayfasını farklı nasıl kaydedebiliriz fakat üzerinde çalışılan kitabı etkilememesi kaydı ile ii akşamlar...

 

[xxcell]

ActiveSheet.SaveAs Filename:="C:\sayfa1.xls"

 

[emrexcel123]

aktif sayfa

hocam aktif sayfayı kitabı değil yani >>
sayfa1-sayfa2-sayfa3 diyelim ben sayfa3'ü kaydetmek istiyorum ayrıca kitap kalacak yani veriler değişmeyecek bu kodda değişiyor... ii geceler.

 

[xxcell]

ActiveSheet.SaveAs Filename:="C:\sayfa1.xls"

Hayret verici bir şekilde çalışmadı. Bunu iyi bir testten geçirdim

Sheets("sayfa3").Copy
ActiveWorkbook.SaveAs "c:\deneme"

 

[emrexcel123]

mükemmelsiniz

hocam gerçekten çok güzel bir örnek çok çok teşekkür ediyorum Allah sizi dara düşürmesin.son bir ricam daha olacak peki hocam mesela c:\dizinindeki dosyaları nasıl listeleyebilirim...

 

[xxcell]

Yoğun olduğum için fazla bugün ilgilenemiyorum
Fikir versin diye ufak bir örnek hazırladım.

Private Sub UserForm_Initialize()

'aktif dizindeki dosyaları listbox'a yükleme

ListBox1.Clear
With Application.FileSearch
        If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
        ListBox1.AddItem .FoundFiles(i)
        Next i
    Else
        MsgBox "Aktif dizinde dosya yok."
    End If
End With
End Sub

 

[xxcell]

filesearch'in evdeki vistada kurulu olmadığını görünce
temel komut olan dir komutunu kullanmanın daha mantıklı olduğunu
fark ettim.

Sub dosya_listele()

Dim dosya
Dim i As Integer

i = 1
dizin = "c:\"

dosya = Dir(dizin & "*.*")

While dosya <> ""

Cells(i, 1) = dosya
dosya = Dir
i = i + 1

Wend

End Sub

 

[comand0]

Hayret verici bir şekilde çalışmadı. Bunu iyi bir testten geçirdim

Sheets("sayfa3").Copy
ActiveWorkbook.SaveAs "c:\deneme"

hocam çok eski bir konu ama verileri güncelleyip kodu çalıştırdığımızda " ... klasöründe bu evrak zaten var. değiştirilsin mi" uyarısı geliyor. bunu iptal etme şansı veya otomatik kaydettirme şansı varmı acaba ?

 

[Korhan Ayhan]

Kaydetme satırından öncesine aşağıdaki satırı ekleyin.

Application.DisplayAlerts = False