txt dosyası olarak kaydetme

[quantum_aso]

merhaba;
excellde hazırladığım tablomdaki iki sütundaki değerlerin bir buton yardımı ile txt olarak kaydetmem gerekiyor (save as) nasıl yapabilirim acaba

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub TxtAktar()
Dim i, sat As Integer
sat = ActiveSheet.UsedRange.Rows.Count
Open ThisWorkbook.Path & "\Deneme.txt" For Output As #1
    For i = 1 To sat
        Print #1, Cells(i, "a"), Cells(i, "d") 'a ve d sütun adıdır.
    Next i
Close
MsgBox "Txt Dosyası Oluşturuldu", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

.

 

[quantum_aso]

cevap için teşekkür ederim
bir sorum daha olacak
deneme.txt olarak kaydedilen bu txt dosyasının adını A15 hücresinden alabilirmiyiz. A15 hücresinde kayıt1 yazsın örnek olarak, benim text dosyamın adıda kayıt1.txt olsun. mümkünmüdür acaba?

 

[Ömer]

Bu şekilde deneyin.

Sub TxtAktar()
Dim i, sat As Integer
sat = ActiveSheet.UsedRange.Rows.Count
Open ThisWorkbook.Path & "\" & [A15] & ".txt" For Output As #1
    For i = 1 To sat
        Print #1, Cells(i, "a"), Cells(i, "d") 'a ve d sütun adıdır.
    Next i
Close
MsgBox "Txt Dosyası Oluşturuldu", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

.

 

[quantum_aso]

çok teşekkür ederim

 

[tamer42]

Bu şekilde deneyin.

Sub TxtAktar()
Dim i, sat As Integer
sat = ActiveSheet.UsedRange.Rows.Count
Open ThisWorkbook.Path & "\" & [A15] & ".txt" For Output As #1
    For i = 1 To sat
        Print #1, Cells(i, "a"), Cells(i, "d") 'a ve d sütun adıdır.
    Next i
Close
MsgBox "Txt Dosyası Oluşturuldu", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

.

Merhaba,

Print #1, Cells(i, "a"), Cells(i, "d")


Burada A ile H sütunları arasını komple TXT dosyasına almak istenirse kolay bir düzenleme şekli var mıdır?

teşekkürler,

iyi çalışmalar.

 

[Ömer]

Merhaba,

Aşağıdaki gibi olabilir.

Sub Text_Kaydet()
    
    'https://www.mrexcel.com/board/threads/vba-code-to-convert-excel-to-text-file.281422/

    Dim d As String, k As Workbook, a As Range
    
    d = "E:\deneme.txt"
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Set a = Range("A1:H10")
    Set k = Workbooks.Add(xlWBATWorksheet)
    
    With k
        .Sheets(1).Name = "xxx"
         a.Copy .Sheets("xxx").Range("A1")
        .SaveAs Filename:=d, FileFormat:=xlText, CreateBackup:=False
        .Close False
    End With

End Sub

 

[tamer42]

Merhaba,

Aşağıdaki gibi olabilir.

Sub Text_Kaydet()
   
    'https://www.mrexcel.com/board/threads/vba-code-to-convert-excel-to-text-file.281422/

    Dim d As String, k As Workbook, a As Range
   
    d = "E:\deneme.txt"
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Set a = Range("A1:H10")
    Set k = Workbooks.Add(xlWBATWorksheet)
   
    With k
        .Sheets(1).Name = "xxx"
         a.Copy .Sheets("xxx").Range("A1")
        .SaveAs Filename:=d, FileFormat:=xlText, CreateBackup:=False
        .Close False
    End With

End Sub

teşekkürler,