Суть: получаю реестр из 1С в .xls, после редактирования с помощью макросов сохраняю его в .xlsx. Как сделать так, что бы файл был сохранен с тем же наименованием? Файл для примера во вложении. Макрос10
Добрый вечер
Суть: получаю реестр из 1С в .xls, после редактирования с помощью макросов сохраняю его в .xlsx. Как сделать так, что бы файл был сохранен с тем же наименованием? Файл для примера во вложении. Макрос10litov23
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 ' Закрыть исходный файл с сохранением изменений
Честно говоря, после некоторых манипуляций не нашелся, как это интегрировать в мой действующий код. Помогите, пожалуйста, с решением. Если вы не можете скачать файл, тот я могу прислать код. Копирую, чем у меня заканчивается макрос, как раз последнее действие с сохранением на рабочем столе, только тут наименование файла, на котором я записывал этот макрос:
Зацепил ещё немного того, что раньше идёт. Спасибо большое заранее!
MikeVol, добрый вечер! Спасибо большое за ответ!
Честно говоря, после некоторых манипуляций не нашелся, как это интегрировать в мой действующий код. Помогите, пожалуйста, с решением. Если вы не можете скачать файл, тот я могу прислать код. Копирую, чем у меня заканчивается макрос, как раз последнее действие с сохранением на рабочем столе, только тут наименование файла, на котором я записывал этот макрос:
Dim fileName As String Dim newFileName As String Dim Path As String fileName = ActiveWorkbook.Name newFileName = Left(fileName, InStrRev(fileName, ".")) & "xlsx"
Dim fileName As String Dim newFileName As String Dim Path As String fileName = ActiveWorkbook.Name newFileName = Left(fileName, InStrRev(fileName, ".")) & "xlsx"
litov23, Доброго времени суток. Вообщем, раздобыл я ваш файл пример и неувидел там никакого кода макроса. Код что я выше выложил необходимо поместить его в Личную Книгу Макросов (Personal.xlsb), информацию вы может найти в интернете что и как. Иначе после работы макроса после закрытия-открытия следующего файла данного макроса уже не будет в книге. Думаю вы сами дальше разберётесь. Удачи
litov23, Доброго времени суток. Вообщем, раздобыл я ваш файл пример и неувидел там никакого кода макроса. Код что я выше выложил необходимо поместить его в Личную Книгу Макросов (Personal.xlsb), информацию вы может найти в интернете что и как. Иначе после работы макроса после закрытия-открытия следующего файла данного макроса уже не будет в книге. Думаю вы сами дальше разберётесь. УдачиMikeVol
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
