text dosyasının satırlarını makro ile değiştirmek

[istavrit]

Merhabalar,

Benim üzerinde çalıştığım şu;

exceli açtığımda halihazırda standart bir isimle(test.txt) var olan bir text dosyasının benim belirleyeceğim satırlarında değişiklik yapıp excele almak. Ã?rnek verecek olursak test.txt dosyamın içeriği şu şekilde olsun

allllllllllkkkkkkkkk
bjjjjjjjkkkkkkyyy

gibi ben a ile başlayan satırların belirli noktalarına boşluk koymak istesem

allllllllllk kkkkkkkk
bjjjjjjjkkkkkkyyy gibi olacak şekilde.

macroyla bunu yapmama yardımcı olursanız sevinirim.... Teşekkürler.

 

[omerceri]

mokrodaki aşağıda yazdığım kod parçasını gönderdiğim txt dosyasının yoluna göre değiştir
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Documents and Settings\kırmızı\Desktop\dd.txt", Destination:=Range("A1"))

 

[omerceri]

Makronun ilk iki satırını aşağıdaki kod ile değiştirirsen excel ve txt dosyası aynı klasörde olmak şartıyla daha kolay çalışır.

Columns("A:A").Delete Shift:=xlToLeft
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & ThisWorkbook.Path & Application.PathSeparator & "dd.txt", Destination:=Range("A1"))

raider ve milhanalp'e yardımları için teşekkür ederim

 

[istavrit]

merhabalar,

cevaplarınıza henüz bakabildim ancak örnek.zip adlı dosyanızı indirmede problem yaşıyorum. Bu dosyayı indiremedim.

 

[omerceri]

internetim bugün yavaş sadece kodları gönderiyorum

dd.txt doyası oluşturup içine

allllllllllkkkkkkkkk
bjjjjjjjkkkkkkyyy

yazıyorsunuz

Sub Makro2()
Columns("A:A").Delete Shift:=xlToLeft
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & ThisWorkbook.Path & Application.PathSeparator & "dd.txt", Destination:=Range("A1"))

.Name = "dd"
.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 = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
aaa = 1
While Range("A" & aaa) <> ""
If Left(Range("A" & aaa), 1) = "a" Then
Range("A" & aaa) = Left(Range("A" & aaa), 11) & " " & Right(Range("A" & aaa), Len(Range("A" & aaa)) - 11)
End If
aaa = aaa + 1
Wend

End Sub

 

[istavrit]

ömerçeri çok teşekkür ederim. sağol.