Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / В vba excel 2010 не выполняется при запуске функция Workbook.Open / 23 сообщений из 23, страница 1 из 1
20.01.2014, 09:18
    #38531387
I_NEED_HELPPP
I_NEED_HELPPP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В vba excel 2010 не выполняется при запуске функция Workbook.Open
Добрый день!!

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

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

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

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

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

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

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

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

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

Да, макросы не разрешены.
Но в 2003 стояла также настройка о принятии пользователем решения открытия файла с макросом.
Тем не менее, программно там срабатывало ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2014, 10:07
    #38531422
I_NEED_HELPPP
I_NEED_HELPPP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В vba excel 2010 не выполняется при запуске функция Workbook.Open
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
    #38531423
I_NEED_HELPPP
I_NEED_HELPPP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В vba excel 2010 не выполняется при запуске функция Workbook.Open
Shocker.Proа "ручками" этот файл открывается в 2010?

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

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

а может в 2010 побольше вариантов разрешения макросов(подзабыла уже 2003)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2014, 13:37
    #38531758
I_NEED_HELPPP
I_NEED_HELPPP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В vba excel 2010 не выполняется при запуске функция Workbook.Open
ПЕНСИОНЕРКА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, 14:02
    #38531792
Surrogate
Surrogate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В vba excel 2010 не выполняется при запуске функция Workbook.Open
I_NEED_HELPPPWorkbooks(name2).Close savechanges:=True
мы не видим здесь всего кода…

для Workbooks(name2) где-то задавалось имя файла, куда сохраняется эта книга ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2014, 14:27
    #38531839
I_NEED_HELPPP
I_NEED_HELPPP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В vba excel 2010 не выполняется при запуске функция Workbook.Open
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:30
    #38531849
I_NEED_HELPPP
I_NEED_HELPPP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В vba excel 2010 не выполняется при запуске функция Workbook.Open
И сейчас в справке метода 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:32
    #38531855
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В vba excel 2010 не выполняется при запуске функция Workbook.Open
Shocker.Proпопробуйте просто записать макрос открытия этого файла, а потом выполнить его, ничего не меняя
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2014, 14:39
    #38531869
I_NEED_HELPPP
I_NEED_HELPPP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
В vba excel 2010 не выполняется при запуске функция Workbook.Open
Shocker.ProShocker.Proпопробуйте просто записать макрос открытия этого файла, а потом выполнить его, ничего не меняя

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


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

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

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

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

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

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

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

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

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



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

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


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