Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос не позволяет использовать два файла эксель - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос не позволяет использовать два файла эксель (Макросы/Sub)
Макрос не позволяет использовать два файла эксель
lebensvoll Дата: Среда, 28.11.2018, 15:15 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 858
Репутация: 22 ±
Замечаний: 0% ±

Excel 2010
Добрый день!!!
Прошу Вас помощи...
Проблема заключается в том что на сервере имеются файлы которыми пользуются. Но иной раз по своей нерасторопности не закрывают его после использования. И приходиться производить обзвон в поисках КТО НЕ ЗАКРЫЛ
ГУГЛ помог My WebPage
Применил аналогично данный макрос, в ходе возникли проблемы.
Теперь на сервере не могу открыть два файла экселя одновременно (в которых содержатся аналогичные макросы) да даже если и нет вообще макросов в файлах
Как можно это избежать!?
Хотя данный макрос с решением задумки справляется на ура!!!

А может ли замена этой строки в макросе повлиять на работоспособность
[vba]
Код
Private Declare Function GetCursorPos Lib "user32.dll" (IpPOINT As POINTAPI) As Long
[/vba]
на
[vba]
Код
Private Declare PtrSafe Function GetCursorPos Lib "user32.dll" (IpPOINT As POINTAPI) As Long
[/vba]
Просто на рабочем столе у меня стоит 2007 эксель и первая строка работает
А если я переношу данный макрос на сервер (а там установлен 2010 эксель) то я вынужден заменить на вторую строку потому как ругается. Но тогда и возникают проблемы с работоспособностью двух файлов одновременно (хотя попробовал открыть на рабочем столе 2007 экселя два файла тоже самое :'( )
ПЕЧАЛЬКА
К сообщению приложен файл: eewqswsqasqeqe1.xlsm(14.9 Kb)


Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Среда, 28.11.2018, 15:32
 
Ответить
СообщениеДобрый день!!!
Прошу Вас помощи...
Проблема заключается в том что на сервере имеются файлы которыми пользуются. Но иной раз по своей нерасторопности не закрывают его после использования. И приходиться производить обзвон в поисках КТО НЕ ЗАКРЫЛ
ГУГЛ помог My WebPage
Применил аналогично данный макрос, в ходе возникли проблемы.
Теперь на сервере не могу открыть два файла экселя одновременно (в которых содержатся аналогичные макросы) да даже если и нет вообще макросов в файлах
Как можно это избежать!?
Хотя данный макрос с решением задумки справляется на ура!!!

А может ли замена этой строки в макросе повлиять на работоспособность
[vba]
Код
Private Declare Function GetCursorPos Lib "user32.dll" (IpPOINT As POINTAPI) As Long
[/vba]
на
[vba]
Код
Private Declare PtrSafe Function GetCursorPos Lib "user32.dll" (IpPOINT As POINTAPI) As Long
[/vba]
Просто на рабочем столе у меня стоит 2007 эксель и первая строка работает
А если я переношу данный макрос на сервер (а там установлен 2010 эксель) то я вынужден заменить на вторую строку потому как ругается. Но тогда и возникают проблемы с работоспособностью двух файлов одновременно (хотя попробовал открыть на рабочем столе 2007 экселя два файла тоже самое :'( )
ПЕЧАЛЬКА

Автор - lebensvoll
Дата добавления - 28.11.2018 в 15:15
boa Дата: Среда, 28.11.2018, 18:33 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 264
Репутация: 55 ±
Замечаний: 0% ±

2013, 365
lebensvoll,
воть так декларируют под разные версии Excel
[vba]
Код
#If VBA7 Then       '  Code is running in the new VBA7 editor(Office 2010-2016)
    Private Declare PtrSafe Function GetCursorPos Lib "user32.dll" (IpPOINT As POINTAPI) As Long
#Else               ' Code is running in VBA version 6 or earlier(Office 2003-2007)
    Private Declare Function GetCursorPos Lib "user32.dll" (IpPOINT As POINTAPI) As Long
#End If
[/vba]


 
Ответить
Сообщениеlebensvoll,
воть так декларируют под разные версии Excel
[vba]
Код
#If VBA7 Then       '  Code is running in the new VBA7 editor(Office 2010-2016)
    Private Declare PtrSafe Function GetCursorPos Lib "user32.dll" (IpPOINT As POINTAPI) As Long
#Else               ' Code is running in VBA version 6 or earlier(Office 2003-2007)
    Private Declare Function GetCursorPos Lib "user32.dll" (IpPOINT As POINTAPI) As Long
#End If
[/vba]

Автор - boa
Дата добавления - 28.11.2018 в 18:33
lebensvoll Дата: Четверг, 29.11.2018, 08:47 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 858
Репутация: 22 ±
Замечаний: 0% ±

Excel 2010
boa, спасибо за ответ...
Я просто еще не пробовал Ваше предложение а решил сразу ответить.
Как я понимаю макрос получается
если он выявляет что установлен офис 2003 то срабатывает предпоследняя строка макроса и соответственно наоборот!?
Но как быть с тем что если открыть файл а потом на рабочем столе открыть другой файл. И он не открывается ((((
И я теперь вообще не могу в этом макросе что то изменить :'( что за ........


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщениеboa, спасибо за ответ...
Я просто еще не пробовал Ваше предложение а решил сразу ответить.
Как я понимаю макрос получается
если он выявляет что установлен офис 2003 то срабатывает предпоследняя строка макроса и соответственно наоборот!?
Но как быть с тем что если открыть файл а потом на рабочем столе открыть другой файл. И он не открывается ((((
И я теперь вообще не могу в этом макросе что то изменить :'( что за ........

Автор - lebensvoll
Дата добавления - 29.11.2018 в 08:47
boa Дата: Четверг, 29.11.2018, 12:07 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 264
Репутация: 55 ±
Замечаний: 0% ±

2013, 365
Теперь на сервере не могу открыть два файла экселя одновременно
Уберите строку закрытия Excel
[vba]
Код
Application.Quit
[/vba]
А то у вас файл как эгоист "уходя сжигает мосты".
Можно включить мультидоступ, тогда одновременно могут вносить изменения несколько человек
Или, если я правильно понял вашу мысль, то я вообще по другому бы сделал.


Внимание, приложенный файл с автозапуском макроса
К сообщению приложен файл: 8400617.xlsm(20.4 Kb)




Сообщение отредактировал boa - Четверг, 29.11.2018, 12:13
 
Ответить
Сообщение
Теперь на сервере не могу открыть два файла экселя одновременно
Уберите строку закрытия Excel
[vba]
Код
Application.Quit
[/vba]
А то у вас файл как эгоист "уходя сжигает мосты".
Можно включить мультидоступ, тогда одновременно могут вносить изменения несколько человек
Или, если я правильно понял вашу мысль, то я вообще по другому бы сделал.


Внимание, приложенный файл с автозапуском макроса

Автор - boa
Дата добавления - 29.11.2018 в 12:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос не позволяет использовать два файла эксель (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!