Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для добавления файла PDF, DOC и др. в книгу Excel
 
#1
07.01.2017 11:15:06
Доброго времени суток! Впервые сталкиваюсь с макросами и знаний в языке VB нулевые, поэтому прошу ваше помощи!
Мне необходимо добавить кнопку, чтобы при нажатии он добавлял файл на лист (не ссылку, а именно файл). Кнопку добавить могу, а вот написать код нет.
Заранее благодарю!
И всех с Рождеством!!!
 
 
 
#2
07.01.2017 11:32:22
Включите макрорекордер и выполните нужные действия. Будет Вам код
что такое макрорекордер в excel
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
07.01.2017 15:29:06
ну получился у меня вот такой код:
Код
?
1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
    ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Users\Äìèòðèé\Documents\576768FCCD5B1560E10080000AF50746.pdf", Link:= _
        False, DisplayAsIcon:=True, IconFileName:= _
        """C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"" ""%1""" _
        , IconIndex:=0, IconLabel:= _
        "C:\Users\Äìèòðèé\Documents\576768FCCD5B1560E10080000AF50746.pdf").Select
End Sub

но это он добавляет определённый файл, а что надо сделать, чтобы выдавал окно выбора файла и потом прикреплял его?
 
 
 
#4
07.01.2017 16:09:21
Сам adobe'ом не пользуюсь, но попробуйте так.
Код
?
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim FilesToOpen
    FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="All files (*.*), *.*", _
      MultiSelect:=False, Title:="Files to Merge")
 
    ActiveSheet.OLEObjects.Add(Filename:=FilesToOpen, Link:= _
        False, DisplayAsIcon:=True, IconFileName:= _
        """C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"" ""%1""" _
        , IconIndex:=0, IconLabel:= _
        FilesToOpen).Select
End Sub
 
 
 
#5
07.01.2017 16:11:49
Если надо не только прикреплять, но и потом макросом извлекать прикреплённые файлы,
посмотрите этот макрос: http://excelvba.ru/tools/Attachments
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
07.01.2017 17:09:00
Спасибо Phurba получилось! Хорошо Игорь воспользуюсь Вашим советом, если понадобится такая нужда
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...