Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Апр

Слияние документов в MS Word

Posted by obzor under VBA

Выполняю слияние документа MsWord с файлом Excel, все отлично работает. Но, при переносе на другой компьютер данных файлов, приходится снова указывать источник данных (оба файла должны находится в папке «мои документы», а на разных компах естественно путь к ним разный). Так вот, как можно сделать, чтоб каждый раз не приходилось заново указывать путь? Ведь оба файла расположены в одной папке, хорошо бы если можно было указать относительный путь, только вот где, не нашел…

Шуримар

Для Excel это будет так.

Код:

        АдресПапки = ActiveWorkbook.Path
        Application.Workbooks.Open (АдресПапки & "\ИмяФайла.xls")

Для Word это будет так.

Код:

        АдресПапки = ActiveDocument.Path
        Application.Documents.Open (АдресПапки & "\ИмяФайла.doc")

Из ворда открыть эксель. Взял из справки

Цитата:

Word 2007 Developer Reference > Word Object Model Reference > Application Object > Methods > DDERequest Method

Код:

Sub из_Word()
Dim АдресПапки As String
Dim lngChannel As Long
    
    АдресПапки = ActiveDocument.Path
    
    lngChannel = DDEInitiate(App:="Excel", Topic:="System")
    DDEExecute Channel:=lngChannel, Command:="[OPEN(" & Chr(34) _
        & АдресПапки & "\Книга1.xls" & Chr(34) & ")]"
    DDETerminate Channel:=lngChannel
    lngChannel = DDEInitiate(App:="Excel", Topic:="Книга1.xls")
    DDEPoke Channel:=lngChannel, Item:="R1C1", Data:="Приветствую тебя!"
    DDETerminate Channel:=lngChannel
End Sub

тема на форуме

Случайные статьи

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: