Вопрос : Отрегулируйте документ Эксел к где он подытоживает колонку using доступ VBA Майкрософт?

Пожалуйста заметьте следующий Кодего где я даю курс документа и ехпортирую вопрос к ему.  В колонке AE Эксел, я хочу подытожить результаты колонки и установить его не на следующем рядке но довольно прыгнуть рядок и одеть в итоги следующая линия деталь.  Проблема для меня обусловливает где тот ехпортированный вопрос первенствовать закончится потому что на различных временах последний рядок с своим вполне номером сожмет или grow.

So пожалуйста дают мне кодирвоание VBA для того чтобы препятствовать мне сделать действительными итогами рядка колонки одного после его ends.

Thank вы заранее! class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
class= " notpretty " >Public Sub Excel_This id= " codeSnippet953245 "
class=

Ответ : Отрегулируйте документ Эксел к где он подытоживает колонку using доступ VBA Майкрософт?

Оно основаны на том результате, должно быть что-то в AE65535, возможно рассеянном космосе.

Попытайтесь это:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Общественное Sub Excel_This (sQuery как шнур, sExcelFileName как шнур)
На ошибке переход Err_This

'  Тусклое xlapp как первенствуйте. Применение
'  Тусклый wb как excel.workbook
'  Тусклый ws как excel.worksheet

  Тусклое xlapp как предмет
  Тусклое xlBook как предмет
  Тусклое xlSheet как предмет
  Тусклые rs как DAO.Recordset
  Тусклое LastR как длиной
  
  Установите xlapp = CreateObject («Excel.Application»)
  Установите xlBook = xlapp. Workbooks.Open (sExcelFileName)
  Установите xlSheet = xlBook.Worksheets (1)

  Установите rs = CurrentDb.OpenRecordset (sQuery)
  С xlSheet
    . Ряд («2: » &. Rows.Count). Delete
    . Rs ряда («A2») .copyfromrecordset
    LastR =. Клетки (. Rows.Count, «ae»). Конец (- 4162). xlUp  рядка '= -4162
    . Ряд («ae» & LastR + 2) = «=SUM (AE2: AE» & LastR & ") «
  Конец с
  
  xlapp. Видимо = True
  
'
'  Установите xlSheet = ничего
'  Установите xlBook = ничего
'  Установите xlapp = ничего
  
Exit_This:
  Выходите подводная лодка
  
Err_This:
  Звонок Error_Action (заблуждаются, Err.description, «modECdatabases @ Excel_This», Erl ())
  Заблуждается = 0
  Резюме Exit_This

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us