Aktif Sayfayı Ve Exceli Kaydet

[mustafakoker]

Arkadaşlar Hem Excel Dosyamın ismini (ki aşağıdaki kod bunun için)ve de o ona hangi sayfadaysam yani aktif sayfayı nasıl kaydederim

ActiveWorkbook.Save

örneğin çalışma.xls dosya adı temmuz sayfa adı
kayıt yaparken çalışma dosyasının temmuz sayfası kayıt edilmiştir olacak

amacım aynı dosyada farlı sayfaları c:yeni klasöre dosya adı ile birlikte sayfa adlarınıda kaydetmek
umarım anlatabilmişimdir

Sub txt_oluştur()


Dim DosyaYolu As String
Dim YolAyirici As String
Dim DosyaAdi As String
Dim DosyaSatiri As String

Dim i As Long
Dim j As Integer

If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then

MsgBox "Büyük Olasılıkla Hücreleri Seçmediniz..."
Exit Sub
End If

DosyaYolu = "C:\Yeni Klasör\temmuz"
YolAyirici = Application.PathSeparator
DosyaAdi = Split(ThisWorkbook.Name, ".")(0) & "-" & Format(Date, "dd-mm-yyyy") & ".txt"

Open DosyaYolu & YolAyirici & DosyaAdi For Output As #1

For i = 1 To Selection.Rows.Count

DosyaSatiri = ""

For j = 1 To Selection.Columns.Count
If j <> Selection.Columns.Count Then
DosyaSatiri = DosyaSatiri & Selection(i, j) & vbTab
Else
DosyaSatiri = DosyaSatiri & Selection(i, j)
End If
Next j

Print #1, DosyaSatiri

Next i

Close #1

MsgBox "Dosya " & DosyaYolu & " Dizinine " & DosyaAdi & " Adında Oluşturuldu"

End Sub

 

[mustafakoker]

arkadaşlar bir fikri olan yokmu

hem dosya adını hem sayfa3 ve sayfa4 ü ayrı ayrı kayıt etsin istiyorum yardımcı olacaklara teşekkürler

 

[Muzaffer Ali]

Aşağıdaki kod işini görür mü?

Sub SadeceSayfayiKopyala()
    'Not: Aktif olan sayfayı kopyalar
    Dim i As Workbook
    Dim Klasor As String
    Klasor = "d:\" 'Hangi klasöre kopyalayacaksan buraya yaz
    ActiveSheet.Copy
    
    Set i = ActiveWorkbook
    i.SaveAs Klasor & i.Sheets(1).Name
    i.Close
End Sub

 

[mustafakoker]

sayın dalgalıkur öneriniz için teşekkür ederim fakat beni istediğim sayfayı kopyalaması değil

1 nolu mesajımda görüleceği üzere sayfa3 ve sayfa4 te txt oluştur butonum var ilgili yerleri seçip txt olarak c:\ ye Metin dosyası txt olarak) kaydediyorum
kayıt yaparken sayın korhan beyin verdiği kodlara göre dosyamın adıyla ve günün tarihiyle beraber kayıt yapıyor burada sorun yok ek ilave olarak sayfa3 ün adınıda kayıt yapsın istiyorum

yani txt oluştur butonuna tıkladığımda c:\ dizinine deneme.xls sayfa3 kayıt edildi veya sayfa 4 tekı butonu tıkladığımda yine aynı şekilde deneme.xls sayfa4 kayıt yapıdı (burada kayıt txt olacak)

 

[Korhan Ayhan]

Selamlar,

"DosyaAdi" adlı değişkeninizi aşağıdaki şekilde değiştirip denermisiniz.

DosyaAdi = Split(ThisWorkbook.Name, ".")(0) & "-" & Format(Date, "dd-mm-yyyy") & "-" & ActiveSheet.Name & ".txt"

 

[mustafakoker]

Hocam teşekkürler fakat

Dim i As Workbook

burada hata verdi
ayrıca

Sub txt_oluştur()

sarı rente gösterdi

 

[Korhan Ayhan]

Selamlar,

Ben size sadece değişken tanımlamanızı değiştirmenizi önerdim. Sizin bahsettiğiniz hataları üretecek bir değişiklik önermedim. Uyarlamada hata yapmış olmalısınız.

 

[mustafakoker]

Korhan bey çok teşekkür ederim
dosyada değişiklikler yaparken bazı kodları silmeyi unutmuşum ondan kaynakladı

verdiğiniz kodda sorun yok Herşey için teşekkürler