Excel sayfalarını makro ile csv olarak Kaydetmek.


Aşağıda ki makro (76-1=75) adet excel sayfasının for next döngüsü ile (Sayfa2 den sayfa76'ya kadar) sayfaları csv formatında kitap olarak kaydeder.(Burada sayfa isimleri aşağıda görüldüğü üzere "Sayfa2 den sayfa76'ya kadardır.")


" FileFormat" kısmını csv değilde başka bir uzantıyla kaydetmek istiyorsanız, Makro kaydet yöntemiyle " FileFormat" eşitliğini bulabilirsiniz.

Buradaki ("n=2") "2" değerini , "76" değerini ve dosya yolunu çeşitli yöntemlerle bulabilir yada excel sayfasında belirttiğiniz hücrelerden çekebilirsiniz.



"""""""""""""""""""""""""""""""""""""""""""""

Sub Makro2()

'

' Makro2 Makro

'


'"& n &"

For n = 2 To 76

Sheets("Sayfa" & n & "").Select

Sheets("Sayfa" & n & "").Copy

'(**********) kısma dosyanın kaydedileceği yolu yazmanız gerekmektedir.

ActiveWorkbook.SaveAs Filename:= _

"**********\Deneme-" & n & ".csv", FileFormat _

:=xlCSVUTF8, CreateBackup:=False

ActiveWindow.Close

Next

End Sub

"""""""""""""""""""""""""""""""""""""""""""""

91 görüntüleme0 yorum

Son Paylaşımlar

Hepsini Gör
  • Instagram
  • Facebook Sosyal Simge
  • Pinterest Sosyal Simge
  • YouTube
Mubertrzon

mubertrzon@mubertrzon.com

Tel: 00000000000

© 2018 mubertrzon

Marmara Üniversitesi
Teknik eğitim fakültesi