getpivotdata / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / getpivotdata

15 сообщений из 15, страница 1 из 1

getpivotdata

#34848968

Nullifidus

Гость

Задача в следующем в следующем файле есть строка ячеек в каждой из которых приведена фуекция "getpivotdata". Необходимо, чтобы будующий макрос, удалял часть функции, а именно путь к файлу со сводной таблицы, т.о. преобразовывал функцию, меняя ссылку на файл со сводной таблицой. Возможно есть и другой способ обновить связь с файлом со сводной таблицей но мне это не удается сделать. Прикладываю файл с макросом, записанный макрорекордером. Буду признателен за помощь

...

Рейтинг:

0 / 0

05.10.2007, 11:22:47

| Ответить | Цитировать | Написать

getpivotdata

#34849028

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

Ты же макрос в Персонал заисал

Вообще поменять текст в Рэндже так

Код: plaintext

Range("A2:E2").Replace "C:\temp\", "C:\test\"

...

Рейтинг:

0 / 0

05.10.2007, 11:35:57

| Ответить | Цитировать | Написать

getpivotdata

#34849204

Nullifidus

Гость

вот теперь макрос прикреплен как следует. Если не затруднит напишите исходя из моего конретного примера.

...

Рейтинг:

0 / 0

05.10.2007, 12:13:24

| Ответить | Цитировать | Написать

getpivotdata

#34849316

Nitrolis

Гость

Nullifidusвот теперь макрос прикреплен как следует. Если не затруднит напишите исходя из моего конретного примера.

так подойдет?

...

Рейтинг:

0 / 0

05.10.2007, 12:30:59

| Ответить | Цитировать | Написать

getpivotdata

#34849386

Nullifidus

Гость

Не.мне придется вводить адрес файла, при том каждой ячейке в отдельности. Возможно я не достаточно ясно объяснил. Задача то проста. Удалить часть функции, в ячейках из указанного диапазона; ссылка будет изменена и значение поменяется на число из сводной таблицы открытого в настоящий момент файла. макрорекордовский макрос это делает, но макрос получается огромным.

...

Рейтинг:

0 / 0

05.10.2007, 12:40:52

| Ответить | Цитировать | Написать

getpivotdata

#34849574

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

DeggasadТы же макрос в Персонал заисал

Вообще поменять текст в Рэндже так

Код: plaintext

Range("A2:E2").Replace "C:\temp\", "C:\test\"

А мой приер чем не устраивает, чтобы убрать путь совсем нужно оставить второй аргумент пустым.

Код: plaintext

Range("A2:E2").Replace "C:\temp\", ""

...

Рейтинг:

0 / 0

05.10.2007, 13:09:04

| Ответить | Цитировать | Написать

getpivotdata

#34849629

Nitrolis

Гость

В примере ссылка идет только на один файл сводной таблицы и данные формул обновятся для всех ячеек, записанных в макросе...

Вот еще вариант! С обновлением всех ссылок активной книги...

...

Рейтинг:

0 / 0

05.10.2007, 13:19:12

| Ответить | Цитировать | Написать

getpivotdata

#34849675

Nullifidus

Гость

Sub Макрос1()
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Sales"",'[STOCK_Report.xls]trands by total, by products'!R8C1,""WEEK"",""2007_01"")*2.5"
Range("A2:E2").Replace "C:\temp\", ""
End Sub

ты предлогаешь сделать приблизительно так? но даже если записать макрос корректно, он не будет учитывать то что в каждой следующей ячейки изменяется дата?

...

Рейтинг:

0 / 0

05.10.2007, 13:24:48

| Ответить | Цитировать | Написать

getpivotdata

#34849853

Nullifidus

Гость

Nitrolis спасибо за помощь, но включения твоего макроса значение в ячейки меняется на #ссылка.я приложил файл со сводной таблицой. Вот два вида записи функиии:

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("Sales";'C:\DOCUME~1\\LOCALS~1\Temp\Rar$DI00.531\[STOCK_Report.xls]trands by total, by products'!$A$8;"WEEK";"2007_01")*2,5*3/7

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("Sales";'[STOCK_Report.xls]trands by total, by products'!$A$8;"WEEK";"2007_01")*2,5*3/7
При подобном изменении значение меняется как положено.

При этом файл с сводной таблице я сохранять не собираюсь, поэтому и избрал такой путь.

Черт, в моем сообщение понять что либо очень сложно, я прекрасно понимаю. но все же ребята очень прошу

...

Рейтинг:

0 / 0

05.10.2007, 13:56:33

| Ответить | Цитировать | Написать

getpivotdata

#34850122

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

NullifidusSub Макрос1()
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Sales"",'[STOCK_Report.xls]trands by total, by products'!R8C1,""WEEK"",""2007_01"")*2.5"
Range("A2:E2").Replace "C:\temp\", ""
End Sub

ты предлогаешь сделать приблизительно так? но даже если записать макрос корректно, он не будет учитывать то что в каждой следующей ячейки изменяется дата?

Я предлагаю пересмотреть задачу впринципе, если вам интересно

А из сложившейся ситуации можете попробовать выйти следующим образом.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

Sub UpdLink()
Dim aLinks, i As Long, fname As String
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
    For i =  1  To UBound(aLinks)
     fname = Split(aLinks(i), "\")(UBound(Split(aLinks(i), "\")))
     If fname = ActiveWorkbook.Name Then ActiveWorkbook.ChangeLink aLinks(i), fname, xlExcelLinks
    Next i
End If
End Sub

Если не будет получаться попробуйте предварительно сохранить книгу.

При этом формулу лучше сразу записывать как

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("Sales";'trands by total, by products'!$A$8;"WEEK";A1)*2,5 ,
вместо "2007_01", ссылку на ячейку в которой записана строка

...

Рейтинг:

0 / 0

05.10.2007, 14:52:41

| Ответить | Цитировать | Написать

getpivotdata

#34850151

Nitrolis

Гость

NullifidusNitrolis спасибо за помощь, но включения твоего макроса значение в ячейки меняется на #ссылка.я приложил файл со сводной таблицой. Вот два вида записи функиии:

Странно! хочет чтобы файл-источник при обновлении ссылок был открыт(((
чуть подправил...

...

Рейтинг:

0 / 0

05.10.2007, 14:58:41

| Ответить | Цитировать | Написать

getpivotdata

#34850433

Nullifidus

Гость

Почти получается. проблема теперь в следующем: по порядку: открываю книгу со сводной таблицей выбираю объект в раскрывающемся списке, в таблице появляются значения; открываю книгу с макросом, нажимаю на кнопку, прописываю адрес книги с таблицей находящейся в папке temp, и вот здесь намечается загвоздка: excel не может открыть указанную папку потому что она уже открыта. но если я просто открою файл и нажму кнопку я не смогу выбрать нужный мне объект в сводной таблице.

Deggasad спасибо, но что то не выходит ваш вариант, даже при условии что я предварительно сохраняю книгу

...

Рейтинг:

0 / 0

05.10.2007, 16:03:43

| Ответить | Цитировать | Написать

getpivotdata

#34850783

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

Предыдущий мой код обновлял ссылки которые имеют тоже имя что и текущая книга, просто неправильно понял вас.
Текущий код обновляет все ссылки если их имена совпадают с открытыми файлами.
А для ваших функций всё равно обязательно иметь открытый файл.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Sub UpdLink2()
Dim aLinks, i As Long, fname As String, proverka
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
    For i =  1  To UBound(aLinks)
     fname = Split(aLinks(i), "\")(UBound(Split(aLinks(i), "\")))
      
    On Error Resume Next
      proverka = Workbooks(fname).Creator
    On Error GoTo  0 
    
    If proverka = &H5843454C Then ActiveWorkbook.ChangeLink aLinks(i), fname, xlExcelLinks
    Next i
End If
End Sub

...

Рейтинг:

0 / 0

05.10.2007, 17:11:46

| Ответить | Цитировать | Написать

getpivotdata

#34850830

Nullifidus

Гость

Deggasad брависсимо, прочитав уокенбаха надеюсь также мастерски научусь писать макросы. Nitrolis благодарю

...

Рейтинг:

0 / 0

05.10.2007, 17:22:33

| Ответить | Цитировать | Написать

getpivotdata

#34850844

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

NullifidusDeggasad брависсимо, прочитав уокенбаха надеюсь также мастерски научусь писать макросы. Nitrolis благодарю

Сам его читаю сейчас. "Профессиональное программирование на VBA в Excel 2002" - страниц 150 одолел.

...

Рейтинг:

0 / 0

05.10.2007, 17:26:46

| Ответить | Цитировать | Написать

15 сообщений из 15, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / getpivotdata

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=34850830&tid=2182147]:	0ms
get settings:	7ms
get forum list:	12ms
check forum access:	2ms
check topic access:	2ms
track hit:	27ms
get topic data:	6ms
get forum data:	1ms
get page messages:	27ms
get tp. blocked users:	1ms
others:	187ms

total:	272ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы