Форумы HiProg.com - MS ACCESS, VBA, VB

ник: АлаяЗаря

Сортируйте изначальный запрос (перед выгрузкой)

а это идея -) только как программно енто сделать?

С сортировкой более менее разобрался, ошибка была тут

Key1:=Range("B1") он понимает Key1:= .Range("B1") - точку поставить нужно и грузит молодец =)

Спасибо snipe - твои советы навели меня на правельные мысли =)

Еще вопросик по теме...

В выгруженном уже файле Excel нужно произвести объединение... в конкретном столбце.

Я написал так (это предварительный макрос еще в Excel):

Sub объединение() For i = 2 To 100 If Range(Cells(2, 2), Cells(2, 2)) = Range(Cells(i + 1, 2), Cells(i + 1, 2)) Then Range(Cells(i, 2), Cells(i + 1, 2)).Select Application.DisplayAlerts = False Selection.Merge Else     b = i + 1     For c = i + 1 To 100     If Range(Cells(b, 2), Cells(b, 2)) = Range(Cells(c + 1, 2), Cells(c + 1, 2)) Then     Range(Cells(b, 2), Cells(c + 1, 2)).Select     Application.DisplayAlerts = False     Selection.Merge     Else              d = c + 1         For f = c + 1 To 100         If Range(Cells(d, 2), Cells(d, 2)) = Range(Cells(f + 1, 2), Cells(f + 1, 2)) Then         Range(Cells(d, 2), Cells(f + 1, 2)).Select         Application.DisplayAlerts = False         Selection.Merge         Else         Exit For         End If         Next f          Exit For     End If     Next c Exit For End If Next i End Sub

По русски:

Усли ячейка А равна ячейке Б то мы их объединяем, цикл, если ячейка А равна ячейки В то мы их объединяем, ну и так далее... Если не равна (то есть все одинаковые значения объеденены), то переходим к следующей ячейки и выполняем подобный цикл только с другими значениями.... и так 7 раз....


Блин, это у меня в столбце могут быть только 7 различных значений... А если 107? я же хзамучаюсь писать =) может у кого дельный совет найдется?