Kendi TXT Dosyamı istediğim gibi oluşturamıyorum.

[tevfikdemir]

Merhaba ,

Ekdeki TXT dosyasında her boşluk sonrası gelen rakam ve yazıları Excel sayfasında ayrı ayrı hücrelere almak istiyorum fakat olmuyor.Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.
Not :Bunun Macro ile yapılması gerekiyor.
Saygılarımla

 

[veyselemre]

Sayın Tevfik Demir, aşağıdaki kodlarla sorununuzu çözmeye çalıştım ama sağlıklı olur mu bilemem, asıl çözüm bu kodların kaydedildiği yapıyı öğrenerek yapılabilir.

[vb:1:40d9a12241]Sub dene()
Cells.ClearContents
Open "1.txt" For Input As #1
Input #1, veri$
veriler = Split(veri, Chr(10))
For Each VER In veriler
If VER <> "" Then
SAT = SAT + 1
SUT = 1
BOLUMLER = Split(VER, " ")
For Each BOLUM In BOLUMLER
If BOLUM <> "" Then
Cells(SAT, SUT) = (BOLUM)
SUT = SUT + 1
End If
Next
End If
Next
Close #1
End Sub[/vb:1:40d9a12241]

 

[Merhum İdris SERDAR]

Alternatif olarak.

Macro kaydet ile aşağıdaki kodlar elde edilebilir.
Bu kodları bir Module'nin içine kopyalayın.

Eğer dosyanız C sürücüsünde değilse ve dosyanızın adı farklıysa; C:\parcadosya.txt" yolunu ve dosya adını (.Name = "parcadosya")
kodda ona göre düzenleyin.


Sub Macro1()

Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\parcadosya.txt", _
Destination:=Range("A1"))
.Name = "parcadosya"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 857
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileOtherDelimiter = ""
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

 

[tevfikdemir]

Sevgili veyselemre ve yurttaş arkadaşlarım.ikinizede çok teşekkür ederim Elinize sağlık tam istediğim gibi oldu

Saygılarımla