excel iceriğini txt olarak cevirmek

[kayra75]

Merhaba ekte xls file olarak duran bilgileri txt de ki örneği gibi cevirmek istiyorum. save as olarak kayıt edildiğinde Tab olarak kayıt etmektedir. Bu dosyayı ekteki txt orneğinde olduğu gibi " ve , olarak nasıl yapabilirim. simdiden yardımlarınız içincok teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub txtkaydet()
Open ThisWorkbook.Path & "\Deneme59.txt" For Append As #1
For i = 1 To Cells(65536, "A").End(xlUp).Row
    Write #1, Cells(i, "A").Value, Cells(i, "B").Value, Cells(i, "C").Value, Cells(i, "D").Value _
    , Cells(i, "E").Value, Cells(i, "F").Value, Cells(i, "G").Value, Cells(i, "H").Value _
    , Cells(i, "I").Value, Cells(i, "J").Value, Cells(i, "K").Value, Cells(i, "L").Value _
    , Cells(i, "M").Value, Cells(i, "N").Value, Cells(i, "O").Value, Cells(i, "P").Value, Cells(i, "Q").Value
Next i
Close #1
MsgBox ThisWorkbook.Path & "\Deneme59.txt dosyası yaratıldı.", vbOKOnly, "EVREN"
End Sub

 

[kayra75]

elinize sağlık cok tskler.

 

[Orion1]

elinize sağlık cok tskler.

Rica ederim.
iyi çalışmalar.

 

[kayra75]

bir hücreyi 16 hane olarak tamamlama

Tekrar merhaba,

Yine konuyla alakalı olarak bir hücreyi 16 haneye tamamlamak ister isek bununla ilgili bir kod varmıdır. Ornek bir dosya ekte yer alıyor.

 

[Orion1]

Bu konuyla alakası yok ama neyse.
Dosyanız ekte.

Sub ekle()
Dim uzunluk As Integer, ekle As Byte, deg As String, i As Long, j As Byte
Sheets("Sheet1").Select
Range("E:E").ClearContents
On Error Resume Next
For i = 1 To Cells(65536, "B").End(xlUp).Row
    uzunluk = Len(Cells(i, "B").Value)
    If uzunluk < 16 Then
        ekle = 16 - uzunluk
        deg = Left(Cells(i, "B").Value, 8)
        For j = 1 To ekle
            deg = deg & "0"
        Next
        deg = deg & Right(Cells(i, "B").Value, Len(Cells(i, "B").Value) - 8)
        Else
        deg = Cells(i, "B").Value
    End If
    Cells(i, "E").Value = deg
Next i
MsgBox "İşlemtamamdır.", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[halit3]

Merhaba ekte xls file olarak duran bilgileri txt de ki örneği gibi cevirmek istiyorum. save as olarak kayıt edildiğinde Tab olarak kayıt etmektedir. Bu dosyayı ekteki txt orneğinde olduğu gibi " ve , olarak nasıl yapabilirim. simdiden yardımlarınız içincok teşekkürler.

alternatif kod kayıt edilen yeri hepsi için 16 karaktar sola yaslıyor

dosya ekte