Сохранение файла с исходным названием макросом

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

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

Сохранение файла с исходным названием макросом (Иное/Other)

litov23

Дата: Четверг, 21.03.2024, 18:26 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2016

Добрый вечер

Суть: получаю реестр из 1С в .xls, после редактирования с помощью макросов сохраняю его в .xlsx. Как сделать так, что бы файл был сохранен с тем же наименованием?
Файл для примера во вложении. Макрос10

К сообщению приложен файл: ago_koshelev_19_03_24.xlsx (26.9 Kb)

Ответить

bigor

Дата: Четверг, 21.03.2024, 21:00 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1267

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

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

нет

litov23, что бы сохранить файл с макросами нужно выбрать тип xlsm или xls

Ответить

litov23

Дата: Четверг, 21.03.2024, 21:59 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2016

bigor, добрый вечер!
Извиняюсь, файл с макросами во вложении

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

Ответить

Serge_007

Дата: Пятница, 22.03.2024, 09:34 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата bigor, 21.03.2024 в 21:00, в сообщении № 2 (

)

выбрать тип xlsm или xls

Можно ещё xlsb

ЮMoney:41001419691823 | WMR:126292472390

Ответить

litov23

Дата: Пятница, 22.03.2024, 19:05 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2016

Serge_007, добрый вечер!

Вот во вложении .xlsb))

Не могу пока придумать, как оставить текущее название файла при сохранении

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

Ответить

MikeVol

Дата: Суббота, 23.03.2024, 12:30 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 378

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

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

MSO LTSC 2021 EN

litov23, Доброго времени суток. Скачать файл с данного форума не могу, не могу знать что за макрос там у вас в файле. Поэтому как понял вас, как вариант:
[vba]

Код

    Dim fileName As String
    Dim newFileName As String
    fileName = ThisWorkbook.FullName
    newFileName = Left(fileName, InStrRev(fileName, ".")) & "xlsx"
    ThisWorkbook.SaveAs newFileName, FileFormat:=xlOpenXMLWorkbook

    ' Закрываем исходный файл или оставляем его открытым по вашему желанию
    ' ThisWorkbook.Close False   ' Закрыть исходный файл без сохранения изменений
    ' ThisWorkbook.Close True   ' Закрыть исходный файл с сохранением изменений

[/vba]
Надеюсь вы так хотели?
Удачи.

Ученик.
Одесса - Украина

Ответить

litov23

Дата: Понедельник, 25.03.2024, 19:56 | Сообщение № 7

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2016

MikeVol, добрый вечер! Спасибо большое за ответ!

Честно говоря, после некоторых манипуляций не нашелся, как это интегрировать в мой действующий код. Помогите, пожалуйста, с решением. Если вы не можете скачать файл, тот я могу прислать код. Копирую, чем у меня заканчивается макрос, как раз последнее действие с сохранением на рабочем столе, только тут наименование файла, на котором я записывал этот макрос:

ActiveWindow.SmallScroll Down:=-108
Range("J15").Select
ActiveWindow.SmallScroll Down:=0
Range("H4:H27").Select
ChDir "C:\Users\user\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\user\Desktop\АГО Кабальдин 18.03.24.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Range("J1").Select
End Sub

Зацепил ещё немного того, что раньше идёт. Спасибо большое заранее!

Ответить

MikeVol

Дата: Вторник, 26.03.2024, 02:34 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 378

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

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

MSO LTSC 2021 EN

litov23, Так?
[vba]

Код

    Dim fileName    As String
    Dim newFileName As String
    Dim Path        As String
    fileName = ActiveWorkbook.Name
    newFileName = Left(fileName, InStrRev(fileName, ".")) & "xlsx"

    ChDir "C:\Users\user\Desktop"
    Path = "C:\Users\user\Desktop\"

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Path & newFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True

[/vba]

Ученик.
Одесса - Украина

Сообщение отредактировал MikeVol - Вторник, 26.03.2024, 02:36

Ответить

MikeVol

Дата: Вторник, 26.03.2024, 14:42 | Сообщение № 9

Группа: Проверенные

Ранг: Обитатель

Сообщений: 378

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

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

MSO LTSC 2021 EN

litov23, Доброго времени суток. Вообщем, раздобыл я ваш файл пример и неувидел там никакого кода макроса.
Код что я выше выложил необходимо поместить его в Личную Книгу Макросов (Personal.xlsb), информацию вы может найти в интернете что и как. Иначе после работы макроса после закрытия-открытия следующего файла данного макроса уже не будет в книге. Думаю вы сами дальше разберётесь. Удачи

Ученик.
Одесса - Украина

Ответить

litov23

Дата: Вторник, 02.04.2024, 19:16 | Сообщение № 10

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2016

MikeVol, , добрый вечер! Спасибо за помощь. Все отлично работает)) Удачи)

Ответить

Сохранение файла с исходным названием макросом (Иное/Other)

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