Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FileDialog вдруг перестал работать / 13 сообщений из 13, страница 1 из 1
23.07.2013, 11:38
    #38340152
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
Всем привет. 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, 12:03
    #38340208
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
на какой строке?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2013, 12:05
    #38340216
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
На строке.

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



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

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



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

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

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

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

И еще, иногда очень полезно почитать, что пишут сами Мелкомягкие в справке...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2013, 12:53
    #38340352
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
Случайная гостьяИ кстати 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, 14:47
    #38340613
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
Подправила. Ошибки все равно есть. Видимо, истина где-то рядом:)
Ошибки в комментариях.

Код: 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, 15:10
    #38340662
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
Забыла еще написать, что открываю файл *.csv.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2013, 15:11
    #38340663
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
Код: 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:34
    #38340728
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
Shocker.Pro, а как теперь правильно закрыть файл по адресу iFile.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2013, 16:03
    #38340804
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
Код: vbnet
1.
WbFil.Close
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2013, 16:10
    #38340821
Случайная гостья
Случайная гостья
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileDialog вдруг перестал работать
Shocker.Pro, lbppb спасибо! Так выручили.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / FileDialog вдруг перестал работать / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 425ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2174649]:
 0ms
get settings:
 11ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 27ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 314ms
total:  425ms
x
x
Закрыть


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