Всем здрасите =)

Вобщем проблема заключается в следующем.
Произвожу экспор файла в эксель, редактирую, сохраняю... все тут хорошо вроде, но есть одно но, у меня при редактировании объединяются ячейки, после эксорта отображаются нормально, но стоит закрыть, а потом сново открыть новоиспеченный файл, как объединение исчезает... хотя все остальное редактирование остается.

сейчас воссоздам на новой бд ситуацию и прикреплю...

Причем если перед закрытием эксель нажать кнопку сохранить то все ок

интересная ситуация

- во-первых --формат екселя

xlapp.Visible = True xlbook.SaveAs export, FileFormat:=xlExcel8, Password:="", _ WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

во вторых ---корректура
в третьих

если сначала сохраните изменения, а затем выйдите из екселя ---------ок
иначе последние изменения ---не сохраняются
------------------------------------------------------------------------------------------
------------------------------увы--увы--увы------------------------------------------
------------------------------------------------------------------------------------------

да и действия там однотипные цикл можно применить

у меня и применен сложный цикл, я просто для примера выдрал из кода... проблема то не в этом... хотя при большом объеме (7000) вы полняется около 2 минут... =(

можно вот так

.Range(.Cells(2, 1), .Cells(12,1)).Select
.Application.DisplayAlerts = False
.Application.Selection.Merge
.Range(.Cells(13,1), .Cells(17,1)).Select
.Application.DisplayAlerts = False
.Application.Selection.Merge

.Range(.Cells(2, 1), .Cells(17,1)).Copy
.Range(.Cells(2, 2), .Cells(17,3)).Select
.Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
. Application.CutCopyMode = False

во первых

FileFormat:=xlExcel8

я не нашел, применил

FileFormat:=xlExcel9795

и все получилось =)

во вторых

что исправить? ну кроме того что исправил

в третьих

я вроде сначала сохраняю, потом закрываю (сохраняю через VBA), закрываю "мышкой на крестик" =))))))

я имел ввиду что если ручками сохранять то все ок, ну типа файл --> сохранить

ну и в четвертых

Спасибо =)

Можно редактировать данные в массиве (или рекордсете), затем выплевывать в Excel.
Форматы лучше изменять сразу скопом, чем поштучно. Копировать отформатированные диапазоны.
Будет быстрее.

вот тут
http://hiprog.com/forum/read.php?id_forum=1&id_theme=6973&page=1
я вам делал пример который объединял ячейки
по принципу ищем диапазон объединения потом объединяем
а у вас опять по старому ячейка плюс ячейка

Sub macro1() f = 2 ' объявляем начальные значение переменной s = 1 ' объявляем начальные значение переменной For a = 2 To 60000 'начало цикла по первому столбцу     If Cells(a, s) = Cells(a + 1, s) Then 'проверка равенства текущей ячейки с следующей     Else '     Range(Cells(f, s), Cells(a, s)).Select 'объединение выявленого диапазона ячеек     Application.DisplayAlerts = False     Selection.Merge         h = f '         For d = f To 60000 '         g = s + 1 '             If Cells(d, g) = Cells(d + 1, g) Then '                 If d = a Then '                 Range(Cells(h, g), Cells(d, g)).Select '                 Application.DisplayAlerts = False                 Selection.Merge                 Exit For '                 Else: End If '             Else '             Range(Cells(h, g), Cells(d, g)).Select '             Application.DisplayAlerts = False             Selection.Merge                 k = h '                 For l = h To 60000 '                 n = g + 1 '                     If Cells(l, n) = Cells(l + 1, n) Then '                         If l = d Then '                         Range(Cells(k, n), Cells(l, n)).Select '                         Application.DisplayAlerts = False                         Selection.Merge                         Exit For '                         Else: End If '                     Else '                     Range(Cells(k, n), Cells(l, n)).Select '                     Application.DisplayAlerts = False                     Selection.Merge                         c = k '                         For v = k To 60000 '                         b = n + 1 '                             If Cells(v, b) = Cells(v + 1, b) Then '                                 If v = l Then '                                 Range(Cells(c, b), Cells(v, b)).Select '                                 Application.DisplayAlerts = False                                 Selection.Merge                                 Exit For '                                 Else: End If '                             Else '                             Range(Cells(c, b), Cells(v, b)).Select '                             Application.DisplayAlerts = False                             Selection.Merge                                 j = c '                                 For q = c To 60000 '                                 w = b + 1 '                                 If Cells(q, w) = Cells(q + 1, w) Then '                                 If q = v Then '                                 Range(Cells(j, w), Cells(q, w)).Select '                                 Application.DisplayAlerts = False                                 Selection.Merge                                 Exit For '                                 Else: End If '                                 Else '                                 Range(Cells(j, w), Cells(q, w)).Select '                                 Application.DisplayAlerts = False                                 Selection.Merge                                 j = q + 1 '                                 If v + 1 = j Then Exit For '                                 End If '                                 Next q '                             c = v + 1 '                             If l + 1 = c Then Exit For '                             End If '                         Next v '                     k = l + 1 '                     If d + 1 = k Then Exit For '                     End If '                 Next l '             h = d + 1 '             If a + 1 = h Then Exit For '             End If '         Next d '     f = a + 1 '     If Cells(f, s) = 0 Then Exit For '     End If ' Next a ' End Sub '

но на 7 тысяч записей выполняется около двух - трех минут на буке, на ПК (а они не ахти) еще дольше...

Что за сравнение Access и рекордсет?
Access это БД со всеми таблицами, запросами и рекордсетами.
Так, как используется технология доступа к данным DAO или ADO в данном контексте неважно.
Excel'ным движком это долго будет конечно все обрабатываться.
Лучше из рекордсета залить готовую информацию в Excel и отформатировать в Excel, но максимально подготовить массив для этого.
Правда не совсем понял условия задачи, но точно понял что большой объем.)
Также можно использовать временные таблицы создаваемые на лету, опять же все зависит от задачи. Можешь привести конкретный пример, если нетрудно.
Необходимо объединять данные из разных полей в одно поле, по условию?

Извини конечно, но пример у меня как то криво работает, вообще непонятно куда все пропадает и что он там объединил.
если я правильно понял твою логику из примера на объединение, то все делается элементарно просто запросом.
Пример: в таблице есть поле Х и в этом поле например у нас следующие значения:
Х
1
2
3
3
4
5
6
6
после выполнения запроса мы получим количество строк соответсвующее разному кол-ву значений, все одинаковые значения повторяться не будут.
Сам запрос: select distinct X from tblX
тип данных может быть числовой, так и текстовый.
если есть необходимость знать сколько одинаковых значений, можно добавить вычисляемое поле Count(X)
Опять же привел пример решения, но неуверен, что правильно понял задачу.

Повторяю свой же пример еще раз.
SELECT DISTINCT tbl_x.x, tbl_x.y, tbl_x.z, tbl_x.g FROM tbl_x
Прикрепил БД с запросом, все делается проще-простого.)
Удачи!

одинаковые данные необходимо объединить сохранив изначальное количество строк?
Чего-то я не понимаю наверное, мой запрос и возвращает нужный вам результат, ну и выплевывайте его в Excel. Или принципиально именно в excel все это форматировать? Если именно форматировать в Excel, а не группировать в запросе, то собственно у вас решение уже есть. Лучше наверное не сделать. Если я правильно понял вашу цель, то могу всего лишь посоветовать вставить перед циклом и после соответсвующие строки, это сократит время выполнения цикла, так как не будут тратится ресурсы на обновление экрана. Время сократится заметно.
Application.ScreenUpdating = False
ЦИКЛ
Application.ScreenUpdating = True