Yeni Kayıt
Konudaki Resimler
< Bu ileti mobil sürüm kullanılarak atıldı > |
Hızlı 
Bildirim
Text dosyasına Excel'den veri gönderme?
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
Diğer sorunuzdaki verdiğim makro işinizi görür umarım.
https://forum.donanimhaber.com/toplu-dosya-adi-degistirme--133233088 -
Hocam ilginiz için çok teşekkür ederim. Dosya ismi değiştirmeyi başardım. Şimdi Exceldeki şifreleri ayrı ayrı text dosyalarına göndermek istiyorum. Bu konuda yardımcı olur musunuz. Çok araştırdım ama çözüm bulamadım.quote:
Orijinalden alıntı: akcan
Diğer sorunuzdaki verdiğim makro işinizi görür umarım.
https://forum.donanimhaber.com/toplu-dosya-adi-degistirme--133233088
< Bu ileti mobil sürüm kullanılarak atıldı > -
aşağıdaki kodları deneyiniz.
Sub DosyayaKaydet()
' Makro: Mesut Akcan
' 8/6/2018
' www.akcansoft.com
On Error Resume Next
klasor = "d:\ahmet\"
satir = 2
Do
dosya_adi = Cells(satir, 1) ' A sütunu
sifre = Cells(satir, 2) ' B sütunu
If dosya_adi = "" Then Exit Do
Open klasor & dosya_adi For Output As #1
Print #1, sifre
Close #1
If Err Then
kontrol = "Hata ! " & Err
Err = 0
Else
kontrol = "Tamam !"
End If
Cells(satir, 3).Value = kontrol
satir = satir + 1
DoEvents
Loop
MsgBox "İşlem Tamam !"
End Sub -
Hocam çok teşekkür ederim. Şifreleri klasöre gönderdi. Ama text dosyalarına göndermedi. Aynı isimde ayrı dosya oluşturup gönderdi. Oluşan dosyalar uzantısız. Text dosyalarını silip uzantısısız yeni dosyaların uzantısını text yapsam işim çözülmüş olacak. Ben bi uğraşayım yapabilecek miyim. Yapamazsam kapınızı çalarım yine. Emeğiniz için çok teşekkür ederim. Çok sağolunquote:
Orijinalden alıntı: akcan
aşağıdaki kodları deneyiniz.
Sub DosyayaKaydet()
' Makro: Mesut Akcan
' 8/6/2018
' www.akcansoft.com
On Error Resume Next
klasor = "d:\ahmet\"
satir = 2
Do
dosya_adi = Cells(satir, 1) ' A sütunu
sifre = Cells(satir, 2) ' B sütunu
If dosya_adi = "" Then Exit Do
Open klasor & dosya_adi For Output As #1
Print #1, sifre
Close #1
If Err Then
kontrol = "Hata ! " & Err
Err = 0
Else
kontrol = "Tamam !"
End If
Cells(satir, 3).Value = kontrol
satir = satir + 1
DoEvents
Loop
MsgBox "İşlem Tamam !"
End Sub
< Bu ileti mobil sürüm kullanılarak atıldı >
-
dosya adlarına .txt eklemek için
If dosya_adi = "" Then Exit Do
satırından sonra
dosya_adi = dosya_adi & ".txt"
satırını ekleyin -
akcan
kullanıcısına yanıt
Teşekkürler hocam bat dosyası oluşturup uzantıları değiştirdim
< Bu ileti mobil sürüm kullanılarak atıldı >
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
