Внедрение OLE объекта с выпадающим окном выбора файла

[Romario371]

ChoiceFile - вернет полное имя файла или пустую строку (если ничего не выбрать)
имя файла получили - используйте как вам нужно
например

ActiveSheet.OLEObjects.Add(Filename := ChoiceFile, Link:=False, ....

[/QUOTE]

Егор, доброе утро. Подскажите еще такую вещь, при внедрении файла в имени значка прописывается путь на моем компьютере, но хотелось бы чтоб было именно имя файла. Это возможно?

[IgorGO]

Function FileNameFromFullPath(p As String) As String
  FileNameFromFullPath = Right(p, Len(p) - InStrRev(p, Application.PathSeparator))
End Function

...
ActiveSheet.OLEObjects.Add(Filename := FileNameFromFullPath(ChoiceFile)
...

и... называйте меня Игорь, я за 50 лет к этому имени привык

[Romario371]

и... называйте меня Игорь, я за 50 лет к этому имени привык[/QUOTE]

Я прошу прощения, первый свой ответ написал Игорь, посмотрел в других комментариях, там обращаются к Вам как к Егору, быстренько отредактировал.. А оказалось не правильно

[Romario371]

IgorGO;1479988][CODE]Function FileNameFromFullPath(p As String) As String
FileNameFromFullPath = Right(p, Len(p) - InStrRev(p, Application.PathSeparator))
End Function


Все делаю как Вы говорите, а не получается все равно..((
пример во вложении

[Romario371]

Игорь, сможете помочь по сообщению выше?

[IgorGO]

у Вас

Sub Внедрение_документа()
'Макрос2 Макрос
ActiveSheet.OLEObjects.Add(Filename:=ChoiceFile, Link:=False, DisplayAsIcon _
:=True, IconFileName:= _
"C:\PROGRA~2\MICROS~1\Office14\WINWORD.EXE", IconIndex:=0, _
IconLabel:=ChoiceFile).Select
End Sub

я предлагал:

ActiveSheet.OLEObjects.Add(Filename := FileNameFromFullPath(ChoiceFile), ...

улавливаете разницу?

[IgorGO]

только заметил
там два раза ChoiceFile (выбор файла)
я вообще не знаю что Вы там внедряете или пытаетесь внедрить

до этого отвтил на два простых вопроса:
1. как выбрать файл
2. как из выброного полного имени файла отбросить путь к нему

Вам было преодложено 2 функции отвечающие на эти эти два вопроса

[Romario371]

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

только заметил
там два раза ChoiceFile (выбор файла)
я вообще не знаю что Вы там внедряете или пытаетесь внедрить

до этого отвтил на два простых вопроса:
1. как выбрать файл
2. как из выброного полного имени файла отбросить путь к нему

Вам было преодложено 2 функции отвечающие на эти эти два вопроса

там два раза ChoiceFile (выбор файла)

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

с Код:

ActiveSheet.OLEObjects.Add(Filename := FileNameFromFullPath(ChoiceFile), ...

все получилось, спасибо))

[Romario371]

Игорь, здравствуйте! У меня новая проблема. При отказе выбора файла выскакивает окно

"Невозможно получить свойство Add класса OLEObject"

Можно ли прописать какую нибудь фразу чтоб при отказе просто скрывалось окно выбора файла?

[IgorGO]

Sub Внедрение_документа()
'Макрос2 Макрос
dim fulnm as string, fn as string
fulnm = choicefile:  if fulnm = "" then exit sub
fn = FileNameFromFullPath(fulnm)
...

дальше в нужных используйте fulnm и fn там где они нужны
и мой Вам совет: бросайте это программирование куда по-дальше