Поиск в excel

[leroi]

Доброго времени суток! Очень нужна помощь, в таком вопросе
Структура данных в excel представлена в приложении.

Вопрос:
как получить все даты следующие за полем "начало аварии"???

начало аварии:

30.01.2012 8:57
30.01.2012 9:02
30.01.2012 9:10
30.01.2012 9:17
30.01.2012 9:25

не могу догнать. просьба не смеяться, для меня это действительно трудно

[leroi]

Люди! Что совсем никаких идей?

[Valio]

Дык если известен номер ячейки начала, то в чём проблема? Открываешь эксель и в цикле считываешь столбец.

[astecenko]

Что Вы подразумеваете под "получить даты"? Их куда-то сохранить, скопировать, вывести?
Существует ли какой-то признак конца строк с датами (пустая ячейка, какае-то строка и т.п.)?

[doober]

Не люблю работать с фотошопом.
Нет файла.подганяйте под себя

Public Function ADO_R_Dmitry(ByVal strSql$, ByVal FilePath$, ByVal OutputRange, _
 ByVal FieldsName As Boolean, ByVal OutputFieldsName As Boolean)
'==============================================================================
'*Описание функции : Возвращает набор записей Recordset с первой ячейки адреса,
'* указанного диапазона.
'*strSql - Конструкция SQL  запроса.
'* FilePath - Полный путь к файлу включая имя и расширение.
'* OutputRange - адрес ячеки с которой начинается вывод данных.
'* FieldsName - используются или нет заголовки столбцов (True - False)
'* OutputFieldsName - вывод данных с заголовками или без (True - False), _
'* если FieldsName=False, заголовки не выводятся.
'==============================================================================
'* Автор R Dmitry (Дмитрий Русак dg_rusak@mail.ru skype: RDG_Dmitry)          |
'* WM:_R269866874234 U144446690328                                            |
'==============================================================================
Dim sCon As String, FieldName As String
Dim rs As Object, cn  As Object
Set rs = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")
If FieldsName Then FieldName = "Yes" Else FieldName = "No"
Select Case CLng(Split(Application.Version, ".")(0))
    Case Is < 12
        sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath _
          & ";Extended Properties=""Excel 8.0;HDR=" & FieldName & ";IMEX=1"";"
    Case Is >= 12
        sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
        & ";Extended Properties=""Excel 12.0;HDR=" & FieldName & ";IMEX=1"";"
End Select

cn.Open sCon
If Not cn.State = 1 Then Exit Function
Set rs = cn.Execute(strSql)
If Not FieldsName Then OutputFieldsName = False
 If OutputFieldsName Then
    For i = 0 To rs.Fields.Count - 1
    OutputRange.Offset(0, i) = rs.Fields(i).Name
    Next
    Set OutputRange = OutputRange.Offset(1, 0)
 End If
OutputRange.CopyFromRecordset rs
rs.Close:  cn.Close
Set cn = Nothing: Set rs = Nothing
End Function



Sub Go_Дата()
 M_name$ = "Лист1$F1:F10000"

 Sql_S = "SELECT F1 FROM [" & M_name$ & "]  WHERE IsDate(F1)=True "

ADO_R_Dmitry Sql_S, "C:\XXXXXXX.xlsx", Лист1.Cells(1, 1), False, False

End Sub

[leroi]

to Valio, astecenko: Весь файл excel содержит несколько вот таких блоков подряд(как в приложении), и нужно для каждого номера аварии(в файле выделен красным) получить список дат начала аварии и занести в БД Access.
Проблема состоит в том как организовать цикл? У меня уже есть один цикл, где я ищу поле "Начало аварии:". Как поступить дальше? Организовать второй цикл для выведения дат внутри первого или как?

for i:=1 to XL.Sheets[1].UsedRange.Rows.Count-1 do
begin
if XL.Range['AK' + inttostr(i)].Value= Начало аварии:' then
begin
.......................
end;

[leroi]

to doober: Спасибо! Покумекаю как подогнать под себя

[doober]

и занести в БД Access

Пишите процедуры в Access и запросом получайте отфильтрованные данные и сразу заполняйте таблицу