из excel экспортировать в текстовые файлы

[evdss]

подскажите пожалуйста как из excel экспортировать в текстовые файлы каждый лист книги с именами 1.txt,2.txt и т.д. очень много листов


SaveTXTfile "c:\install\tanya\1.txt", Range("a10:a34)
это не работает

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
On Error Resume Next: Err.Clear
Set fso = CreateObject("scripting.filesystemo bject")
Set ts = fso.CreateTextFile(filename, True)
ts.Write txt: ts.Close
SaveTXTfile = Err = 0
Set ts = Nothing: Set fso = Nothing
End Function

[EducatedFool]

Используем эту функцию: http://excelvba.ru/code/Range2TXT

Код будет выглядеть так:
SaveTXTfile "c:\install\tanya\1.txt", Range2TXT(Range("a10:a34"), "; ", vbLf)

Есть вариант попроще:
1) перебираем все листы в цикле

Sub test()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        
    Next sh
End Sub

2) каждый лист копируем в новую книгу: sh.copy
3) сохраняем эту книгу в формате txt
activeworkbook.saveas ...
4) закрываем книгу: activeworkbook.close false

[evdss]

спасибо большое только вот с файлами не получается сохранить их как 1.txt,2.txt,3.txt
Sub EachSheet()
For Each sh In ThisWorkbook.Worksheets
Dim sh1 As Worksheet: Set sh1 = Workbooks.Add.Worksheets(1)
sh1.Range("A10:B34").Value = sh.Range("A10:B34").Value
n = n + 1
SaveTXTfile "c:\install\tanya\n.txt", Range2TXT(Range("a10:a34"), "; ", vbLf)
ActiveWorkbook.Close False
Next sh
End Sub

[EducatedFool]

А если так попробовать?

Sub EachSheet()
    Dim sh As Worksheet: n = 0
    For Each sh In ThisWorkbook.Worksheets
        n = n + 1
        SaveTXTfile "c:\install\tanya\" & n & ".txt", Range2TXT(sh.Range("a10:a34"), "; ", vbLf)
    Next sh
End Sub

[evdss]

сделала так, но вустраивает больше ваш вариант, спасибо большое
Sub EachSheet()
For Each sh In ThisWorkbook.Worksheets
Dim sh1 As Worksheet: Set sh1 = Workbooks.Add.Worksheets(1)
sh1.Range("A10:B34").Value = sh.Range("A10:B34").Value
ActiveWorkbook.SaveAs FileFormat:= _
xlCSV, CreateBackup:=False
ActiveWorkbook.Close False
Next sh
End Sub