ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Странно открывает файл
18 сообщений из 18, страница 1 из 1
Странно открывает файл
    #39463151
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Здравствуйте!

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

После того как макрос открыл другой файл и далее вручную изменяем данные на какой то ячейке, то изменение будто происходит не во втором файле, а в исходном. В первом файле специально поставил защиту листа, где находится кнопка запуска, потом запустил, открылся второй файл, изменяю данные в ячейке, то пишет что лист защищен. Даже файл не могу закрыть. Потом если вернутся к исходному файлу или переключиться на другой лист второго файла, активировать любую ячейку там, и далее перейти на второй файл к исходному листу, то данные там теперь в ячейках изменяются. И можно даже этот второй файл закрыть.

Почему так происходит? Как нужно написать код так, чтобы сразу после открытия второго файла, можно было изменять данные в ячейках? Учитывая такой логический момент, что Кнопка на листе вызывает макрос1 из модуля, макрос1 из модуля открывает форму. На форме есть кнопка и эта кнопка вызывает макрос2. А макрос2 открывает файл.
...
Рейтинг: 0 / 0
31.05.2017, 15:33
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463276
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Скорее всего, потому что форма висит
Код: vbnet
1.
2.
    Unload Me
    Call Макрос2

Попробуй запустить макрос без формы, напрямую
...
Рейтинг: 0 / 0
31.05.2017, 17:48
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463311
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Shocker.ProСкорее всего, потому что форма висит
Код: vbnet
1.
2.
    Unload Me
    Call Макрос2

Попробуй запустить макрос без формы, напрямую
В рабочем файле запускаю через форму как основное меню: там разные кнопки. Может быть надо какую нибудь специальную команду написать, чтобы не висела форма?
...
Рейтинг: 0 / 0
31.05.2017, 18:28
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463358
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Еще раз.
Выполни приведенный макрос НЕ через форму ВООБЩЕ и посмотри, останется ли проблема.

Если это проблему решит, то скажу, что делать дальше.
...
Рейтинг: 0 / 0
31.05.2017, 21:00
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463411
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
ferzmikk,

Складывается впечатление, что рабочий код не совсем тот, что Вы привели в пример. Попробутей так:

Код: vbnet
1.
2.
3.
4.
5.
Dim str As String
Dim obook As Excel.Workbook

str = Application.GetOpenFilename("Excel Files   (*.xls; *.xlsx; *.xlsm; *.xlsb), *.xls; *.xlsx; *.xlsm; *.xlsb", , , , False)
Set obook = Application.Workbooks.Open(str, 0)
...
Рейтинг: 0 / 0
31.05.2017, 23:27
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463469
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Shocker.ProСкорее всего, потому что форма висит
Код: vbnet
1.
2.
    Unload Me
    Call Макрос2

Попробуй запустить макрос без формы, напрямую
Если запускать напрямую, то все нормально: данные можно изменять.
...
Рейтинг: 0 / 0
01.06.2017, 07:16
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463470
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
iMrTidyferzmikk,

Складывается впечатление, что рабочий код не совсем тот, что Вы привели в пример. Попробутей так:

Код: vbnet
1.
2.
3.
4.
5.
Dim str As String
Dim obook As Excel.Workbook

str = Application.GetOpenFilename("Excel Files   (*.xls; *.xlsx; *.xlsm; *.xlsb), *.xls; *.xlsx; *.xlsm; *.xlsb", , , , False)
Set obook = Application.Workbooks.Open(str, 0)


Все также. Данные на ячейках не меняются
...
Рейтинг: 0 / 0
01.06.2017, 07:18
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463489
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ferzmikkЕсли запускать напрямую, то все нормально: данные можно изменять.Так вот, после Unload Me код выполнять не следует, скорее всего форма после выгрузки пытается загрузиться обратно или остается, но скрытая, висит, мешает, делает текущей книгу с формой.
Запускай макрос по OnTime
...
Рейтинг: 0 / 0
01.06.2017, 07:49
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463497
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Имхо правильнее - из модуля формы только запускать макрос. А вот макрос первой командой пусть выгружает эту форму (с условием, что она загружена).
...
Рейтинг: 0 / 0
01.06.2017, 08:00
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463508
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Shocker.ProferzmikkЕсли запускать напрямую, то все нормально: данные можно изменять.Так вот, после Unload Me код выполнять не следует, скорее всего форма после выгрузки пытается загрузиться обратно или остается, но скрытая, висит, мешает, делает текущей книгу с формой.
Запускай макрос по OnTime
Заработало.
Код: vbnet
1.
Application.OnTime Now + TimeValue("00:00:01"), Procedure:="Макрос2"


Но так почему то не хочет работать
Код: vbnet
1.
Application.OnTime Now + TimeValue("00:00:01"), Макрос2




Скажите, если использовать OnTime, то есть исключения, условия применения? Например, типа не корректно будет работать выгрузка из OLAP, технология ADO, события, пересчеты и т. п.
...
Рейтинг: 0 / 0
01.06.2017, 08:25
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463511
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
iMrTidyferzmikk,

Складывается впечатление, что рабочий код не совсем тот, что Вы привели в пример. Попробутей так:

Код: vbnet
1.
2.
3.
4.
5.
Dim str As String
Dim obook As Excel.Workbook

str = Application.GetOpenFilename("Excel Files   (*.xls; *.xlsx; *.xlsm; *.xlsb), *.xls; *.xlsx; *.xlsm; *.xlsb", , , , False)
Set obook = Application.Workbooks.Open(str, 0)


1. В чем отличие Dim obook As Workbook и Dim obook As Excel.Workbook ?
2. Если в коде использовать имена переменных, процедур, функции, классов на русском языке, то какие риcки могут быть?
...
Рейтинг: 0 / 0
01.06.2017, 08:31
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463559
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ferzmikkНо так почему то не хочет работатьА ты понимаешь разницу между Макрос2 и "Макрос2"?

ferzmikk1. В чем отличие Dim obook As Workbook и Dim obook As Excel.Workbook ?В данном случае ни в чем - просто более полная квалификация класса. Если ты объявишь свой собственный класс с именем Workbook, тогда придется использовать Excel.Workbook для точного указания на нужный класс.
ferzmikk2. Если в коде использовать имена переменных, процедур, функции, классов на русском языке, то какие риcки могут быть?Ничего страшного не будет. Просто есть традиция писать на английском.
...
Рейтинг: 0 / 0
01.06.2017, 09:42
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39463563
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Shocker.ProferzmikkНо так почему то не хочет работатьА ты понимаешь разницу между Макрос2 и "Макрос2"?Понял. Теперь работает)
...
Рейтинг: 0 / 0
01.06.2017, 09:48
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39464847
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
Shocker.Proferzmikk1. В чем отличие Dim obook As Workbook и Dim obook As Excel.Workbook ?В данном случае ни в чем - просто более полная квалификация класса. Если ты объявишь свой собственный класс с именем Workbook, тогда придется использовать Excel.Workbook для точного указания на нужный класс.

У меня выдавало ошибку typemismatch, пока не указал явно.
...
Рейтинг: 0 / 0
02.06.2017, 16:31
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39464853
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Внутри экселя? В операторе Dim?
...
Рейтинг: 0 / 0
02.06.2017, 16:43
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39464876
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
Shocker.ProВнутри экселя? В операторе Dim?

Нет, при присвоении переменной.
...
Рейтинг: 0 / 0
02.06.2017, 17:02
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39464904
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
iMrTidyShocker.ProВнутри экселя? В операторе Dim?

Нет, при присвоении переменной.New?
...
Рейтинг: 0 / 0
02.06.2017, 17:22
| Ответить | Цитировать | Написать  
Странно открывает файл
    #39465024
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
Shocker.Pro,

Вот на этой строчке:

Код: vbnet
1.
Set obook = Workbooks.Open(str, 0)
...
Рейтинг: 0 / 0
02.06.2017, 22:16
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Странно открывает файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39463470&tid=2172668]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 131ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 14ms
total:  242ms
созд. / загр.: 242ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]