Makro ile Text (Tab delimited) dosya kaydederken sorun

[bezl]

Merhaba
Ebeyanname'nin dosyadan veri alabilmesi için bilanço ve gelir tablosunu metin (sekmeyle ayrılmış) kaydetmek gerekiyor. Makro ile metin sekmeli kaydettiriyorum. Kaydettirdikten sonra kapatmayıp dosyayı elle kapatırsam bir sorun olmuyor, ancak kapatmayı da makro ile yaptırınca ondalık ayracı "," iken belgede "." yapıyor ve çok saçma sonuç çıkıyor. Elle kapatınca formatı koruma gibi birşeyler soruyor ondan oluyor herhalde ama makro ile bu sorunu nasıl çözebilirim. Þimdiden teşekkürler...

 

[bezl]

Bu konuda yardımcı olabilecek yok mu?

 

[bezl]

Yardımlarınızı bekliyorum...

 

[osmantelci]

Sub TXT()
Open "C:\Deneme.txt" For Output As #1: For Each x In [A1:A20]: Veri = x: Print #1, Veri: Next: Close #1
End Sub

Sub DenemeVerisi()
 [A1:A20] = 100.25
End Sub

 

[bezl]

osmantelci teşekkür ederim ama ben yeni bir dosya açtırıp üzerinde işlemle yaptırıyorum ve sonra farklı kaydet ile kaydedip sekmeli metin yapıyorum. Bu konuda yardım rica ediyorum. Haydi arkadaşlar bu form sayesinde çok şeyi başardım inşaallah bunun da üstesinden geliriz.

 

[osmantelci]

Sub DenemeVerisi()
 [A1:A20] = 100.25
End Sub

Sub MutlakaFarkliKaydetileOlmali()
 For x = 1 To [a65536].End(-4162).Row: Range("A" & x) = Format(Range("A" & x), "@"): Next
 adim_ne = Application.InputBox("Dosya Adınız", , , , , , , 2)
 ThisWorkbook.SaveAs "C:\" & adim_ne, -4158: ThisWorkbook.Close 0
End Sub

Sub ac()
 adim_ne = Application.InputBox("Dosya Adınız", , , , , , , 2)
 Workbooks.OpenText "C:\" & adim_ne & ".txt", 857, 1, 1, 1, 1
End Sub