Добрый день знатоки


Private Sub cb_Update_Click()
'Searc_FileName = "46Эishf_0_ХХХХХ_012007" + ".xls"
'Searc_FileName = "*" + "_1_ХХХХХ_012007" + ".xls"
'MsgBox (Searc_FileName)
Set fs = Application.FileSearch
With fs
.LookIn = "G:\...\...\"
.NewSearch
.SearchSubFolders = True
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Worksheets("лист1").Range("B5").Cells(i, 1) = .FoundFiles(i).Name
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub

Подскажите пожалуйста как правильно получить имена файлов , не могу понять как обратится к названию найденного файла/файлов. при переборе их в цикле ., Excel ругается Object required

Заранее спасибо.., прошу не пинать сильно.., за ламерские вопросы, я начинаю только

vbapro в чем смысл пути "G:\...\...\"?
да это я просто каталоги убрал.. ну чтоб не моячили ..,

По третьему
vbapro3 .FoundFiles(i) не имеет свойства Name
а как же тогда .., получить имена файлов.. мне видится один путь .., но я незнаю, за какое свойство объекта цепляться ...,
Что то типо , но по русски

Else .FileSearc=True Then
.FileSearc.Name
End If

и Есть ли вообще в результате выполнения этой функции имена файлов.., из helpа видно что она возвращает количество найденных файлов , удовлетворяющих условию


по Второму
vbapro2 NewSearch должен быть первым выполнен, т.к. все настройки отменяет
Непонятно..., какие настройки ., настройки поиска.

Deggasad
ups, и точно написал .., сори за невнимательнось..., Спасибо..

Private Sub UserForm_Activate()
For i = 1 To Worksheets("Структура").Range("Формы").Rows.Count
Load_Read_Form.ComboBox1.AddItem Range("Формы").Cells(i, 1)
Next
End Sub

Вот этот код заполняет комбобокс значениями из именованного даипазона.., "формы"
в Диапазоне 8 ячеек , взял с запасом.,, из них заполненно всего 2.., как зделать так чтобы пустые значениея из диапазона не поподали в ComboBox.
и после заполнения комбобокса, установить курсор на первое знаачени в списке ComboBox

Спасибо.., пишу в эту тему чтоб не засорять форум

Private Sub UserForm_Activate()
For i = 1 To Worksheets("Структура").Range("Формы").Rows.Count
If Worksheets("Структура").Range("Формы").Cells(i) <> "" Then
Load_Read_Form.ComboBox1.AddItem Range("Формы").Cells(i)
End If
Next
End Sub
Вот так вот получается без пустых ячеек , остается вопрос как установить курсор ??? на первый в списке

Еще Вопрос. если не трудно:

ВОт так пробую не получается ::
Worksheets("Структура").Range("yugf").Select
For Each Load_Read_Form.Frame2.Controls(i).Name In Worksheets("Структура").Range("yugf")
Load_Read_Form.Frame2.Controls(i).Enabled = False
Next i

и вот так пробуу тоже не получается::


' For i = 0 To Load_Read_Form.Frame2.Controls.Count - 1
' For y = 1 To Worksheets("Структура").Range("yugf").Cells.Count
' If Worksheets("Структура").Range("yugf").Cells(y) = Right(Load_Read_Form.Frame2.Controls(i).Name, 5) Then
' Else
' Load_Read_Form.Frame2.Controls(i).Value = False
' End If
' Next
' Next



На Листе "структура" есть Структура, так же есть Пользовательская форма с чекбоксами .,
как отключить чекбокчы которых нет в структуре..
весь вопрос сводится к тому .., как провести поиск имен Контролов в диапазоне ячеек на странице Структура.. ,

Нужно ли переберать диапазон с первой ичейки до последней и паралельно перебирать имена Контролов. и сравнивать их..,

кому не сложно направьте на путь правельный., дальше разберусь.. Спасибо

Вот так немного корректней :-)

ВОт так пробую не получается ::

и вот так пробуу тоже не получается::