65536 satırı geçen dosyalar

[ncevik]

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]

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

Saygılarımla...

 

[ncevik]

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]

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]

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]

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]

Ö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]

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

1. Ekledi&#287;iniz text dosyas&#305;ndan direkt olarak veri al&#305;n&#305;p s&#252;tun yada field ba&#351;l&#305;klar&#305; ile birlikte sa&#287;l&#305;kl&#305; bir tablo elde edilmesi i&#231;in dosya, pek elveri&#351;li g&#246;r&#252;nm&#252;yor.

2. Zaten siz de bunu al&#305;p, Excel'de baz&#305; i&#351;lemlerden ge&#231;irip, elveri&#351;li duruma getirdi&#287;inizi anlat&#305;yorsunuz.

3. Bu duruma g&#246;re ben olsam ne yapard&#305;m.

a) Access'i biraz &#246;&#287;rendikten sonra (pek fazla da bilgiye gerek kalmaks&#305;z&#305;n) Text dosyam&#305; elveri&#351;li hale getirdikten sonra yukar&#305;daki mesaj&#305;mda anlatt&#305;&#287;&#305;m yolu izlerim.

b) Text dosyas&#305;n&#305; Excel'e bir ka&#231; sheet halinde koyar, bu forma ekler,Excel2007 kullanan arkada&#351;lardan bunu birle&#351;tirilmesini ve dbf format&#305;na d&#246;n&#252;&#351;t&#252;r&#252;lmesini rica ederdim.

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

G&#246;rd&#252;&#287;&#252;n&#252;z gibi pek &#231;ok &#231;&#305;k&#305;&#351; yolu var.


.

 

[mertdalagan]

Selam ncevik,
Bu makroyu &#231;al&#305;&#351;t&#305;rd&#305;&#287;&#305;n&#305;zda kar&#351;&#305;n&#305;za a&#231;mak istedi&#287;iniz dosyay&#305; se&#231;ece&#287;iniz pencere &#231;&#305;kacak. dosyay&#305; se&#231;ip a&#231; dedikten sonra 65536. sat&#305;ra kadar olanlar&#305; sheet 1 e 131072. sat&#305;ra kadar olanlar&#305; sheet 2 ye atacak. dosyan&#305;z&#305;n b&#252;y&#252;kl&#252;&#287;&#252;ne g&#246;re sheet say&#305;s&#305; artabilir.

....HERKESE &#304;Y&#304; BAYRAMLAR....

 

[ncevik]

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....