+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: excel Dosyasını Birden Fazla Dosyaya Dönüştürmek (/konu-excell-dosyasini-birden-fazla-dosyaya-donusturmek.html)
Sayfalar:
1
2
excel Dosyasını Birden Fazla Dosyaya Dönüştürmek - GTAO - 07/05/2020
Merhabalar 2000 satırlı ve 17 sutunlu bir Excel dosyasını veri kaybı olmadan
60 satırlı ve 17 sutunlu 33 farklı dosya haline nasıl gelebilir pratiği varmı bu işin
örnetğin
anadosya.xls (2000 satırlı ve 17 sutunlu) bu dosyayı
1-60 satır aralığı 1.xls
61-120 aralığı 2.xls
121-180 aralığı 3.xls ....
yapılabilirmi
RE: excel Dosyasını Birden Fazla Dosyaya Dönüştürmek - accessman - 07/05/2020
Yapılabilir ama 33 sayfa olsa iş görür mü
RE: excel Dosyasını Birden Fazla Dosyaya Dönüştürmek - GTAO - 07/05/2020
(07/05/2020, 17:32)accessman yazdı: Yapılabilir ama 33 sayfa olsa iş görür müevet görür
RE: excel Dosyasını Birden Fazla Dosyaya Dönüştürmek - berduş - 07/05/2020
çalışmanızı ekleyebilir misiniz?
RE: excel Dosyasını Birden Fazla Dosyaya Dönüştürmek - feraz - 07/05/2020
Şöyle alabilir.
1 den 2000 e kadar döngü kurulur ve step 60 ile artırılır.
Her göngü başlangıçta workbooks.add diye kitap eklenip ismi yazdırılır ve yazdığınız aralıklarda kaydettirilir verileri kopyalayıp diye düşünüyorum.
Zaman bulunca bakarız.
Re: Excel Dosyasını Birden Fazla Dosyaya Dönüştürmek - feraz - 07/05/2020
Bir modüle ekleyip çalıştırın.Önce tarih ve saat formatınka klasör oluşturulur.
Sonra gerekli işlemler yapılır.Aktarılacak sayfa adı Sayfa olduğu varsayılmıştır.
Sub Aktar()
Dim i As Integer
Dim klasor As String
Dim BuSayfa As Worksheet
Dim say As Integer
Set BuSayfa = ThisWorkbook.Sheets("Sayfa1")
klasor = ThisWorkbook.Path & "\" & Format(Now, "dd_mm_yyyy hh_mm_ss")
MkDir klasor
Application.ScreenUpdating = False
For i = 1 To 2000 Step 60
BuSayfa.Range("A" & i).Resize(60, 17).Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteAll
Application.DisplayAlerts = False
ChDir klasor
say = say + 1
Workbooks(2).SaveAs Filename:=i & "-" & i - 1 + 60 & " satýr aralýðý " & say & ".xls", FileFormat:=xlExcel8
Workbooks(2).Close True
Application.DisplayAlerts = True
Next
MsgBox "Bitti", vbInformation, "Bitti"
Application.ScreenUpdating = True
Application.CutCopyMode = False
Set BuSayfa = Nothing
say = Empty: i = Empty
klasor = vbNullString
End Sub