ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В vba excel 2010 не выполняется при запуске функция Workbook.Open
23 сообщений из 23, страница 1 из 1
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531387
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
Добрый день!!

Помогите, пожалуйста, разобраться в проблеме!!

В макросе использую метод Workbook.Open, чтобы открывать программно файлы.
Первоначально макрос был написан в 2003 оффисе и всё работало нормально.

После установки 2010 Оффиса, макрос стал выдавать ошибку именно в строке с указанным методом.

Workbooks.Open Filename:=Adress & Worksheets("TechSheet").Cells(j, 1), UpdateLinks:=0

Короче, в 2003 работает, в 2010 - нет :(

Помогите, плиз!!!
...
Рейтинг: 0 / 0
20.01.2014, 09:18
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531406
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
I_NEED_HELPPP,

может у вас макросы не разрешены
...
Рейтинг: 0 / 0
20.01.2014, 09:47
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531411
Фотография Surrogate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Surrogate
Участник
I_NEED_HELPPP ,

все переменные определены: adress, j ?
проверь
Код: vbnet
1.
Debug.Print adress & Worksheets(1).Cells(1, 1)

совпадает с именем файла, который нужно открыть ?
...
Рейтинг: 0 / 0
20.01.2014, 09:54
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531412
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
а "ручками" этот файл открывается в 2010?
...
Рейтинг: 0 / 0
20.01.2014, 09:55
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531421
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
ПЕНСИОНЕРКА,

Да, макросы не разрешены.
Но в 2003 стояла также настройка о принятии пользователем решения открытия файла с макросом.
Тем не менее, программно там срабатывало ...
...
Рейтинг: 0 / 0
20.01.2014, 10:05
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531422
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
Surrogate I_NEED_HELPPP ,

все переменные определены: adress, j ?
проверь
Код: vbnet
1.
Debug.Print adress & Worksheets(1).Cells(1, 1)

совпадает с именем файла, который нужно открыть ?

Да, переменные все определены.
Я Дебагом делаю, переменные все значения имеют правильные , но на строчке с Workbook.Open всё падает ...
...
Рейтинг: 0 / 0
20.01.2014, 10:07
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531423
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
Shocker.Proа "ручками" этот файл открывается в 2010?

Угу, ручками открывается ...
...
Рейтинг: 0 / 0
20.01.2014, 10:07
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531440
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
попробуйте просто записать макрос открытия этого файла, а потом выполнить его, ничего не меняя
...
Рейтинг: 0 / 0
20.01.2014, 10:21
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531723
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
I_NEED_HELPPPПЕНСИОНЕРКА,

Да, макросы не разрешены.
Но в 2003 стояла также настройка о принятии пользователем решения открытия файла с макросом.
Тем не менее, программно там срабатывало ...

а может в 2010 побольше вариантов разрешения макросов(подзабыла уже 2003)
...
Рейтинг: 0 / 0
20.01.2014, 13:16
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531758
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
ПЕНСИОНЕРКАI_NEED_HELPPPПЕНСИОНЕРКА,

Да, макросы не разрешены.
Но в 2003 стояла также настройка о принятии пользователем решения открытия файла с макросом.
Тем не менее, программно там срабатывало ...

а может в 2010 побольше вариантов разрешения макросов(подзабыла уже 2003)

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

ActiveWorkbook.SetPasswordEncryptionOptions PasswordEncryptionProvider:="", _
PasswordEncryptionAlgorithm:="OfficeXor", PasswordEncryptionKeyLength:=-1, _
PasswordEncryptionFileProperties:=False

Так вот уже не срабатывает эта строка ...
Следом за ней идёт строка закрытия файла с сохранением изменений,

Workbooks(name2).Close savechanges:=True

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

Беда-беда-огорчение ...
...
Рейтинг: 0 / 0
20.01.2014, 13:37
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531792
Фотография Surrogate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Surrogate
Участник
I_NEED_HELPPPWorkbooks(name2).Close savechanges:=True
мы не видим здесь всего кода…

для Workbooks(name2) где-то задавалось имя файла, куда сохраняется эта книга ?
...
Рейтинг: 0 / 0
20.01.2014, 14:02
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531839
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
SurrogateI_NEED_HELPPPWorkbooks(name2).Close savechanges:=True
мы не видим здесь всего кода…

для Workbooks(name2) где-то задавалось имя файла, куда сохраняется эта книга ?

Привожу макрос целиком

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Private Sub EasyEncryption()
Dim Col As String
Dim j As Long
Dim Adress As String
Dim name2 As String
Dim V As String
Dim q As String
Dim s_test As String

q = 0
Address = Worksheets("TechSheet").Cells(1, 4)

   Col = ActiveSheet.Range("d2")
        
    For j = 1 To Col
        If Worksheets("TechSheet").Cells(j, 1) = "!test.xls" Then GoTo 10
        
        On Error GoTo 10
            Workbooks.Open Filename:=Address & Worksheets("TechSheet").Cells(j, 1), UpdateLinks:=0
            name2 = ActiveWorkbook.Name
            ActiveWorkbook.SetPasswordEncryptionOptions PasswordEncryptionProvider:="", _
        PasswordEncryptionAlgorithm:="OfficeXor", PasswordEncryptionKeyLength:=-1, _
        PasswordEncryptionFileProperties:=False
            Workbooks(name2).Close savechanges:=True
           
10  Next j
......
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
20.01.2014, 14:27
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531849
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
И сейчас в справке метода Workbook.SetPasswordEncryptionOptions увидела замечание:

The code and this method do not do anything for the new Excel file formats (xlsx, xlsb, xlsm, etc...) as the workbook will always use AES 128 bit encryption. If a property is set using this method, it will appear set. When the file is reloaded, the properties will be reset to the AES setting.

Может ли это быть как-то связано с моей проблемой?!
Хотя у меня открываемые файлы формата xls.

Я просто уже цепляюсь за все возможные варианты!
...
Рейтинг: 0 / 0
20.01.2014, 14:30
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531855
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.Proпопробуйте просто записать макрос открытия этого файла, а потом выполнить его, ничего не меняя
...
Рейтинг: 0 / 0
20.01.2014, 14:32
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531869
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
Shocker.ProShocker.Proпопробуйте просто записать макрос открытия этого файла, а потом выполнить его, ничего не меняя

Извините, но я не совмем понимаю, что я должна сделать ...
...
Рейтинг: 0 / 0
20.01.2014, 14:39
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531871
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
I_NEED_HELPPPShocker.Proпропущено...


Извините, но я не совмем понимаю, что я должна сделать ...

Что значит "ничего не меняя"?
...
Рейтинг: 0 / 0
20.01.2014, 14:40
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531878
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
- открыть чистую книгу
- запустить запись макроса
- открыть нужную книгу
- остановить запись макроса
- закрыть нужную книгу
- запустить макрос

нужная книга открылась с помощью макроса?
...
Рейтинг: 0 / 0
20.01.2014, 14:42
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531900
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
Shocker.Pro- открыть чистую книгу
- запустить запись макроса
- открыть нужную книгу
- остановить запись макроса
- закрыть нужную книгу
- запустить макрос

нужная книга открылась с помощью макроса?

Проделала.
Книга открылась с помощью макроса.
...
Рейтинг: 0 / 0
20.01.2014, 14:52
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531907
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
вот, теперь мы имеем две команды, одна открывает книгу, другая - нет. Осталось методом сравнения и частичного редактирования выявить конкретную проблему
...
Рейтинг: 0 / 0
20.01.2014, 14:56
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38531939
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
Shocker.Proвот, теперь мы имеем две команды, одна открывает книгу, другая - нет. Осталось методом сравнения и частичного редактирования выявить конкретную проблему

Проблема уже поменяла вектор :)

Книгу открыть я уже смогла! Я теперь не могу внести изменения в свойства методом SetPasswordEncryptionOptions и закрыть её...
...
Рейтинг: 0 / 0
20.01.2014, 15:12
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38533966
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Код не проверял, но:

Код: vbnet
1.
2.
3.
Dim Adress As String
...
    Address = ...
...
Рейтинг: 0 / 0
22.01.2014, 10:12
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38534170
I_NEED_HELPPP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
I_NEED_HELPPP
Гость
Hugo121Код не проверял, но:

Код: vbnet
1.
2.
3.
Dim Adress As String
...
    Address = ...



Да не, с этим всё нормально.
В программе у меня Adress на самом деле с одной d. До меня программист писал)) Это я на форуме решила исправить) А в определении не исправила)
...
Рейтинг: 0 / 0
22.01.2014, 12:47
| Ответить | Цитировать | Написать  
В vba excel 2010 не выполняется при запуске функция Workbook.Open
    #38534337
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
I_NEED_HELPPP,

Вы бы хоть ссылки давали на форумы, где свою проблему обсуждаете: Кросс
...
Рейтинг: 0 / 0
22.01.2014, 14:23
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В vba excel 2010 не выполняется при запуске функция Workbook.Open
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38531878&tid=2174291]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 70ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 12ms
total:  175ms
созд. / загр.: 175ms
x
x
Закрыть


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