Text > Excel'e aktarmada "Değiştir" komutu

[komediyat]

"deneme.txt" dosyasını excel'e aktarırken dosya içinde yer alan "." yerine "v" yazarak excel'e aktaracak bir makro yazmaya çalışıyorum. Bu arada aktarım sırasında "," işareti sınırlandırma ayıracı olarak kullanılacaktır. Yani söylemeye çalıştığım :

20 , .9505555555555556 , 76.59999999999999 , 32 , 9.5

şeklindeki bir satırı

20 v9505555555555556 76v59999999999999 32 9v5 şeklinde excele aktaracak bir makro arıyorum.

Şu hali ile önce deneme.txt dosyasına girip "Değiştir" komutu ile "." işaretini "v" olarak değiştirerek kaydedip, ardından excelden "dış veri al" komutu ile dosya içeriğini excele aktarmak mümkün fakat benim isteğim bunu makro ile yapabilmek.

"Dış veri al" işini makro ile yapma kısmını da başardım fakat aktarım sırasında "." yerine "v" yazdırma işini yapamadım.

Yardımcı olacak arkadaşlara şimdiden teşekkürler

 

[hamitcan]

Bu açıklamalara, bir de örnek dosya ekleseydiniz güzel olacakmış.

 

[mbankaar]

Sub Makro()

Workbooks.OpenText Filename:= _
"deneme.txt", Origin:=857, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
Cells.Replace What:=".", Replacement:="v"

End Sub

Farklı kaydetle Excel formatını seçerseniz olur.