txt dosya yükleme

[cengiz123]

merhabalar
elimde bir dosya var. bu dosya 3sütun, 35bin satırdan oluşmaktadır.
bu dosyayı excele, makro yardımıyla buton ile işe yükleyebiliyorum. ancak şöyle bir sorunum var.
data yükleme süresi 2-3dkyı bulmakta.
bu dosyayı hızlı bir şekilde yükleyebilme imkanı var mıdır?
makro ile dosyayı seçebileceğim hızlı yüklenebilen bir kod var mıdır?

 

[Necdet]

Merhaba,
Metin dosyasını görmekte yarar var. Afaki konuşmak yarar sağlamaz.

 

[cengiz123]

merhaba arkadaşlar,

şöyle bir kod buldum.
bu kod yaklaşık 40 bin satırı 1sn de yüklüyor.
umarım arayan arkadaşların işini görür

Dim fName As String
Zxt = TimeValue(Now)

bs = Cells(995536, 1).End(xlUp).Row + 200
Range("A2:e" & bs).ClearContents
fName = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Zxt = TimeValue(Now)
If fName = "False" Then Exit Sub

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fName, _
Destination:=Range("$A$1"))
.Name = "sample"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "" & Chr(10) & ""
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
MsgBox "Islem tamamlandi." & vbLf & vbLf & CDate(TimeValue(Now) - Zxt), vbInformation