- Katılım
- 17 Haziran 2008
- Mesajlar
- 1,871
- Excel Vers. ve Dili
- Microsoft Ofis Profesyonel 2019 x64 TR
- Altın Üyelik Bitiş Tarihi
- 26-03-2020
Merhaba arkadaşlar;
hafızadaki verileri txt dosyasına yazdırıyorum. bu kod ile...
With txtaciklama
.SelStart = 0
.SelLength = Len(.Text)
Clipboard.SetText txtaciklama, vbCFText
End With
dosyaadi = "Kopyala"
komut_txt = Clipboard.GetText
txtdosya = (CurDir & "\" & dosyaadi & ".txt")
If Len(Dir(txtdosya)) > 1 Then Kill txtdosya
Open txtdosya For Output As 1
Print #1, komut_txt
Close
komut_txt değişkenin önüne bir ek değişken belirtmem gerekiyor. bunu nasıl yapabilirim ?
hafızadaki verileri txt dosyasına yazdırıyorum. bu kod ile...
With txtaciklama
.SelStart = 0
.SelLength = Len(.Text)
Clipboard.SetText txtaciklama, vbCFText
End With
dosyaadi = "Kopyala"
komut_txt = Clipboard.GetText
txtdosya = (CurDir & "\" & dosyaadi & ".txt")
If Len(Dir(txtdosya)) > 1 Then Kill txtdosya
Open txtdosya For Output As 1
Print #1, komut_txt
Close
komut_txt değişkenin önüne bir ek değişken belirtmem gerekiyor. bunu nasıl yapabilirim ?