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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение файла с исходным названием макросом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла с исходным названием макросом (Иное/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)
 
Ответить
СообщениеДобрый вечер

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

Автор - litov23
Дата добавления - 21.03.2024 в 18:26
bigor Дата: Четверг, 21.03.2024, 21:00 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1100
Репутация: 210 ±
Замечаний: 0% ±

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

Автор - bigor
Дата добавления - 21.03.2024 в 21:00
litov23 Дата: Четверг, 21.03.2024, 21:59 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
bigor, добрый вечер!
Извиняюсь, файл с макросами во вложении
К сообщению приложен файл: ago_koshelev_19_03_24.xlsm (27.0 Kb)
 
Ответить
Сообщениеbigor, добрый вечер!
Извиняюсь, файл с макросами во вложении

Автор - litov23
Дата добавления - 21.03.2024 в 21:59
Serge_007 Дата: Пятница, 22.03.2024, 09:34 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
выбрать тип xlsm или xls
Можно ещё xlsb


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
выбрать тип xlsm или xls
Можно ещё xlsb

Автор - Serge_007
Дата добавления - 22.03.2024 в 09:34
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)
 
Ответить
СообщениеSerge_007, добрый вечер!

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

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

Автор - litov23
Дата добавления - 22.03.2024 в 19:05
MikeVol Дата: Суббота, 23.03.2024, 12:30 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация: 61 ±
Замечаний: 0% ±

Excel 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, Доброго времени суток. Скачать файл с данного форума не могу, не могу знать что за макрос там у вас в файле. Поэтому как понял вас, как вариант:
[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]
Надеюсь вы так хотели?
Удачи.

Автор - MikeVol
Дата добавления - 23.03.2024 в 12:30
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, добрый вечер! Спасибо большое за ответ!

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

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

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

Автор - litov23
Дата добавления - 25.03.2024 в 19:56
MikeVol Дата: Вторник, 26.03.2024, 02:34 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация: 61 ±
Замечаний: 0% ±

Excel 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
 
Ответить
Сообщение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:34
MikeVol Дата: Вторник, 26.03.2024, 14:42 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация: 61 ±
Замечаний: 0% ±

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


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

Автор - MikeVol
Дата добавления - 26.03.2024 в 14:42
litov23 Дата: Вторник, 02.04.2024, 19:16 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - litov23
Дата добавления - 02.04.2024 в 19:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла с исходным названием макросом (Иное/Other)
  • Страница 1 из 1
  • 1
Поиск:

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