ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрыть файл програмно
25 сообщений из 223, страница 6 из 9
  6  все
закрыть файл програмно
    #36726442
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VSVLAD,

Хоть ты не тупи... там деление на 0
...
Рейтинг: 0 / 0
06.07.2010, 18:45
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726452
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Shocker.Pro,

Так почему идёт заход в условие?
On Error Resume Next - при ошибке выполняет следующий оператор после того, что вызвал ошибку. По идее должен пропустить условие и пойти дальше
...
Рейтинг: 0 / 0
06.07.2010, 18:51
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726457
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
А такой код вам кажется логичным?? Что не существует 11 индекса у массива, и условие считается истинным??
Private Sub Form_Load()
On Error Resume Next

Dim A(10) As Integer

If A(11) = 1 Then
MsgBox "Err"
End If
End Sub
...
Рейтинг: 0 / 0
06.07.2010, 18:53
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726460
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VSVLADShocker.Pro,

Так почему идёт заход в условие?
On Error Resume Next - при ошибке выполняет следующий оператор после того, что вызвал ошибку. По идее должен пропустить условие и пойти дальше
Я тоже так думал, и Костя, судя по всему, тоже. Только ЦЭ никак не думал, а сделал как попало, поэтому получилось, что ЦЭ прав, а мы - нет
...
Рейтинг: 0 / 0
06.07.2010, 18:55
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726469
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, я не думал????, вспомните когда мы ваяли три календаря, где я с Игорем пересекался на эту тему
...
Рейтинг: 0 / 0
06.07.2010, 19:00
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726476
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Задал данный вопрос на другом форуме... подожду может кто и чего объяснит или очередной глюк VB
...
Рейтинг: 0 / 0
06.07.2010, 19:04
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726484
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VSVLADЗадал данный вопрос на другом форуме... подожду может кто и чего объяснит или очередной глюк VB
Глюк ли это... Сказано же в Библии - резюмирует со следующей строки. Что считать следующей строкой? Вот тут логика и формальный подход могут разойтись...

Ха, а если б это был цикл?....
...
Рейтинг: 0 / 0
06.07.2010, 19:09
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726490
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.ProХа, а если б это был цикл?....

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Command1_Click()

Dim i As Integer
On Error Resume Next
For i =  5  /  0  To  6 
  Debug.Print Err.Number
  On Error GoTo  0 
  Debug.Print i
Next

End Sub
что интересно, в цикл входит, но крутить его - не крутит
просто игнорирует Next и все, немотря на то, что i еще не достигло нужного значения.

ЗЫ: ерундой занимаемся
...
Рейтинг: 0 / 0
06.07.2010, 19:13
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726502
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Вообще с ума сойти можно, я ранее определил, что в тех строках собака зарыта, их исправил, всмё равно спрашивает. Бред какой то, да ещё Костя пропал
...
Рейтинг: 0 / 0
06.07.2010, 19:28
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726515
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюВообще с ума сойти можно, я ранее определил, что в тех строках собака зарыта, их исправил, всмё равно спрашивает. Бред какой то, да ещё Костя пропал
Правильно, а чего бы ему не спрашивать, если твой макрос при автоматическом открытии изменяет документ. Как избавится от этого, мы обсудили еще пару страниц назад, чего ты еще хочешь - непонятно.
...
Рейтинг: 0 / 0
06.07.2010, 19:39
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726516
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Нашёл, еще в этих строках проблемы
Код: plaintext
1.
2.
3.
4.
5.
6.
If fso.GetExtensionName(f.Path) = "doc" Then
Количество_файлов_с_расширением_файла_doc = Количество_файлов_с_расширением_файла_doc +  1 
ActiveDocument.Frame_рамка_каркас.Controls("ComboBox_комбинированный_список_пользователь").AddItem Имя_файла_без_расширения
'условие, если первая буква имени файла = "1", тогда ...
If Left$(Имя_файла_без_расширения,  1 ) = "1" Then Имя_пользователя_с_первым_знаком_1 = Имя_файла_без_расширения
End If
Есть какие то мысли как заменить????
...
Рейтинг: 0 / 0
06.07.2010, 19:39
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726527
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, нет, но сейчас там нет в в конце Аутоопен
ActiveDocument.Saved=True
Но я проверял, даже если оно будет всё равно спрашивает???
Я хочу, что если человект своими руками ничего не делал, тогда нечего спрашивать!!
Как это сделать???
...
Рейтинг: 0 / 0
06.07.2010, 19:48
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726536
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro, нет, но сейчас там нет в в конце Аутоопен
ActiveDocument.Saved=True
Но я проверял, даже если оно будет всё равно спрашивает???
Я хочу, что если человект своими руками ничего не делал, тогда нечего спрашивать!!
Как это сделать???
А я в твой шаблон вставил и спрашивать перестало.
...
Рейтинг: 0 / 0
06.07.2010, 19:55
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726546
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, а у меня всё спрашивает, ну тогда что остаётся, прикрепите его.
...
Рейтинг: 0 / 0
06.07.2010, 20:01
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726556
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro, а у меня всё спрашивает, ну тогда что остаётся, прикрепите его.
Блин, сам как-нибудь переделай все свои Exit Sub-ы так, чтобы ActiveDocument.Saved=True срабатывал всегда, и выкладывай, если будет продолжать спрашивать
...
Рейтинг: 0 / 0
06.07.2010, 20:08
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726564
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Кстати, он мне сказки рассказывает, что у меня мол диск D не существует
...
Рейтинг: 0 / 0
06.07.2010, 20:18
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726571
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, блин это не кстати, что опять за прикол, я переделал, всё одно спрашивает
...
Рейтинг: 0 / 0
06.07.2010, 20:23
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726586
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрю,

А вот это зачем ты наворотил?
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub AutoOpen()
'AutoOpen работает при открытии существующего, уже созданного ранее документа Ворд

Call AutoNew

End Sub
...
Рейтинг: 0 / 0
06.07.2010, 20:38
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726593
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, чтобы не переписывать 2 раза
...
Рейтинг: 0 / 0
06.07.2010, 20:43
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726599
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro, чтобы не переписывать 2 раза
А ты понимаешь, что это срабатывает два раза: при открытии шаблона и при создании документа. Что там при этом является ActiveDocument в момент этого двойного срабатывания, одному ЦЭ известно. В общем, если это убрать - ничего не спрашивает.
...
Рейтинг: 0 / 0
06.07.2010, 20:49
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726630
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, от горе мне убрал, всё равно спрашивает!!!!!!!
...
Рейтинг: 0 / 0
06.07.2010, 21:08
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726635
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro, от горе мне убрал, всё равно спрашивает!!!!!!!
вот файл
я создаю новый документ на базе этого шаблона
он мне парит мозг, что у меня якобы не существует диск D
нажимаю ОК
закрываю крестиком
закрывается, ничего не спрашивает

ничем помочь не могу
...
Рейтинг: 0 / 0
06.07.2010, 21:11
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726636
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,
а диск то на самом деле есть????7
...
Рейтинг: 0 / 0
06.07.2010, 21:13
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726640
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro,
а диск то на самом деле есть????7
есть.
...
Рейтинг: 0 / 0
06.07.2010, 21:15
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726644
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,
я в шоке в том плане, что он по прежнему спрашивает, но я никогда его не сохранял, тут дай думаю сохраню, сохранил. Открываю, закрываю, ничего не спрашивает. Чудо, ну это уже пол беды, почему так мысли есть??
...
Рейтинг: 0 / 0
06.07.2010, 21:17
| Ответить | Цитировать | Написать  
25 сообщений из 223, страница 6 из 9
  6  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрыть файл програмно
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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