ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FileDialog вдруг перестал работать
13 сообщений из 13, страница 1 из 1
FileDialog вдруг перестал работать
    #38340152
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Всем привет. FileDialog вдруг перестал работать!!!
Все работало, файлы выбирались, я могла с ними что-то делать.
И вдруг - ошибка 424, object required.
Диалоговое окно открывается, я выбираю файлы, жму "да", окно закрывается и вылетает ошибка 424.
Что это?!!! Что теперь с этим делать?

Текст программы:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
ChDir "..."
With Application.FileDialog(msoFileDialogFilePicker)
   If .Show = False Then Exit Sub
   For Each iFile In .SelectedItems
   ...
   Next iFile
End With
Set iFile = Nothing


Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
23.07.2013, 11:38
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340208
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
на какой строке?
...
Рейтинг: 0 / 0
23.07.2013, 12:03
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340216
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
На строке.

Код: vbnet
1.
For Each iFile In .SelectedItems



Т.е. в FileDialog я вроде как файлы выбрала, но вернул он в итоге пустоту.
...
Рейтинг: 0 / 0
23.07.2013, 12:05
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340255
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
кто сказал, что пустоту?
1) Что выдает в этот момент .SelectedItems.Count ?
2) Как объявлена переменная iFile ?
...
Рейтинг: 0 / 0
23.07.2013, 12:20
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340331
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Shocker.Proкто сказал, что пустоту?
1) Что выдает в этот момент .SelectedItems.Count ?
2) Как объявлена переменная iFile ?

1) .SelectedItems.Count = кол-во выбранных файлов (!!!)
2)
Код: vbnet
1.
Dim iFile As Object



И кстати ChDir работать тоже перестал... Приходится вручную нужную папку разыскивать.
...
Рейтинг: 0 / 0
23.07.2013, 12:45
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340342
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
Случайная гостья,

В общем, объявите
Код: vbnet
1.
Dim iFile As Variant

и имейте в виду, что
Код: vbnet
1.
.SelectedItems

это список путей выбранных файлов.

И еще, иногда очень полезно почитать, что пишут сами Мелкомягкие в справке...
...
Рейтинг: 0 / 0
23.07.2013, 12:47
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340352
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Случайная гостьяИ кстати ChDir работать тоже перестал...FileDialog.InitialFileName Property
Set or returns a String representing the path or file name that is initially displayed in a file dialog box. Read/write.
...
Рейтинг: 0 / 0
23.07.2013, 12:53
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340613
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Подправила. Ошибки все равно есть. Видимо, истина где-то рядом:)
Ошибки в комментариях.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim LastCol As Long, LastRow As Long, NewFileRow As Long
Dim WbFil As Workbook
Dim iFile As Variant
Dim SourceFolder As Object

With Application.FileDialog(msoFileDialogFilePicker)
      .InitialFileName "C:\" ' invalid use of property
      If .Show = False Then Exit Sub
   
   For Each iFile In .SelectedItems
       Workbooks.Open iFile, local:=True
       Set WbFil = Workbooks(iFile) ' subscript out of range
    
    With WbFil.Sheets(1)
...
    End With
    Next iFile
End With

Set iFile = Nothing
...
Рейтинг: 0 / 0
23.07.2013, 14:47
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340662
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Забыла еще написать, что открываю файл *.csv.
...
Рейтинг: 0 / 0
23.07.2013, 15:10
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340663
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Dim LastCol As Long, LastRow As Long, NewFileRow As Long
Dim WbFil As Workbook
Dim iFile As Variant
Dim SourceFolder As Object

With Application.FileDialog(msoFileDialogFilePicker)
      .InitialFileName = "C:\"
      If .Show = False Then Exit Sub
   
   For Each iFile In .SelectedItems
       Set WbFil = Workbooks.Open(filename:=iFile, local:=True)
    
    With WbFil.Sheets(1)
...
    End With
    Next iFile
End With

Set iFile = Nothing
...
Рейтинг: 0 / 0
23.07.2013, 15:11
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340728
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Shocker.Pro, а как теперь правильно закрыть файл по адресу iFile.
...
Рейтинг: 0 / 0
23.07.2013, 15:34
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340804
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
WbFil.Close
...
Рейтинг: 0 / 0
23.07.2013, 16:03
| Ответить | Цитировать | Написать  
FileDialog вдруг перестал работать
    #38340821
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Shocker.Pro, lbppb спасибо! Так выручили.
...
Рейтинг: 0 / 0
23.07.2013, 16:10
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FileDialog вдруг перестал работать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38340152&tid=2174649]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 347ms
total:  486ms
созд. / загр.: 486ms
x
x
Закрыть


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