"С обычными дураками не так весело танцевать, как с сдвинутыми" (с)
Добрый день!
Нужна помощь с ВБА, а точнее, с получением путя файла.
Имеется в папке пять doc файлов, и в пятом необходимо открыть с помощью кнопки открыть соотвественно каждый из оставшихся файлов, и нажатием другой кнопки этот файл закрыть.
Для этого использовалась функция Path, так как все файлы в одной папке, можно просто было запомнить один путь и везде его вызывать.
Но при компиляции выдает ошибка, что не может быть присвоено исполняемое значение функции, только для чтения (? точно просто не помню).
Сам код:
Dim AppPath As String
If Right$(App.Path, 1) = "\" Then
AppPath = App.Path & sFileName
Else
AppPath = App.Path & "\" & sFileName
End If
Dim Laba1 As Word.Document
Set Laba1 = Documents.Open(App.Path & "\демо1.docm")
Laba1.Activate
В чем ошибка, какие есть альтернативы, как правильно прописать путь?
Буду благодарен за любую помощь, инет обшарил, но над чем сижу, над тем сидят и там.
И не ходить два раза, как прописать двойной клик мышки в ВБА?
Требуется при нажатие на кнопку, происходит событие А, при повторном нажатии на эту же кнопку, происходит уже событие Б.
С первым проблем нет, а вот второе.
Использовал Select Case для обработки события, но что то оно работает не так как надо.
Знаю функцию DbClick, но программа ругается и выдает ошибку.
Нужна помощь с ВБА, а точнее, с получением путя файла.
Имеется в папке пять doc файлов, и в пятом необходимо открыть с помощью кнопки открыть соотвественно каждый из оставшихся файлов, и нажатием другой кнопки этот файл закрыть.
Для этого использовалась функция Path, так как все файлы в одной папке, можно просто было запомнить один путь и везде его вызывать.
Но при компиляции выдает ошибка, что не может быть присвоено исполняемое значение функции, только для чтения (? точно просто не помню).
Сам код:
Dim AppPath As String
If Right$(App.Path, 1) = "\" Then
AppPath = App.Path & sFileName
Else
AppPath = App.Path & "\" & sFileName
End If
Dim Laba1 As Word.Document
Set Laba1 = Documents.Open(App.Path & "\демо1.docm")
Laba1.Activate
В чем ошибка, какие есть альтернативы, как правильно прописать путь?
Буду благодарен за любую помощь, инет обшарил, но над чем сижу, над тем сидят и там.
И не ходить два раза, как прописать двойной клик мышки в ВБА?
Требуется при нажатие на кнопку, происходит событие А, при повторном нажатии на эту же кнопку, происходит уже событие Б.
С первым проблем нет, а вот второе.
Использовал Select Case для обработки события, но что то оно работает не так как надо.
Знаю функцию DbClick, но программа ругается и выдает ошибку.