- Katılım
- 5 Mart 2010
- Mesajlar
- 295
- Excel Vers. ve Dili
- Microsoft Office 2010
- Altın Üyelik Bitiş Tarihi
- 20.12.2018
Kod:
Private Sub CommandButton6_Click() 'YENİ TXT OLUŞTUR BUTONU
TextBox5.Value = ""
adres = ThisWorkbook.Path & "\"
dosyaadı = InputBox("Lütfen dosya adı giriniz..")
Open adres & dosyaadı & ".TXT" For Output As #1
Print #1, TextBox5.Value
Close
End Sub
sorunum şu;
1-inputbox içine veri girilmediği zaman txt metin belgesi oluşturmasın.. uyarı versin
2- diyelim ki bir txt dosyası oluşturduk. oluşturduğumuz yeni txt belgesi listbox1'de listelensin..
yardımlarınızı rica ediyorum.
Ekli dosyalar
-
39.6 KB Görüntüleme: 3