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

Вход

Регистрация

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

 

= Мир MS Excel/из книги открыть другую книгу через диалоговое окно - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
из книги открыть другую книгу через диалоговое окно
palikhov Дата: Понедельник, 23.03.2015, 12:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Добрый день, коллеги.

Есть такая проблема: у нас тут внедрили SAP EPM и заставляют вносить в SAP данные из наших Экселевских форм. Копировать данные реально только макросом (подтяжки не работают в этих формах).
Как реализовать копирование - я знаю (там будут свои нюансы, но я с ними разберусь).
А как реализовать выбор книги из которой копировать данные - я не знаю :-(

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

Может у кого-то есть пример, который можно поковырять и разобраться с этим?


Как много открытий чудных нам мир готовит.
 
Ответить
СообщениеДобрый день, коллеги.

Есть такая проблема: у нас тут внедрили SAP EPM и заставляют вносить в SAP данные из наших Экселевских форм. Копировать данные реально только макросом (подтяжки не работают в этих формах).
Как реализовать копирование - я знаю (там будут свои нюансы, но я с ними разберусь).
А как реализовать выбор книги из которой копировать данные - я не знаю :-(

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

Может у кого-то есть пример, который можно поковырять и разобраться с этим?

Автор - palikhov
Дата добавления - 23.03.2015 в 12:52
KSV Дата: Понедельник, 23.03.2015, 12:55 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
       strFileName = Application.GetOpenFilename("Листы Excel,*.xls;*.xlsx;*.xlsm;*.xlsb", , "Выберите файл исходных данных")
         If strFileName = "False" Then
             MsgBox "Не выбран файл исходных данных." & vbCrLf & _
                    "Дальнейшее продолжение невозможно.", vbExclamation
             Exit Function
         End If
[/vba]


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщение[vba]
Код
       strFileName = Application.GetOpenFilename("Листы Excel,*.xls;*.xlsx;*.xlsm;*.xlsb", , "Выберите файл исходных данных")
         If strFileName = "False" Then
             MsgBox "Не выбран файл исходных данных." & vbCrLf & _
                    "Дальнейшее продолжение невозможно.", vbExclamation
             Exit Function
         End If
[/vba]

Автор - KSV
Дата добавления - 23.03.2015 в 12:55
palikhov Дата: Понедельник, 23.03.2015, 15:17 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Cпасибо.
А дальше я просто прописываю операцию открытия и что мне там надо - используя strFileName как имя книги, правильно?


Как много открытий чудных нам мир готовит.

Сообщение отредактировал Serge_007 - Понедельник, 23.03.2015, 15:33
 
Ответить
СообщениеCпасибо.
А дальше я просто прописываю операцию открытия и что мне там надо - используя strFileName как имя книги, правильно?

Автор - palikhov
Дата добавления - 23.03.2015 в 15:17
KSV Дата: Понедельник, 23.03.2015, 17:05 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
да, если в диалоге будет выбран файл, то после нажатия кнопки "Открыть", в strFileName будет полный путь и имя выбранного файла,
а если в диалоге будет нажата кнопка "Отмена", то значение strFileName будет равно "False".


KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщениеда, если в диалоге будет выбран файл, то после нажатия кнопки "Открыть", в strFileName будет полный путь и имя выбранного файла,
а если в диалоге будет нажата кнопка "Отмена", то значение strFileName будет равно "False".

Автор - KSV
Дата добавления - 23.03.2015 в 17:05
  • Страница 1 из 1
  • 1
Поиск:

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