Сохранение в txt в ту же директорию

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сохранение в txt в ту же директорию (Макросы/Sub)

fifo22serg

Дата: Четверг, 09.09.2021, 07:56 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 20% ±

365

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

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

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

К сообщению приложен файл: 8368771.xlsm (21.8 Kb)

Сообщение отредактировал fifo22serg - Четверг, 09.09.2021, 08:05

Ответить

Nic70y Дата: Четверг, 09.09.2021, 08:37 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9130

Репутация: 2415 ±

Замечаний: 0% ±

Excel 2010

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

ThisWorkbook.Path = в туже директорию

ЮMoney 41001841029809

Ответить

fifo22serg

Дата: Четверг, 09.09.2021, 09:56 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 20% ±

365

Спасибо за помощь!!

Ответить

Сохранение в txt в ту же директорию (Макросы/Sub)

Страница 1 из 1
1