Xlsx To Txt

[ozpoli]

Bir Exel Kitabindaki Tum Sayfalari Sayfa Adlarini Kullanarak Istedigim Bir Yerde Txt Dosyalarina Donusturecek Bir Makro Lazim Hepsini Yada Istediklerimi Yapacak Bir Makro Lutfen Yardim

 

[Mahmut Bayram]

http://www.excel.web.tr/showthread.php?t=42829

 

[ozpoli]

Benim Istedigi Le Alakasi Yok Duzgunce Anlasilir Sekilde Tex Dosyasina Sayfa Sayfa Donusturecek

 

[Mahmut Bayram]

Sub SaveAsTextFile()
Dim URange As Range, URArr(), i As Long, j As Long, vFF As Long, ExpArr() As String
Set URange = Intersect(ActiveSheet.UsedRange, Columns("C:IV"))
If URange Is Nothing Then Exit Sub
URArr = URange.Value
ReDim ExpArr(1 To UBound(URArr, 1))
For i = 1 To UBound(URArr, 1)
For j = 1 To UBound(URArr, 2) - 1
ExpArr(i) = ExpArr(i) & URArr(i, j) & Chr$(9)
Next 'j
ExpArr(i) = ExpArr(i) & URArr(i, UBound(URArr, 2))
Next 'i
vFF = FreeFile
Open "C:\" & Format(Date, "ddmmyy") & ".txt" For Output As #vFF
For i = 1 To UBound(ExpArr)
Print #vFF, ExpArr(i)
Next 'i
Close #vFF
Set URange = Nothing
MsgBox "Dosya kaydedildi"
End Sub

C: altına ggaayy şeklinde birleştirerek txt dosyası oluşturup kaydeder.