Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Выполнения приложения https://www.cyberforum.ru/ vba/ thread2497671.html
Здравствуйте уважаемые форумчане.Суть проблемы такова.Как в коде прописать путь чтобы при запуске программы она брала файлы из папки в которой находится сама.Например:Программа находится в "D://Programs" и при запуске и выполнении должна брать файлы из этой папки.И допустим я её перенесу на другой диск или компьютер не изменяя имени папки ,но изменив путь "F://Test/Programs" или любой другой путь.
VBA Скрипт разделения списка физических и юридических лиц по ключевым словам/сокращениям
Добрый день. Требуется скрипт для разделения списка физических и юридических лиц по ключевым словам/сокращениям. Файл с пояснением в приложении. Спасибо.
VBA Модифицировать код разбиения строк двумерного массива (ExtendArray) Данный код работает только с числами в столбце B. Можно ли модифицировать код, чтобы он также работал с текстом в столбце B. Образец файла прилагается. https://www.cyberforum.ru/ vba/ thread2497342.html VBA Пользовательская функция, возвращающая массив на лист Доброго времени суток! Есть задача: написать пользовательскую функцию, которая принимает массив с листа, обсчитывает его и возвращает на лист новый массив. Знаю, что в VBA функции могут возвращать массив, однако, проблема в том, чтобы вернуть массив на лист, должно быть выделено заранее необходимое кол-во ячеек. Можно ли как-то автоматически масштабировать размер выделенной области для... https://www.cyberforum.ru/ vba/ thread2497310.html
Сравнение значений ячеек в Excel VBA
Всем привет! Стоит задача, чтобы сравнить две ячейки на содержимое: если в 1 ячейке имеется слово из другой ячейки, то необходимо справа от него записать это слово. У меня получается решение данной задачи, если сравнивать , образно, 500 строк с одним словом и записывать его, если оно есть. Однако мне требуется сравнить 500 строк с 50 словами и , в случае совпадения, записать это слово. Вот...
VBA Не работает макрос на 64-битной версии Excel 2013 Форумчане! Пользуюсь макросом, добытым на просторах интернета, для сбора данных с разных листов из разных книг. Переустановили на работе Excel 2013 c 32-битной версии на 64-битную. Теперь при запуске макроса, на каких-то файлах (из которых пытаюсь собрать данные) выключается Excel и открывается чистая новая книга. В программировании не разбираюсь. Начала изучать информацию, поняла что в этих... https://www.cyberforum.ru/ vba/ thread2497272.html
VBA Распознавание текста в OneNote через VBA https://www.cyberforum.ru/ vba/ thread2497259.html
Доброго дня! В OneNote 2013 встроена функция распознавания текста. В ручную: вставить картинку/распечатку, ПКМ, скопировать текст. Можно ли как-то, через vba отправлять в OneNote нужный файл и получать текстовый результат. В самом OneNote VBA я не нашел. Добавлено через 4 минуты Кажется, что-то нашёл:
VBA Вычесть данные из одной колонки, в другую (но с условием)
Всем привет. В таблице (см. вложение) имеется 4 колонки: 1 - Время (формат чч:мм:сс) 2 - Название (формат текстовый) 3 - Длина (формат чч:мм:сс) 4 - МиксАут (формат чч:мм:сс) Мне нужно чтобы в третьей колонке Длина было указано это же время, но за вычетом значений из колонки МиксАут для всех непустых строк, но обязательное условие, чтобы если в строке колонки Название встречается слово...
VBA При повторном запуске макрос не копирует картинку Всем доброго вечера. Несколько дней бьюсь над проблемой и не могу найти причину. Есть макрос, который помимо всего прочего переносит конкретное изображение с именем Image из одной книги в другую. Когда указываю конкретный адрес ячейки для вставки изображения, все работает корректно. Но в версии макроса, где номера строк указаны через переменную, неведомым образом вместо картинки копируется... https://www.cyberforum.ru/ vba/ thread2497136.html VBA Как пройти авторизацию и выгрузить данные пробитых чеков ККМ с суммами в Excel https://www.cyberforum.ru/ vba/ thread2497035.html
Добрый день, помогите пожалуйста в одной сложной для меня задаче, имеется сайт https://org.oofd.kz/#/landing, в которой в онлайн режиме фиксируются чеки ККМ после их регистрации. Чтобы не заходить в каждый ККМ для просмотра отбитых чеков на сумму и на каждый день Z отчетов просматривать, мне необходим макрос, который пройдя авторизацию выгрузил все данные и всю историю в Эксель по каждой ККМ, К...
VBA Изменение кода макроса замены в Word из Excel
Уважаемые форумчане, помогите пожалуйста те, кто понимает. Использую макрос для автоматического заполнения документа ворд из данных таблицы эксель. При этом макрос настроен так, что искомые значения в квадратных скобках находятся в первой строке, и соответсвенно значения для замены берутся из последующих строк. Но для меня так не удобно. Мне нужно код поменять таким образом, чтобы искомые...
VBA Окрасить ячейку через поиск циклом, захватив соседние ячейки https://www.cyberforum.ru/ vba/ thread2496919.html
Здравствуйте, уважаемые гуру программирования. Пишу большой макрос с автоматизацией кучи действий пользователя одной кнопкой, но суть не в этом. Мне нужно, по покрасить, допусти
0 / 0 / 0
Регистрация: 05.08.2019
Сообщений: 69
09.09.2019, 07:17  [ТС] 0
Excel

Сохранение текущего листа с сохранением имени листа и присвоением новой книге имени текущего листа - VBA - Ответ 13815763

09.09.2019, 07:17. Показов 2849. Ответов 11
Метки (Все метки)

Ответ

pashulka,

Быть может я был не точен в постановке вопроса, но сейчас я бы просил изменить исходный код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Save_as()
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = ThisWorkbook.Path & "\" & "new book name"
        If .Show = 0 Then Exit Sub
        ThisWorkbook.ActiveSheet.Copy
        Application.DisplayAlerts = False
        .Execute
        Application.DisplayAlerts = True
    End With
    ActiveWorkbook.Close False
End Sub
так, чтобы он предлагал сохранить новую книгу в той же папке, где расположена книга, лист которой копируется. А имя файла можно вписывать вручную.

Вернуться к обсуждению:
Сохранение текущего листа с сохранением имени листа и присвоением новой книге имени текущего листа VBA
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.09.2019, 07:17
Готовые ответы и решения:

Копировать содержимое листа одной книги, на лист в новую книгу с присвоением ей имени листа из которого копировали
Всем доброго дня! Помогите пожалуйста написать код, сам не могу написать по причине отсутствия...

При создании нового листа произвести проверку на существование вводимого имени листа в текущей книге EXCEL
При создании нового листа, произвести проверку на существование вводимого имени листа в текущей...

Сохранение текущего листа Excel в отдельный файл
Доброго всем времени суток! Помогите справиться с небольшой проблемкой. Есть файл Excel с...

Сохранение листа книги в файле - проблема с защитой листа и привязкой макросов
С толкнулся с такой проблемой при сохранении листа в файле вот код который сохраняет лист в...

11
09.09.2019, 07:17
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.09.2019, 07:17
Помогаю со студенческими работами здесь

Проверить название текущего листа Excel
Здравствуйте Такая ситуация , как в Exel проверить название листа ? То есть проверить текущий...

Полное закрытие Excel, а не текущего листа
Если я последней строкой макроса делаю ActiveWindow.Close ' или ActiveWorkbook.Closeто остается...

Вставка строк с другого листа, между строками текущего
Есть 2 листа. Нужно скопировать диапазон строк с одного на другой и вставить между определенными...

Подсчёт общего количества листов и номера текущего листа
Я новичок в программировании на VBA поэтому не могу сам справиться с этим таском. Очень надеюсь на...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru