Excel sayfasını TXT dosyasına kayıt ederken "" işareti sorunu

[tamer42]

Merhabalar,
Ekli dosyadan aşağıdaki kod ile TXT dosyası oluşturmak isterken;
hücrede yazan 0,2,0,1,1,1,1,1,0,0,0,0,2,2,2 şeklindeki ifadeyi Text dosyasına satırın başına ve sonuna ("") tırnak işareti içinde alıyor.

tırnak işareti olmadan hücrede yazdığı şekliyle txt dosyasına aktarması için nasıl bir düzenleme yapılabilir?

desteğiniz için şimdiden teşekkürler,
iyi pazarlar.

Sub saveAsTXT()
Dim myPath As String
Dim myFileName As String
Num = 12

myPath = ThisWorkbook.Path

myFileName = myPath & "\temp_" & Num & ".txt"

ActiveSheet.SaveAs myFileName, xlTextWindows

MsgBox "TXT dosyası kaydedildi..", vbOKOnly, "Bilgi"

End Sub
[code]

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub saveAsTXT()
Dim myPath As String
Dim myFileName As String
Num = 12

myPath = ThisWorkbook.Path

myFileName = myPath & "\temp_" & Num & ".txt"

Open myFileName For Output As #1
    Print #1, Join(Application.Transpose(Range("A1:A10")), vbLf)
Close #1

MsgBox "TXT dosyası kaydedildi..", vbOKOnly, "Bilgi"

End Sub

 

[muygun]

Merhaba;
Alternatif olsun.

Sub saveAsTXT()
Num = 12
dosyaadı = "temp_"
Open ThisWorkbook.Path & "\" & dosyaadı & Num & ".TXT" For Output As #1
For i = 1 To Range("A65536").End(xlUp).Row
yazz = Cells(i, 1)
Print #1, yazz
yazz = Empty
Next i
Close #1
MsgBox "TXT dosyası kaydedildi..", vbOKOnly, "Bilgi"
End Sub

İyi çalışmalar.

 

[tamer42]

Ömer ve muygun hocalarım desteğiniz için teşekkürler..

 

[tamer42]

Merhaba,
Deneyiniz...

Sub saveAsTXT()
Dim myPath As String
Dim myFileName As String
Num = 12

myPath = ThisWorkbook.Path

myFileName = myPath & "\temp_" & Num & ".txt"

Open myFileName For Output As #1
    Print #1, Join(Application.Transpose(Range("A1:A10")), vbLf)
Close #1

MsgBox "TXT dosyası kaydedildi..", vbOKOnly, "Bilgi"

End Sub

Ömer Hocam selamlar

Range("A1:A10") hücre aralığına;
veriyi Range("A1").CopyFromRecordset RS yöntemiyle kopyaladıktan sonra txt dosyası olarak kaydediyorum.
hücreye kopyalamadan doğrudan Recordset içinden txt dosyasına yazdırmak mümkün müdür?
Kodu aşağıdaki gibi düzenledim ama hata verdi
tekrar teşekkürler,

Dim veri As Variant

veri = RS.getRows
 Print #1, Join(Application.Transpose(veri), vbLf)

 

[halily]

Recordseti text olarak alabilm3k için
veri=rs.getstring kullanılabilir.
Print #1, rs.getstring

 

[tamer42]

Recordseti text olarak alabilm3k için
veri=rs.getstring kullanılabilir.
Print #1, rs.getstring

Teşekkürler Halil Hocam

 

[halily]

Verileri nereden alıyorsunuz; access, excel, sql server vsvs ?

 

[tamer42]

Verileri nereden alıyorsunuz; access, excel, sql server vsvs ?

Halil Hocam verileri başka bir TXT dosyasından alıyorum
iyi akşamlar