Data Hazırlama

[bugrahann]

Ekli dosyamda belirttiğim gibi Alanlar Birbirinden ; karekteri ile ayırarak bi düğmeye basınca txt fomatına dönüşüp c de dosya haline gelsin

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub DosyaMetin()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
Dim i As Long
Dim j As Integer
For i = 2 To [A65536].End(3).Row
    Satır = Cells(i, "A")
    For j = 2 To 19
        Satır = Satır & ";" & Cells(i, j)
    Next j
    a.WriteLine (Satır)
Next i
a.Close
End Sub

 

[bugrahann]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub DosyaMetin()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
Dim i As Long
Dim j As Integer
For i = 2 To [A65536].End(3).Row
    Satır = Cells(i, "A")
    For j = 2 To 19
        Satır = Satır & ";" & Cells(i, j)
    Next j
    a.WriteLine (Satır)
Next i
a.Close
End Sub

Çok Teşekkürler iyi çalışmalar