Сохранить файл в определенную папку и присвоить имя

@Анна777 · Регистрация: 13.03.2012

Студворк — интернет-сервис помощи студентам

Всем привет!
У меня такая проблема: по работе каждый день приходится обрабатывать множество заказов, это изрядно надоело, и т.к. сама ничего не смыслю в vba, но знаю, что это может значительно облегчить жизнь, прошу помощи у знатоков...
файл вытаскивается из программки, и затем его необходимо сохранить в папку "заказы" на рабочем столе, при этом каждому файлу присваивается определенное имя, которое должно состоять из инф. в ячейках B2 & B3 & B4 (эта информация во всех заказах разная)... И в идеале (если это возможно), дальше необходимо открыть Outlook, пихнуть этот файл в новое письмо и в теме письма написать ту же инфу: B2 & B3 & B4.
Буду премного благодарна, если поможете...

@Анна777 · 14.03.2012, 12:51 **[ТС]**

Сообщение от Gibboustooth

Вы не добавили вложение. После выбора файла надо еще нажать "Загрузить" в управлении вложениями.

Не загружался, пишет больше 100кб нельзя...

@Gibboustooth · 14.03.2012, 12:59

Проблема понятна. Дело в том, что ряд символов не могут быть использованы в имени файла, в частности символ "/", который присутствует у вас в названии поставщика. Либо надо менять имя поставщика в файле, либо надо менять формат имени, которое создается при сохранении файла.

@Казанский · 14.03.2012, 13:01

Сообщение от Анна777

Не загружался, пишет больше 100кб нельзя...

Прямо в окне выбора файла, правый клик по файлу - Добавить в архив (ZIP или RAR), архив появится в конце списка файлов - выберите его.

@Анна777 · 14.03.2012, 13:14 **[ТС]**

Сообщение от Казанский

Прямо в окне выбора файла, правый клик по файлу - Добавить в архив (ZIP или RAR), архив появится в конце списка файлов - выберите его.

Уже сделала с горем пополам, но все равно спасибо

Добавлено через 5 минут

Сообщение от Gibboustooth

Проблема понятна. Дело в том, что ряд символов не могут быть использованы в имени файла, в частности символ "/", который присутствует у вас в названии поставщика. Либо надо менять имя поставщика в файле, либо надо менять формат имени, которое создается при сохранении файла.

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

) тогда еще вопрос: т.к. таких поставщиков существует достаточно много, можно ли как-то сделать, чтобы в файле заказа, если есть названия поставщиков с символом "/", удалять все, что написано после этого символа?

Заранее очень признательна...

@Gibboustooth · 14.03.2012, 13:25

Сообщение от Анна777

Понятно, даже и не задумалась об этом, хотя вроде знала ,что в названиях нельзя такие символы использовать ) тогда еще вопрос: т.к. таких поставщиков существует достаточно много, можно ли как-то сделать, чтобы в файле заказа, если есть названия поставщиков с символом "/", удалять все, что написано после этого символа?

1) В редакторе VBA в окне VBA Project откройте папку Forms
2) Нажмите правой кнопкой на форму ufSelectBook
3) Выберите View Code
4) Найдите в верхней части строку

Visual Basic
1
                wbName = oTemp_WB.ActiveSheet.Cells(2, 2) & " " & oTemp_WB.ActiveSheet.Cells(3, 2) & " " & oTemp_WB.ActiveSheet.Cells(4, 2)

5) Замените ее на

Visual Basic
1
                wbName = oTemp_WB.ActiveSheet.Cells(2, 2) & " " & Split(oTemp_WB.ActiveSheet.Cells(3, 2), "/")(0) & " " & oTemp_WB.ActiveSheet.Cells(4, 2)

6) Сохраните книгу

@Анна777 · 14.03.2012, 13:40 **[ТС]**

Gibboustooth, Спасииииибо!!!!!!! И еще последний, совсем глупый вопрос

) А можно как-то сделать, чтобы эта чудо-кнопка была не в отдельном файле, а на панели инструментов, чтобы из каждого заказа ее можно было бы нажать...

@Gibboustooth · 14.03.2012, 14:00

Сообщение от Анна777

Спасииииибо!!!!!!! И еще последний, совсем глупый вопрос ) А можно как-то сделать, чтобы эта чудо-кнопка была не в отдельном файле, а на панели инструментов, чтобы из каждого заказа ее можно было бы нажать...

Да. Нужно сделать несколько изменений:
1. Открыть модуль mPubVar и дописать туда следующее:

Visual Basic
1
2
3
Sub ShowForm()
    ufSelectBook.Show
End Sub

2. Открыть код формы ufSelectBook
3. Найти внизу

Visual Basic
1
2
3
        If Not oWB.Name = ActiveWorkbook.Name Then
            Me.lbBooks.AddItem oWB.Name
        End If

и заменить на

Visual Basic
1
        Me.lbBooks.AddItem oWB.Name

4. В меню Excel Файл -> Сохранить как... надстройку в формате .xla (в самом конце при выборе формата сохранения)
5. В меню Excel Сервис -> Надстройки поставить галочку напротив "Save and Send" и нажать ОК
6. Нажать на черную стрелку на панели кнопок Excel -> добавить или удалить кнопку -> Настройка
7. Перейти на вкладку "Команды"
8. Выбрать из меню слева "Макросы"
9. Перетащить мышкой из поля "Настраиваемая кнопка" (с улыбающейся рожицей

) на панель кнопок Excel в удобное вам место
10. Нажать на кнопку
11. Ввести в верхнем поле появившегося окна "ShowForm" (без кавычек) и нажать ОК.

При следующем нажатии на кнопку должна показывать форма выбора книги.
Кстати, вы можете выбирать сразу несколько книг - он обработает их все.

@Анна777 · 15.03.2012, 10:28 **[ТС]**

Gibboustooth? Спасибо Вам огромное!!! Вы - гений!!! Я прямо счастлива

Честно говоря, даже не думала, что такое возможно, хотела облегчить хотя бы часть этой рутинной работы, но раз есть такой волшебник, может сможете сделать для меня еще одно чудо?...

@Gibboustooth · 15.03.2012, 10:49

Создайте отдельную тему, здесь и так уже захламлено.

@Анна777 · 15.03.2012, 15:47 **[ТС]**

Сообщение от Gibboustooth

Создайте отдельную тему, здесь и так уже захламлено.

Хорошо

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Gibboustooth 735 / 203 / 11 Регистрация: 23.06.2011 Сообщений: 440
	14.03.2012, 12:59
	Проблема понятна. Дело в том, что ряд символов не могут быть использованы в имени файла, в частности символ "/", который присутствует у вас в названии поставщика. Либо надо менять имя поставщика в файле, либо надо менять формат имени, которое создается при сохранении файла. 0

@Анна777 0 / 0 / 0 Регистрация: 13.03.2012 Сообщений: 24
	14.03.2012, 13:40 [ТС]
	Gibboustooth, Спасииииибо!!!!!!! И еще последний, совсем глупый вопрос ) А можно как-то сделать, чтобы эта чудо-кнопка была не в отдельном файле, а на панели инструментов, чтобы из каждого заказа ее можно было бы нажать... 0

@Анна777 0 / 0 / 0 Регистрация: 13.03.2012 Сообщений: 24
	15.03.2012, 10:28 [ТС]
	Gibboustooth? Спасибо Вам огромное!!! Вы - гений!!! Я прямо счастлива Честно говоря, даже не думала, что такое возможно, хотела облегчить хотя бы часть этой рутинной работы, но раз есть такой волшебник, может сможете сделать для меня еще одно чудо?... 0

@Gibboustooth 735 / 203 / 11 Регистрация: 23.06.2011 Сообщений: 440
	15.03.2012, 10:49
	Создайте отдельную тему, здесь и так уже захламлено. 1