Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранение в txt в ту же директорию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение в txt в ту же директорию (Макросы/Sub)
Сохранение в txt в ту же директорию
fifo22serg Дата: Четверг, 09.09.2021, 07:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 20% ±

Доброго времени суток!

Задача: на Листе1 есть 2 кнопки, кнопка "Лист2" должна сохранять данные из массива Лист2 в туже директорию, где находится файл excel с названием Лист2.txt и выводом окна с надписью "Файл Лист2.txt успешно сохранен в рабочий каталог."
кнопка "Лист3", должна делать тоже самое, только везде вместо Лист2 должно быть Лист3

Извиняюсь, возможно были подобные вопросы, но в макросах полный ноль, погуглив, нашел данный скрипт, как переделать не знаю :(
К сообщению приложен файл: 8368771.xlsm(21.8 Kb)


Сообщение отредактировал fifo22serg - Четверг, 09.09.2021, 08:05
 
Ответить
СообщениеДоброго времени суток!

Задача: на Листе1 есть 2 кнопки, кнопка "Лист2" должна сохранять данные из массива Лист2 в туже директорию, где находится файл excel с названием Лист2.txt и выводом окна с надписью "Файл Лист2.txt успешно сохранен в рабочий каталог."
кнопка "Лист3", должна делать тоже самое, только везде вместо Лист2 должно быть Лист3

Извиняюсь, возможно были подобные вопросы, но в макросах полный ноль, погуглив, нашел данный скрипт, как переделать не знаю :(

Автор - fifo22serg
Дата добавления - 09.09.2021 в 07:56
Nic70y Дата: Четверг, 09.09.2021, 08:37 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7017
Репутация: 1618 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub Лист2()
    myARR = Range("Лист2!A1:A4")
    myTXT = Join(WorksheetFunction.Transpose(myARR), vbCrLf)
    SaveTXTfile ThisWorkbook.Path & "\Лист2.txt", myTXT
    MsgBox "Файл Лист2.txt успешно сохранен в рабочий каталог."
End Sub
[/vba]ThisWorkbook.Path = в туже директорию


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub Лист2()
    myARR = Range("Лист2!A1:A4")
    myTXT = Join(WorksheetFunction.Transpose(myARR), vbCrLf)
    SaveTXTfile ThisWorkbook.Path & "\Лист2.txt", myTXT
    MsgBox "Файл Лист2.txt успешно сохранен в рабочий каталог."
End Sub
[/vba]ThisWorkbook.Path = в туже директорию

Автор - Nic70y
Дата добавления - 09.09.2021 в 08:37
fifo22serg Дата: Четверг, 09.09.2021, 09:56 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 20% ±

Спасибо за помощь!!
 
Ответить
СообщениеСпасибо за помощь!!

Автор - fifo22serg
Дата добавления - 09.09.2021 в 09:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение в txt в ту же директорию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!