Есть такая проблема: у нас тут внедрили SAP EPM и заставляют вносить в SAP данные из наших Экселевских форм. Копировать данные реально только макросом (подтяжки не работают в этих формах). Как реализовать копирование - я знаю (там будут свои нюансы, но я с ними разберусь). А как реализовать выбор книги из которой копировать данные - я не знаю :-(
т.е. открыть стандартное окно выбора файла, открыть книгу, пометить эту книгу как книгу из которой будем копировать - этого я придумать не смог (знаний не хватает).
Может у кого-то есть пример, который можно поковырять и разобраться с этим?
Добрый день, коллеги.
Есть такая проблема: у нас тут внедрили SAP EPM и заставляют вносить в SAP данные из наших Экселевских форм. Копировать данные реально только макросом (подтяжки не работают в этих формах). Как реализовать копирование - я знаю (там будут свои нюансы, но я с ними разберусь). А как реализовать выбор книги из которой копировать данные - я не знаю :-(
т.е. открыть стандартное окно выбора файла, открыть книгу, пометить эту книгу как книгу из которой будем копировать - этого я придумать не смог (знаний не хватает).
Может у кого-то есть пример, который можно поковырять и разобраться с этим?palikhov
strFileName = Application.GetOpenFilename("Листы Excel,*.xls;*.xlsx;*.xlsm;*.xlsb", , "Выберите файл исходных данных") If strFileName = "False" Then MsgBox "Не выбран файл исходных данных." & vbCrLf & _ "Дальнейшее продолжение невозможно.", vbExclamation Exit Function End If
[/vba]
[vba]
Код
strFileName = Application.GetOpenFilename("Листы Excel,*.xls;*.xlsx;*.xlsm;*.xlsb", , "Выберите файл исходных данных") If strFileName = "False" Then MsgBox "Не выбран файл исходных данных." & vbCrLf & _ "Дальнейшее продолжение невозможно.", vbExclamation Exit Function End If
да, если в диалоге будет выбран файл, то после нажатия кнопки "Открыть", в strFileName будет полный путь и имя выбранного файла, а если в диалоге будет нажата кнопка "Отмена", то значение strFileName будет равно "False".
да, если в диалоге будет выбран файл, то после нажатия кнопки "Открыть", в strFileName будет полный путь и имя выбранного файла, а если в диалоге будет нажата кнопка "Отмена", то значение strFileName будет равно "False".KSV