ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обновление сводной таблицы
10 сообщений из 10, страница 1 из 1
Обновление сводной таблицы
    #33691067
dimasus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimasus
Гость
Всем привет!

Я не волшебник, а токо учусь! Есть несколько файлов Excel со сводными таблицами ,которая заполняется( обновляется) данными из sql.Я хочу написать макрос,который будет открывать все эти файлы и обновлять данные.Написал:
Sub обновление()
Workbooks.Open "остатки.xls"
End sub

Но сводная таблица не обновляется.Помогите пожайлуста
...
Рейтинг: 0 / 0
26.04.2006, 11:46:54
| Ответить | Цитировать | Написать  
Обновление сводной таблицы
    #33691138
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
Sheets("ИмяЛиста").PivotTables("ИмяТаблицы").RefreshTable
...
Рейтинг: 0 / 0
26.04.2006, 12:03:38
| Ответить | Цитировать | Написать  
Обновление сводной таблицы
    #33691226
dimasus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimasus
Гость
А "имя таблицы" это имя файла или таблицы в sql?
...
Рейтинг: 0 / 0
26.04.2006, 12:19:35
| Ответить | Цитировать | Написать  
Обновление сводной таблицы
    #33691252
dimasus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimasus
Гость
т.е. макрос будет такой:
Sub обновление()

Workbooks.Open "остатки.xls"
Sheets ("март").PivotTables ("OST").RefreshTable

End Sub
...
Рейтинг: 0 / 0
26.04.2006, 12:26:26
| Ответить | Цитировать | Написать  
Обновление сводной таблицы
    #33691350
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
dimasusА "имя таблицы" это имя файла или таблицы в sql?
Это название сводной таблицы.
...
Рейтинг: 0 / 0
26.04.2006, 12:47:29
| Ответить | Цитировать | Написать  
Обновление сводной таблицы
    #33691382
dimasus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimasus
Гость
Ashton dimasusА "имя таблицы" это имя файла или таблицы в sql?
Это название сводной таблицы.

А макрос я правильный написал?
...
Рейтинг: 0 / 0
26.04.2006, 12:52:51
| Ответить | Цитировать | Написать  
Обновление сводной таблицы
    #33691516
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
А может проще поставить в параметрах сводной таблицы "обновить при открытии".
...
Рейтинг: 0 / 0
26.04.2006, 13:20:05
| Ответить | Цитировать | Написать  
Обновление сводной таблицы
    #33691551
dimasus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimasus
Гость
пробовал.Не обновляет
...
Рейтинг: 0 / 0
26.04.2006, 13:25:45
| Ответить | Цитировать | Написать  
Обновление сводной таблицы
    #33691691
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
dimasusт.е. макрос будет такой:
Sub обновление()

Workbooks.Open "остатки.xls"
Sheets ("март").PivotTables ("OST").RefreshTable

End Sub
попробуй так
Код: plaintext
1.
2.
3.
Sub обновление()
     Workbooks.Open "остатки.xls"
     Workbooks("остатки.xls").Sheets ("март").PivotTables ("OST").RefreshTable
End Sub
или так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub обновление()
    Dim xlAp As New Excel.Application
    Dim xlWb As Excel.Workbook
    
    Fil = "путь к файлу" & "остатки.xls"
    Set xlWb = xlAp.Workbooks.Open(Fil)
    xlWb.Sheets("март").PivotTables("OST").RefreshTable
    
    xlWb.Close False
    xlAp.Quit
    
    Set xlWb = Nothing
    Set xlAp = Nothing
End Sub
OST - это название таблицы в "остатки.xls"
по умолчанию они обычно называются "СводнаяТаблица1","СводнаяТаблица2"...
...
Рейтинг: 0 / 0
26.04.2006, 13:56:18
| Ответить | Цитировать | Написать  
Обновление сводной таблицы
    #33691703
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
пардон
Код: plaintext
xlWb.Close False
д.б.
Код: plaintext
xlWb.Close True
...
Рейтинг: 0 / 0
26.04.2006, 13:58:32
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обновление сводной таблицы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=332&tid=2184939]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 59ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 252ms
total:  416ms
созд. / загр.: 416ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]