Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.10.2014, 13:35   #1
sernik
Пользователь
 
Регистрация: 09.04.2014
Сообщений: 11
Вопрос Загрузка данных в Сводную таблицу

Добрый день, Уважаемые форумчане!
Загружаю данные из Access файда в Excel
Далее на основании данных, хочу загружать данные в готовую сводную таблицу, через диспетчер имен.
Автозаписью макроса получил ниже кусок, где дополнив перебираю последнюю строку и изменяю диапазон. Можно без формата R1C1 , а стандартном формате Range("A1:K100") задать диапазон?
Код:
Sub SvodTabl()
i = 1
Do While Sheets(1).Cells(i, 1) <> ""
    i = i + 1
Loop
    With ActiveWorkbook.Names("Data")
        .Name = "Data"
        .RefersToR1C1 = "=Данные!R1C1:R" & i - 1 & "C10"
        .Comment = ""
    End With
    ActiveWorkbook.RefreshAll
End Sub
Спасибо!
Вложения
Тип файла: rar vb2.rar (160.2 Кб, 10 просмотров)
sernik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Форматировать сводную таблицу Вадичок Microsoft Office Excel 0 03.10.2012 00:25
Динамический перенос данных в сводную таблицу ev8383 Microsoft Office Excel 3 12.06.2012 12:21
Создать сводную таблицу Пашка_1977 Microsoft Office Excel 3 09.12.2011 11:13
создать сводную таблицу в Excel !!! Daria2788 Microsoft Office Excel 4 04.08.2011 19:58
обновить сводную таблицу? Bezdar Microsoft Office Excel 1 10.04.2009 15:45