CSV formatında büyük bir dosyayı excel'de açmak

[istikam]

Herkese iyi günler..

1.
67 MB'lık, ".CSV" uzantılı çok büyük bir dosyam var. Açmak istediğimde Excel "DOSYA TAMAMEN YÜKLENMEDİ" uyarısı veriyor ve 65536 satır bilgi geliyor. Fakat dosyada çok daha fazla satır mevcut ve bunları kaybediyorum.

65536. satırdan sonrasını başka bir sayfalara yazmasının veya farklı bir şekilde excel'de görüntülemenin yolu varmıdır?

2.
Bu dosyanın tamamını notepat'de açabiliyorum. Format şu şekilde:

08.11.2007 21:45:35,Değer,1005,,,,08.11.2007 21:45:35
08.11.2007 21:45:36,Değer,1121,,,,08.11.2007 21:45:36
08.11.2007 21:45:37,Değer,1047,,,,08.11.2007 21:45:37
08.11.2007 21:45:38,Değer,1218,,,,08.11.2007 21:45:38
08.11.2007 21:45:39,Değer,918,,,,08.11.2007 21:45:39

Hücreler virgüller ile ayrılıyor. Toplam 7 adet sütun var ve onbinlerce satır.(4,5 ve 6. satırlarda değer olmadığı için arka arkaya virgül geliyor)
Notepat'de tamamı açılan bu dosya Excel'e atılabilir mi?

3.
Söz konusu ".CSV" uzantılı dosyayı açmadan ilk sutundaki tarihe bakacak ve verilen iki tarih arasındaki verileri görüntüleyecek bir sorgulama yapılabilir mi?


Yardımlarınız için şimdiden teşekkür ederim.

 

[istikam]

LÜtfen Yardim

Herkese tekrar selam..

Konuyla ilgili yardımlarınızı rica ediyorum.

Teşekkürler.

 

[Galus]

CSV to XLS Converter programı ile sorun çözülür.

 

[Haluk]

Sözkonusu dosyanızı .txt uzantlı olarak kaydedin, daha sonra ekteki Excel dosyasını açın ve sayfa üzerindeki butona tıklayın.

Kodlar çalışmasını bitirdikten sonra, .txt uzantılı dosyadaki tüm veriler Excel dosyasında oluşturulacak yeteri kadar sayfaya yerleştirilecektir.

Eğer gerekiyorsa daha sonra A sütununu seçip, menülerden Data >> Text to Columns ile ayraç olarak "," kullanarak verilerinizi sayfalarda düzenlersiniz.


Kaynak: http://www.mrexcel.com/archive2/23900/27224.htm

.

 

[_Mairo_]

ekteki excel dosyasını görüntüleyemiyorum. yardımcı olabilecek var mı??

adoimport.xls

 

[_Mairo_]

üstat ekli dosyana ulaşamıyorum. yardımcı olurmusun?

Sözkonusu dosyanızı .txt uzantlı olarak kaydedin, daha sonra ekteki Excel dosyasını açın ve sayfa üzerindeki butona tıklayın.

Kodlar çalışmasını bitirdikten sonra, .txt uzantılı dosyadaki tüm veriler Excel dosyasında oluşturulacak yeteri kadar sayfaya yerleştirilecektir.

Eğer gerekiyorsa daha sonra A sütununu seçip, menülerden Data >> Text to Columns ile ayraç olarak "," kullanarak verilerinizi sayfalarda düzenlersiniz.


Kaynak: http://www.mrexcel.com/archive2/23900/27224.htm

.

 

[dEdE]

Merhaba,

Mesajınızda yer alan linkteki kodlar ekli dosyadadır.

Kaynak: http://www.mrexcel.com/archive2/23900/27224.htm

 

[_Mairo_]

Mesajınızdaki dosya sanırım bozuk. Çünkü rarlı halde diğeri 30 KB iken sizinki 7,9KB. ve dosyayı açtığımda hata veriyor ve txt verial ı tıkladığımda hiç bir işlem yapmıyor.

Verdiği hata aslında makro güvenliği. ne yapabilirim sizce.

Merhaba,

Mesajınızda yer alan linkteki kodlar ekli dosyadadır.

 

[Korhan Ayhan]

Selamlar,

Makroların çalışması için güvenlik ayarlarınızı değiştirmelisiniz.

Araçlar-Makro-Güvenlik menüsünden Orta seçeneğini seçip tamam deyin.
Dosyayı açarken size makroları etkinleştirmek istiyormusunuz diye bir soru sorulacak. Ortadaki seçeneği seçip dosyayı açın.

 

[dEdE]

Mesajınızdaki dosya sanırım bozuk. Çünkü rarlı halde diğeri 30 KB iken sizinki 7,9KB. ve dosyayı açtığımda hata veriyor ve txt verial ı tıkladığımda hiç bir işlem yapmıyor.
Verdiği hata aslında makro güvenliği. ne yapabilirim sizce.

Merhaba,
Sayın Ayhan yanıtlamış sorunuzu.
Ben de mesajınızdaki çelişkiye dikkat çekmek istedim. "..Çünkü rarlı halde diğeri 30 KB iken sizinki 7,9KB..." demişsiniz. Aksi olsaydı sorun olurdu zaten. Diğer dosya *.xls, boyutunun büyük olması doğal. *.rar sıkıştırılmış dosya formatı olduğundan boyutu orjinal dosyaya göre küçük olacaktır.

Eğer dosya ile ilgili şüpheleriniz varsa, kodların alındığı kaynağa giderek, ikinci mesajdaki (linki mesajlarda var) orjinal kodlara ulaşabilirsiniz.

Hoşça kalın.

 

[tamer42]

Merhabalar,
elimde içeriğini göremediğim 3,5 GB boyutunda bir CSV dosyası mevcut, Excel olarak açılmıyor,
içeriğinde bilgileri ADOB.Connection ile parça parça almayı düşündüm ama;
aşağıdaki kodda, "Sunucuya bağlanamıyor, Dosya düzgün yüklenmemiş olabilir"
hata mesajı veriyor,
bu konuda nasıl bir çözüm önerisinde bulunabilirsiniz,

teşekkürler,
iyi hafta sonları...

Sub sbADO()
Dim sFile As String
Dim DBPath As String, sconnect As String
Dim sSQLQry As String
Dim ReturnArray

Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset

DBPath = ThisWorkbook.path
sFile = "a2024-01-10.csv"

sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Extended Properties='text;HDR=NO'"

Conn.Open sconnect
    sSQLSting = "SELECT * From " & sFile
    mrs.Open sSQLSting, Conn
        ActiveSheet.Range("A2").CopyFromRecordset mrs
    'Close Recordset
    mrs.Close

Conn.Close

End Sub

 

[tamer42]

Merhabalar,
elimde içeriğini göremediğim 3,5 GB boyutunda bir CSV dosyası mevcut, Excel olarak açılmıyor,
içeriğinde bilgileri ADOB.Connection ile parça parça almayı düşündüm ama;
aşağıdaki kodda, "Sunucuya bağlanamıyor, Dosya düzgün yüklenmemiş olabilir"
hata mesajı veriyor,
bu konuda nasıl bir çözüm önerisinde bulunabilirsiniz,

teşekkürler,
iyi hafta sonları...

tekrar merhaba,
Aşağıdaki kod ile CSV dosyasından veriler geliyor yalnız maks. 1 milyon satırı alıyor, bu şekilde excel dosyasının boyutu: 132 MB,
CSV dosyasının 3,5 GB olduğu düşünülürse ~ %4 civarına denk geliyor.
satır sayısı 1 milyona ulaşınca, yeni bir sayfa açarak;
kaldığı yerden verileri yeni sayfaya aktarması şekilde kodlar nasıl düzenlenebilir?
teşekkürler,

Sub Test123()

Dim ws As Worksheet, fileNm As String, fileName As String

Dim FSO As Scripting.FileSystemObject

Set FSO = New FileSystemObject

Set ws = ActiveWorkbook.Sheets("Data")

fileNm = Application.GetOpenFilename("CSV Files  (*.csv),*.csv", , "Please select CSV file...")

If fileNm = "False" Then
    Exit Sub
Else

With ws.QueryTables.Add(Connection:="TEXT;" & fileNm, Destination:=ws.Range("A1"))
    .TextFileParseType = xlDelimited
    .TextFileCommaDelimiter = True
    .Refresh
End With

End If

End Sub
[code]

 

[tamer42]

tekrar merhaba,
Aşağıdaki kod ile CSV dosyasından veriler geliyor yalnız maks. 1 milyon satırı alıyor, bu şekilde excel dosyasının boyutu: 132 MB,
CSV dosyasının 3,5 GB olduğu düşünülürse ~ %4 civarına denk geliyor.
satır sayısı 1 milyona ulaşınca, yeni bir sayfa açarak;
kaldığı yerden verileri yeni sayfaya aktarması şekilde kodlar nasıl düzenlenebilir?
teşekkürler,

Sub Test123()

Dim ws As Worksheet, fileNm As String, fileName As String

Dim FSO As Scripting.FileSystemObject

Set FSO = New FileSystemObject

Set ws = ActiveWorkbook.Sheets("Data")

fileNm = Application.GetOpenFilename("CSV Files  (*.csv),*.csv", , "Please select CSV file...")

If fileNm = "False" Then
    Exit Sub
Else

With ws.QueryTables.Add(Connection:="TEXT;" & fileNm, Destination:=ws.Range("A1"))
    .TextFileParseType = xlDelimited
    .TextFileCommaDelimiter = True
    .Refresh
End With

End If

End Sub

 

[tamer42]

CSV dosyasını,
Power Pivot ile açtım 20 M satır var, buradaki verileri 20' ye bölüp 20 ayrı excel dosyası yapılabilir mi?
Malum excel maks. 1 M satır alabiliyor,
teşekkürler,
iyi akşamlar.