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

Старая форма входа

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

Сохранение в 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

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

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

Сообщений: 9005

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

Замечаний: 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

Ответить

fifo22serg

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

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

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

Сообщений: 9

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

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

365

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

Ответить

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

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