Txt Dosyası Oluşturma

[oguzka]

Merhaba;

Excel sayfamda herhangi bir hücrede yazan yazıyı txt. dosyasına çevirip masaüstüne kaydeden bir makroya ihtiyacım var. Yardımcı olabilirmisiniz?

Hücrede yazan (örn:a1 hücresinde "excel.web.tr") yazıyor. Makro sadece bu yazıyı içeren bir txt dosyası yaratsın masaüstüne.

 

[excel03]

merhaba;

(alıntıdır)

Sub DosyayaYazdirX()
'excel dosyasını, txt dosyası haline getirir.
yol = "C:\TEST1.TXT"
  Open yol For Output As #1
    satir = [A65536].End(3).Row
    sutun = 1
        For i = 1 To satir
            For j = 1 To sutun
              a = a & Cells(i, j) & ";"
            Next j
        Print #1, Left(a, Len(a) - 1)
        a = ""
        Next i
  Close #1
End Sub

 

[oguzka]

Teşekkür ederim. Sanırım yeterli olacaktır.

 

[oguzka]

Teşekkür ederim. Sanırım yeterli olacaktır.