- Katılım
- 13 May 2019
- Mesajlar
- 303
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Kod:
Sub sayfalari_xlsx_kaydet()
Dim Sheet As Worksheet, SheetName$, MyFilePath$, N&
MyFilePath$ = "C:\Servisler_xlsx"
With Application
.ScreenUpdating = False
.DisplayAlerts = False
On Error Resume Next
MkDir MyFilePath
For N = 4 To Sheets.Count
Sheets(N).Activate
SheetName = ActiveSheet.Name
Cells.Copy
Workbooks.Add (xlWBATWorksheet)
With ActiveWorkbook
With .ActiveSheet
.Paste
.Name = SheetName
[A1].Select
End With
.SaveAs FileName:=MyFilePath _
& "\" & SheetName & ".xlsx"
.Close SaveChanges:=True
End With
.CutCopyMode = False
Next
End With
Sayfa1.Activate
End Sub
Ancak orijinal dosyamda sayfa yapısı yatay olarak ayarlı olduğu halde aktarıldıktan sonra ekran görüntüsünde dikey olarak görünmekte.
Ben bunu sayfa yapısı bozulmadan yani yatak olarak , orijinal dosyamda sayfa yapısının ayarları bozulmadan aktarılmasında yardımcı olabilecek arkadaşlarımdan yardım bekliyorum. Teşekkürler.