65536 satırdan fazla satıra sahip bir dosyayı excel ile a

[uzmyrd]

Merhabalar,
Benim elimde excelde açmam gereken ve satır sayısı hemen hemen 500.000'leri bulan dosyalar var. Excelde ise bir seferde en fazla 65536 satırlık dosyaları açabiliyorum. İstediğim şey, dosyayı excel ile aç dediğimde 500.000 satırlık dosyanın excelde farklı çalışma sayfalarında yada farlı çalışma kitaplarında açılabilmesi ve açılan çalışma sayfalarının veya kitaplarının sırasına göre ardışık numaralarla isimlendirilerek kaydedilmesi.
Yardımlarınız için teşekkürler.

 

[SGM020]

Dosyalarınız hangi ortamda? Eğer Acces'te Table'ler şekinde ise Excel'de Veri/Dış Veri Al dan sonra veri kaynağınızı seçtikten sonra Ã?zet Tablo Raporu Oluştur seçeneği ile verilerinizi Excel'in Sayfalarına taşıyabileceğinizi sanıyorum.

Kolay gelsin.

 

[uzmyrd]

merhaba,
verilerim wordpad yada notepad dosyalarında bulunuyor.

 

[SGM020]

O zaman benim önerim bunları Access ortamında Table şeklinde oluşturduktan sonra yukarıdaki önerimi deneyin.

 

[Haluk]

Merhaba;

Þöyle bir şey deneyebilirsiniz .... (C:\Test.txt dosyasından veriler alınır)

Sub GetTxtData2()
'Raider ®
    Dim MyFile As String
    MyFile = "C:\Test.txt"
    j = 0
    Set NewSh = Worksheets.Add
    j = j + 1
    NewSh.Name = "TextSheet-" & j
    Open MyFile For Input As #1
        Do While Not EOF(1)
            i = i + 1
                Line Input #1, InputData
                    Cells(i, 1) = InputData
                        If i > 65535 Then
                            Set NewSh = Worksheets.Add
                            j = j + 1
                            NewSh.Name = "TextSheet-" & j
                            i = 0
                        End If
        Loop
    Close #1
    Set NewSh = Nothing
End Sub

 

[uzmyrd]

Haluk kardeş, teşekkür ederim şimdilik çalışıyor gözüküyor. Ama, dosyayı excelde açarken, satırları sütunlar oluşturmak amacıyla;

10 karakter ,
6 karakter ,
6 karakter ,
11 karakter,
6 karakter,
6 karakter,
6karakter ' lik sütunlara bölerek açmam lazım.

Bu konuda da yardım edebilirseniz sevinirim...

 

[uzmyrd]

yada excel de açtıktan sonra tek hücrede bulunan string'i belirli parçalara ayırıp sütunlar oluşturabilmek için ne yapmam gerekir?

 

[Levent Menteşoğlu]

Excelin veri-metni sütunlara dönüştür özelliğini kullanabilirsiniz.

 

[Haluk]

Merhaba;

Bu şekilde bir deneyin ...

Sub GetTxtData3()
'Raider ®
    Dim MyFile As String
    MyFile = "C:\Test.txt"
    j = 0
    Set NewSh = Worksheets.Add
    j = j + 1
    NewSh.Name = "TextSheet-" & j
    Open MyFile For Input As #1
        Do While Not EOF(1)
            i = i + 1
            Line Input #1, InputData
            Cells(i, 1) = Left(InputData, 10)
            Cells(i, 2) = Mid(InputData, 11, 6)
            Cells(i, 3) = Mid(InputData, 18, 6)
            Cells(i, 4) = Mid(InputData, 25, 11)
            Cells(i, 5) = Mid(InputData, 37, 6)
            Cells(i, 6) = Mid(InputData, 44, 50)
            If i > 65535 Then
                Set NewSh = Worksheets.Add
                j = j + 1
                NewSh.Name = "TextSheet-" & j
                i = 0
            End If
        Loop
    Close #1
    Set NewSh = Nothing
End Sub

 

[uzmyrd]

Teşekkür ederim, bu kodda çalıştı.
Bir de bu hücrelerin hepsini "metin" olarak nasıl açarım.
Çünkü bazı hücrelerde başta olması gereken sıfırlar kaybolmuş.

teşekkürler.

 

[Haluk]

Bu durumda ufak bir ilave daha yaparsak ...

Sub GetTxtData4()
'Raider ®
    Dim MyFile As String
    MyFile = "C:\Test.txt"
    j = 0
    Set NewSh = Worksheets.Add
    j = j + 1
    NewSh.Name = "TextSheet-" & j
    Columns("A:G").NumberFormat = "@"
      Open MyFile For Input As #1
        Do While Not EOF(1)
            i = i + 1
            Line Input #1, InputData
            Cells(i, 1) = Left(InputData, 10)
            Cells(i, 2) = Mid(InputData, 11, 6)
            Cells(i, 3) = Mid(InputData, 18, 6)
            Cells(i, 4) = Mid(InputData, 25, 11)
            Cells(i, 5) = Mid(InputData, 37, 6)
            Cells(i, 6) = Mid(InputData, 44, 50)
            If i > 65535 Then
                Set NewSh = Worksheets.Add
                Columns("A:G").NumberFormat = "@"
                j = j + 1
                NewSh.Name = "TextSheet-" & j
                i = 0
            End If
      Loop
    Close #1
    Set NewSh = Nothing
End Sub

 

[marla1286]

Arkadaşlar yukarıdaki paylaşım çok güzel olmuş... Benim sormak istedeğim test dosyasında birbiriyle ,(virgül) ile ayrılmış verileri excele nasıl atabileceğimizle ilgili.
Ã?rneğin;
AHMET,KOR,19961007,MERZIFON,18764500,TECIL,0.2500
MEHMET,ZAFER,19961006,NAZILLI,18764499,TECIL,1.5600 VB... gibi

böyle bir text dosyasını excele tarih formatını düzelterek nasıl atabilirim.

Katkısı olabilecek herkese şimdiden Teşekkür ederim

 

[Haluk]

....

böyle bir text dosyasını excele tarih formatını düzelterek nasıl atabilirim.

.....

İlk önce, Data >> Get External Data >>> Import Text File

menüsü ile "delimeter" olarak "comma - virgül" işaretleyerek verileri Excel'e alın.

Buraya kadarını yapın, daha sonra Tarih ile ilgili sütunu hallederiz.

 

[Necdet]

Sayın marla1286, Text dosyasını açın, Sayın Levent Beyin dediği gibi sütunlara bölün (virgülü ayraç olarak kullanın).
tarih içinse sonradan bir formül gerekir.
Tarih C sütununa denk gelir, D ye sütun açın şu formülü yazın
=DATE(LEFT(C1;4);MID(C1;5;2);RIGHT(C1;2))
=TARİH(SOLDAN(C1;4);PARÇAAL(C1;5;2);SAÐDAN(C1;2))

 

[marla1286]

Arkadaşlar paylaşımınız için çok teşekkür ediyorum. Hemen uygulamaya geçiyorum.

 

[marla1286]

=TARİH(SOLDAN(C1;4);PARÇAAL(C1;5;2);SAÐDAN(C1;2)
formülünü bir türlü çalıştıramadım formül sonucunda #AD? görünüyor !!!
Tarih formatı genel görünüyor. Sanırım o veride var bir bozukluk. MAKRO olarak yazmaya kalksak VBA da nasıl yazmamız gerekir yukarıdaki formülü.

 

[azhar6507]

Merhaba,

Elimde 4,5 mb'lik bir txt dosya mevcut.
Burada açıklandığı gibi (sağolsun) Haluk'un kodunu kullanıp dosyayı import etmeye kalktıgımda "Out of memory" hatası verdi.

Anladımki makro benim txt dosyasını satır satır degil de bütün dosyayı tek bir satır olarak okuyor. Sanırım txt dosyam satır satır okunabilecek formatta degil (ancak veri import edilirken "texttocolumns" fonsiyonunda düzgün çalısıyor, ancak 65bin satırı gectigi icin import edilemiyor maalesef)

txt dosyasını ilişige boyutundan dolayı (rar'lı haliyle 680 kb)

Teşekkürler

 

[excellium]

arkadaşlar,
şu 65536 dan fazla satırı olan tablolardan bende de var ama benimkiler *.DB dosyaları. Delphi7'de yazılan bir programın oluşturduğu DataBase dosyaları.

bu *.db dosyasının örneğin son 40000 satırını sütunlara ayrılmış biçimde nasıl Excel'e alabilirim?

şimdiden teşekkürler ost:

 

[excellium]

dosyayı Excel'sürüklediğimde sığmadı uyarısı alıyorum ve bana ilk 65536 tanesini veriyor, oysa bana son satırlar lazım.

bu konuda yardım alabilirsem minnettar kalıcam

 

[istavrit]

Teşekkürler...

Yukarıdaki paylaşıma katılan herkese teşekkür ederim. Macro çok işime yaradı.