excel to text macro

[emre11]

Merhaba,
bir excel dosyamda A1 den A30 a kadar dolu hücrelerim var. Bu çalışma dosyasını açtığımda bir macro çalıştırıp excel ile aynı dizinde bir text dosyası oluşturup 30 satırı içine kopyalayabilirmiyim (macro ile). Hem dışarda text dosyası yaratacak, hem her hücreyi bir satıra yerleştirmiş olacak text dosyasında. Teşekkür ederim..

 

[Orion1]

Dosyanız ektedir.

Sub excel_to_txt()
Dim fso As Object, f As Object, i As Byte
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile(ThisWorkbook.Path & "\deneme.txt", True, False)
For i = 1 To 30
    f.writeline Cells(i, "A").Value
Next i
Set f = Nothing
Set fso = Nothing
MsgBox "Text dosya çıkarıldı" & vbLf & "evrengizlen@hotmail.com"

End Sub

 

[emre11]

Valla çok teşekkürler, kolay gelsin..

 

[Orion1]

Valla çok teşekkürler, kolay gelsin..

Rica ederim.
İyi çalışmalar.