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

ник: snipe
по поводу макроса в екселе

вы чего творите?

уж как то так
for i=2 to 100
for j=1 to 65535-i
if cells(i,2)=cells(i+j,2) then
else
if j>1 Then
range(cells(i,2),cells(i+j-1,2).select
Application.DisplayAlerts = False
selection.merge
i=i+j
exit for
else
exit for
end if
end if
next j
next i


по поводу вывода формата файла ексель вот эта надпись определяет версию вывода формата файла "MicrosoftExcelBiff5(*.xls)" - (95) "MicrosoftExcelBiff8(*.xls)" - (97-2003)

динамически изменять запрос
CurrentDb.QueryDefs("Запрос1").SQL = "SELECT Таблица1.Материал, Таблица1.Счетчик, Таблица1.Дата FROM Таблица1 ORDER BY Таблица1.Дата;"

как видите это всего лишь текстовая строка которую можно переписать (тут кстати грабли есть - при закрытии базы запрос сохранится в этом виде)

посчитать количество записей в запросе
nz(dcount("[Счетчик]","[Запрос1]",0) - это напримере вышеописанного запроса

а еще лучше - разберитесь с recordset