Excel sayfalarını ayrı doslayar olarak tek tuşla kaydetmek?

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Excel sayfalarını ayrı doslayar olarak tek tuşla kaydetmek?

Bu konudaki kullanıcılar: 1 misafir

4
Cevap 7854
Tıklama 0
Öne Çıkarma

1. sayfa

Excel sayfalarını ayrı doslayar olarak tek tuşla kaydetmek?

Cevap Yaz

SpeCTRuM

21 yıl (603 mesaj)

Yüzbaşı

Konu Sahibi

Merhaba.

Excel'de tüm sayfaları (sheet) ayrı dosyalar olarak kaydetmek istiyorum.

Demek istediğim şu;

Ana_dosya diye bir klasörüm olsun, bu da 1 2 3 4 ... 150 şeklinde 150 sayfaya (sheet) sahip olsun. Ben 150 tane ayrı dosya olarak otomatik bir şekilde nasıl kaydederim?

Not: Sayfa dediğim Excel'deki sheetler.

Teşekkürler...

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

harun.dll

21 yıl (1728 mesaj)

Yüzbaşı

Ben de müsadenle araya girerek bunun tam tersini yapmak istiyorum. Eğer mümkünatı varsa ikimize de kolaylık olacak.

Bu mesaja 1 cevap geldi.

osmanbilir

14 yıl (6 mesaj)

Sub sayfaayir()

Application.ScreenUpdating = False

Dim sayfa As Worksheet
Dim dosyayolu As String, dtimestamp As String

dosyayolu = "c:\dosyalar\"

For Each sayfa In ThisWorkbook.Worksheets
sayfa.Copy
ActiveWorkbook.SaveAs Filename:=dosyayolu & sayfa.Name
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
Next sayfa

Application.ScreenUpdating = True

End Sub

Merhaba , Yukarıdaki kod ile macro oluşturarak bunu yapabilirsin. dosyayolu = "c:\dosyalar\" gösterildiği için "C" altında "dosyalar" isimli bir klasör oluşturman lazım,Sen farklı biryere çıksın istiyorsan burayı ona göre değiştirebilirsin.

Bu mesaja 2 cevap geldi.

nosferatu82

10 yıl (4 mesaj)

quote:

Orijinalden alıntı: osmanbilir

Sub sayfaayir()

Application.ScreenUpdating = False

Dim sayfa As Worksheet
Dim dosyayolu As String, dtimestamp As String

dosyayolu = "c:\dosyalar\"

For Each sayfa In ThisWorkbook.Worksheets
sayfa.Copy
ActiveWorkbook.SaveAs Filename:=dosyayolu & sayfa.Name
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
Next sayfa

Application.ScreenUpdating = True

End Sub

Merhaba , Yukarıdaki kod ile macro oluşturarak bunu yapabilirsin. dosyayolu = "c:\dosyalar\" gösterildiği için "C" altında "dosyalar" isimli bir klasör oluşturman lazım,Sen farklı biryere çıksın istiyorsan burayı ona göre değiştirebilirsin.

Merhaba,

Acaba yazdığınız macro, sayfaları metin(sekmeyle ayrılmış) (.txt) formatı ile ayrı ayrı kaydedecek şekilde düzenlenebilir mi? Bununla birlikte sayfaları kaydetme konumu "c:\dosyalar\" şeklinde değilde ana excel dosyasının mevcut bulunduğu aktif klasör olabilir mi?

Örneğin c:\tez\data\1. periyod klasöründe bulunan 50 sayfalı bir excel dosyasını baz alarak, belirttiğiniz macronun düzenlenmesi ile 50 sayfayı ayrı ayrı metin(sekmeyle ayrılmış) (.txt) formatında c:\tez\data\1. periyod klasörüne kaydedebilir miyim?

Teşekkür ederim.

ExisexeN

8 yıl (176 mesaj)

Teğmen

Konuyu tekrar hortlatıyorum, Makro güzel çalışıyor ama sayfa içindeki formülleri almıyor. Ne yapabiliriz?

< Bu ileti mobil sürüm kullanılarak atıldı >

Bu mesajda bahsedilenler: @osmanbilir

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Excel sayfalarını ayrı doslayar olarak tek tuşla kaydetmek?