Старый 04.09.2002, 18:36   #1   
Гость
 
Сообщений: n/a

Post знатоки!!! проверьте, плз, код на массив.

Sub Макрос1()

Dim Worksheet As Worksheet
Dim textRng As String
Dim ArrForTab() As Variant ' пробовал String , Range

n = 0

For Each Worksheet In ThisWorkbook.Worksheets
If Worksheet.Name <> "сводная" Then
textRng = "'" & Worksheet.Name & "'!" &
Worksheet.Range("a1:b5").Address(ReferenceStyle:=x lR)

n = n + 1
ReDim ArrForTab(n)
ArrForTab(n) = textRng
End If
Next Worksheet


ThisWorkbook.Worksheets("сводная").Cells.Select
Selection.Delete Shift:=xlUp

ThisWorkbook.PivotCaches.Add(SourceType:=xlConsoli dation, SourceData:=
Array(ArrForTab)).CreatePivotTable
TableDestination:="[Книга1.xls]сводная!R3C1", TableName:="свод"

'ThisWorkbook.Worksheets("сводная").PivotTableWiza rd
'SourceType:=xlConsolidation, SourceData:=Array(ArrForTab),
'RowGrand:=True, ColumnGrand:=False

'почему-то не работает ссылка на массив ArrForTab. Хотя, если записать все
полученные результаты «ручками»:

' ThisWorkbook.PivotCaches.Add(SourceType:=xlConsoli dation, SourceData:=
' Array("Лист1!R1C1:R5C2", "Лист2!R1C1:R5C2",
"Лист3!R1C1:R5C2")).CreatePivotTable
TableDestination:="[Книга1.xls]сводная!R3C1", TableName:="свод"

'то все получается.

End Sub
<img src="graemlins/crazy.gif" border="0" alt="[crazy]" /> :confused: <img src="graemlins/clerk.gif" border="0" alt="[clerk]" />
  Ответить с цитированием
Старый 17.09.2002, 17:43   #2   
gL2.U-_-)
 
Аватар для OveRMinD
 
Сообщений: 157
Регистрация: 18.04.2002

OveRMinD вне форума Не в сети
Post

да ты гений......ваще енто все круто
  Ответить с цитированием
Старый 18.09.2002, 09:45   #3   
Форумец
 
Сообщений: 23
Регистрация: 16.09.2002

Xtreme вне форума Не в сети
Post

Ёкарный бабай! А чё это сопсно такое?
Прямо Zerocool какой-то.
  Ответить с цитированием
Поиск в теме: 


Опции темы

Быстрый переход:

  Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Support by DrIQ & Netwind