65536 satırı geçen dosyalar

ncevik · 10 Ekim 2007

Merhaba arkadaşlar;
Malum excelde 65536 satır var, benim dosyalarım text ve 15.000 ile 85.000 arasında değişen satırlardan oluşan bir sürü dosya.Bu dosyaları .dbf veya .db ye çevirmem gerekli kullandığım programda işime yaraması için.Bana önce excele çevir sonra .dbf yap dediler farklı kaydetle yapıyorum. 65536 yı geçmeyen dosyalar tamam istediğim gibi oluyor ama bu satırı geçen dosyaları 2 ye bölüp çevirmem lazım sanırım yada farklı bir yolu varmı.Formada aradım ama malesef bana çözüm olacak bir bilgiye ulaşamadım.Yardım ve paylaşımlarınız için teşekkür eder paylaşarak değerlenen bilgili günler dilerim.

Skorpiyon · 10 Ekim 2007

Office 2007'yi deneyin. 1 milyon satır var.

Saygılarımla...

ncevik · 10 Ekim 2007

2003 de çözüm yokmu

Sayın Sertkaya ilginize teşekkür ederim.Lisanssız kullanmak istemiyorum ve işyerinde office 2003 var benim için 2007 almazlar.Çözüm 2003 te yokmu yada çokmu zor.Tekrar teşekkür eder iyi günler dilerim.

Merhum İdris SERDAR · 10 Ekim 2007

ncevik' Alıntı:
Sayın Sertkaya ilginize teşekkür ederim.Lisanssız kullanmak istemiyorum ve işyerinde office 2003 var benim için 2007 almazlar.Çözüm 2003 te yokmu yada çokmu zor.Tekrar teşekkür eder iyi günler dilerim.

Accesste yeni bir dosya açın.

1. File / Get External Data / Import dedikten sonra. Text dosyasını seçip yönergeleri takip ederseniz. Bir Table (Tablo) elde etmeniz mümkün olur.

2. Import edilen Table'ı File / Export / Save as Type ile dosya türünü seçin.

Bu şekilde istediğiniz Dbase5, DbaseIII, DbaseIV'e dönüştürmüş olursunuz.

Not: Yukarıdaki şekliyle problem çözülüyor. Ancak öğrenmk amacıyla soruyorum. Dbase programı Access'ten sözkonusu tabloyu çeker mi?
..

..

mertdalagan · 10 Ekim 2007

Merhaba arkadaşlar,

aşağıdaki makroyu kullan sanırım istediğin bu.

Sub LargeFileImport()
'Dimension Variables
Dim ResultStr As String
Dim FileName As String
Dim FileNum As Integer
Dim Counter As Double
'Ask User for File's Name
FileName = Application.GetOpenFilename
'Check for no entry
If FileName = "" Then End
'Get Next Available File Handle Number
FileNum = FreeFile()
'Open Text File For Input
Open FileName For Input As #FileNum
'Turn Screen Updating Off
Application.ScreenUpdating = False
'Create A New WorkBook With One Worksheet In It
Workbooks.Add Template:=xlWorksheet
'Set The Counter to 1
Counter = 1
'Loop Until the End Of File Is Reached
Do While Seek(FileNum) <= LOF(FileNum)
'Display Importing Row Number On Status Bar
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
'Store One Line Of Text From File To Variable
Line Input #FileNum, ResultStr
'Store Variable Data Into Active Cell
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If
'For xl95 change 65536 to 16384
If ActiveCell.Row = 65536 Then
'If On The Last Row Then Add A New Sheet
ActiveWorkbook.Sheets.Add
Else
'If Not The Last Row Then Go One Cell Down
ActiveCell.Offset(1, 0).Select
End If
'Increment the Counter By 1
Counter = Counter + 1
'Start Again At Top Of 'Do While' Statement
Loop
'Close The Open Text File
Close
'Remove Message From Status Bar
Application.StatusBar = False
Sheets("sheet1").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
Sheets("Sheet2").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
Sheets("Sheet1").Select
Sheets("Sheet1").Move Before:=Sheets(1)

End Sub

ncevik · 10 Ekim 2007

Acemiliğime verin lütfen

Sayın yurttaş access'i hiç bilmiyorum desem yeridir.Yanlış anlamadıysam Accessi açıp dosya dış veri al dan text dosyamı çağırmalıyım ama dış veri al seçeneği aktif değil.Muhtemelen atladığım bişeyler var.İlginize teşekkür ederim.Daha detaylı izah edebilirseniz çok sevinicem.İyi günler diliyorum..
Sayın Mertdalagan makroları yanılmıyosam excel dosyama yazıcam, anlayamadım mazur görün yapacağımız bu makro 65536 satırımı dosyamda bulunan satır kadarmı yapıcak, makroyu başka bir yeremi yazıcam sanırım sıkıntımı anlatamamışım daha detaylı bilgi verirseniz sevinirim.İlginize teşekkür ederim.

Değerli arkadaşlar bu forum da bilgisini paylaşmaktan sakınmayan,esirgemeyen tüm arkadaşlara saygı ve teşekkürlerimi iletiyorum.Herkese kolay gelsin iyi günler

ncevik · 10 Ekim 2007

Örnekle anlatmaya çalışayım

Değerli Arkadaşlar Ek'te bir .txt ve .xls dosyası var.Bu şekilde daha iyi anlatırım sanırım.Bana gelen dosya .txt öncede söylediğim gibi satır sayıları farklı.Ben bu dosyayı .xls ye çeviriyorum örnekteki gibi yeni sutunlar ekleyerek dolayısıyla .txt dosya işimize yaramicak. 65536 satırı geçen .xls dosyalarımı bölmem gerekiyor ve o iki .xls dosyamı birleştirip .dbf veya .db ye dönüştürmeliyim.Hepinize şimdiden teşekkür eder esenlikler dilerim

Merhum İdris SERDAR · 11 Ekim 2007

ncevik' Alıntı:
Değerli Arkadaşlar Ek'te bir .txt ve .xls dosyası var.Bu şekilde daha iyi anlatırım sanırım.Bana gelen dosya .txt öncede söylediğim gibi satır sayıları farklı.Ben bu dosyayı .xls ye çeviriyorum örnekteki gibi yeni sutunlar ekleyerek dolayısıyla .txt dosya işimize yaramicak. 65536 satırı geçen .xls dosyalarımı bölmem gerekiyor ve o iki .xls dosyamı birleştirip .dbf veya .db ye dönüştürmeliyim.Hepinize şimdiden teşekkür eder esenlikler dilerim

1. Eklediğiniz text dosyasından direkt olarak veri alınıp sütun yada field başlıkları ile birlikte sağlıklı bir tablo elde edilmesi için dosya, pek elverişli görünmüyor.

2. Zaten siz de bunu alıp, Excel'de bazı işlemlerden geçirip, elverişli duruma getirdiğinizi anlatıyorsunuz.

3. Bu duruma göre ben olsam ne yapardım.

a) Access'i biraz öğrendikten sonra (pek fazla da bilgiye gerek kalmaksızın) Text dosyamı elverişli hale getirdikten sonra yukarıdaki mesajımda anlattığım yolu izlerim.

b) Text dosyasını Excel'e bir kaç sheet halinde koyar, bu forma ekler,Excel2007 kullanan arkadaşlardan bunu birleştirilmesini ve dbf formatına dönüştürülmesini rica ederdim.

c) Yine biraz Access bilgisi ile http://www.excel.web.tr/showthread.php?t=23671 bu linkte eklediğim dosya ve açıklamaları çerçevesinde parça, parça halinde Excel'e aktarılmış bulunan verileri Access'te birleştirdikten sonra yine yukarıda anlattığım yöntemle Access'ten dbf'ye Export ederim.

Gördüğünüz gibi pek çok çıkış yolu var.

.

mertdalagan · 11 Ekim 2007

Selam ncevik,
Bu makroyu çalıştırdığınızda karşınıza açmak istediğiniz dosyayı seçeceğiniz pencere çıkacak. dosyayı seçip aç dedikten sonra 65536. satıra kadar olanları sheet 1 e 131072. satıra kadar olanları sheet 2 ye atacak. dosyanızın büyüklüğüne göre sheet sayısı artabilir.

....HERKESE İYİ BAYRAMLAR....

ncevik · 12 Ekim 2007

Selam Arkadaşlar.Teşekkürler

Merhaba ; Hepinize ayrı ayrı teşekkür ederim ark.lar. Makro yazsamda dosyaları birleştirmek için access kullanmam gerekiyor anladığım kadarıyla, tabi aslında en kesin ve rahat çözüm 2007 görünüyor ama bunu mevcut 2003 le çözmek zorundayım.Sayın yuttaş verdiğiniz linkten ve diğer access açıklamalarını kullanarak yapmaya çalışıcam.Sizleri bilgilendiricem.Tekrar herkese teşekkür ediyor.İyi günler diliyorum.

....Ramazan Bayramınız Mübarek Olsun....

65536 satırı geçen dosyalar

ncevik

Skorpiyon

Misafir

ncevik

Merhum İdris SERDAR

Moderatör

mertdalagan

ncevik

ncevik

Merhum İdris SERDAR

Moderatör

mertdalagan

ncevik