merhabalar.
daha önce sizden yardım alarak faydalandığım makroda dosya adlarını her defasında macroya girerek düzelme yaparak programı çalıştırıyorum.gayet düzgün çalışıyor.fakat bu macro dosya çok olunca her defasında gir düzelt çalıştır bayagı dikkat ve zaman istiyor.benim yapılmasın istedigim macro çalışınca ekrana giriş ve çıkış adlarını ben bir mesajla veya user form vs gibi.. gelsin ben belirleyim.macronun içine girerek düzeltme yapmayım.şimdiden ilgilenen arkadaşlara teşekkürler..
Sub txt_aktar_59()
'Microsoft Scripting Runtime Referansı Gerektirir
Dim Kayit As Variant
Dim FS As Object, Dosya As Object
Set FS = CreateObject("Scripting.FileSystemObject")
Set Dosya = FS.OpenTextFile(ThisWorkbook.Path & "\Banka2.txt", ForReading)
Kayit = Split(Dosya.ReadAll, vbCrLf, , vbTextCompare)
Dosya.Close
Open (ThisWorkbook.Path & "\Yeni dosya1.txt") For Output As #1
For i = LBound(Kayit) + 1 To UBound(Kayit) - 2
Print #1, Kayit(i)
Next
Close #1
MsgBox "Yeni txt dosyasına diğer dosyadan ilk ve son satır lar hariç akatrım yapıldı" _
End Sub
daha önce sizden yardım alarak faydalandığım makroda dosya adlarını her defasında macroya girerek düzelme yaparak programı çalıştırıyorum.gayet düzgün çalışıyor.fakat bu macro dosya çok olunca her defasında gir düzelt çalıştır bayagı dikkat ve zaman istiyor.benim yapılmasın istedigim macro çalışınca ekrana giriş ve çıkış adlarını ben bir mesajla veya user form vs gibi.. gelsin ben belirleyim.macronun içine girerek düzeltme yapmayım.şimdiden ilgilenen arkadaşlara teşekkürler..
Sub txt_aktar_59()
'Microsoft Scripting Runtime Referansı Gerektirir
Dim Kayit As Variant
Dim FS As Object, Dosya As Object
Set FS = CreateObject("Scripting.FileSystemObject")
Set Dosya = FS.OpenTextFile(ThisWorkbook.Path & "\Banka2.txt", ForReading)
Kayit = Split(Dosya.ReadAll, vbCrLf, , vbTextCompare)
Dosya.Close
Open (ThisWorkbook.Path & "\Yeni dosya1.txt") For Output As #1
For i = LBound(Kayit) + 1 To UBound(Kayit) - 2
Print #1, Kayit(i)
Next
Close #1
MsgBox "Yeni txt dosyasına diğer dosyadan ilk ve son satır lar hariç akatrım yapıldı" _
End Sub