Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
список вкладок в текстовый файл?, НЕ подскажете, как имена вкладок в книге вывести в текстовый файл (сделать список вкладок)?
 
НЕ подскажете, как имена вкладок в книге вывести в текстовый файл (сделать список вкладок)?
Уже сделал вручную, но интересно, есть ли способ , как то автоматизировать данную задачу.  
 
Включая скрытые листы
Код
Sub Ce()
Dim f%, s As Object
  f = FreeFile
  Open ActiveWorkbook.FullName & ".txt" For Output As #f
  For Each s In Sheets
    Print #f, s.Name
  Next
  Close #f
End Sub
 
Код
Option Explicit

Sub test()
'    ------------------------
    Dim iPath$, txt$, sht As Worksheet
'    ------------------------
    iPath = ThisWorkbook.Path & Application.PathSeparator & "SheetsName.txt"
    For Each sht In Worksheets
        txt = txt & sht.Name & vbNewLine
    Next sht
    Open iPath For Output As #1
        Print #1, txt
    Close 1
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
всем спасибо!
 
Сергей Ким, то, что Вы называете вкладками, в Excel принято называть листами.
 
Цитата
Юрий М написал:
то, что Вы называете вкладками, в Excel принято называть листами.
Да, конечно ))
Страницы: 1
Читают тему (гостей: 1)
Наверх