excel'den txt'ye kopyala yapıştır yapmak

[argadal2]

Arkadaşlar;
ekcel'de sayfa1 'e bir resim koyup ona makro atamak istiyorum.
makronun yapacağı da sayfa2'deki A1:K250 alanını kopyalaması ve bunu masaüstündeki adsız.txt dosyasının içine yapıştırmasını istiyorum.
Bir de buradaki adsız.txt dosyası içi dolu bir dosya, yani onun içine yapıştırırken içerdekileri silip yapıştırmasını istiyorum.
Bunun için modül bölümüne nasıl bir kod yazmam gerekecek.
Yardımcı olursanız sevinirim.
Hayırlı günler.

 

[Orion1]

Dosyanız ektedir.

Sub txtyekayit59()
Dim deg As String, yol As String, dosya As String
Dim i As Long, sat As Long, k As Byte
yol = CreateObject("wscript.shell").specialfolders(10)
dosya = "\" & "adsız.txt"
sat = Cells(Rows.Count, "A").End(xlUp).Row
Open (yol & dosya) For Output As #1
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    For k = 1 To 11
        deg = deg & " " & Cells(i, k).Value
    Next
    Print #1, deg
    deg = ""
Next i
Close #1
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, Application.UserName
End Sub

 

[argadal2]

çok teşekkür ederim.
verdiğiniz kodu denedim. Yalnız benim makro vereceğim resim sayfa1 de, ama kopya olacak alan sayfa2'de.
Kodu denediğimde makro verdiğim resmin olduğu sayfadaki kodları kopyalayıp txt'ye aktardı.