请问在VBA中如何获得数据透视表的目标位置？

light_ing · 发表于 2004-3-22 11:10

创建一个透视表的时候，可以用ActiveSheet.PivotTableWizard TableDestination:="R6C3"，把一个透视表建立在第6行第3列的格子上，但如何通过VBA得知一个已经建好的数据透视表的目标位置（TableDestination）呢？我看了帮助，但在PivotTable的属性里没有看到哪一个属性是给出目标位置的。请问哪一位高手能告诉我？

shuyee · 发表于 2004-3-22 13:24

pivottable有tablerange1和2属性,它们返回的是range,再进一步,应该可以得到.

light_ing · 发表于 2004-3-22 16:05

tablerange1和tablerange2返回的不是range，是一个数组，里面放的是数据透视表每一个格里的值不过还是谢谢你

light_ing · 发表于 2004-3-24 17:50

难道没有人知道吗？

FENGJUN · 发表于 2004-6-24 09:17

upup

FENGJUN · 发表于 2004-6-24 17:46

'sheet5为数据透视表所在表页

Sub ptbsrc()

Dim strg As String Dim i As Integer

strg = Worksheets("Sheet5").UsedRange.PivotTable.SourceData

For i = 1 To Len(strg) 'If Mid(strg, i, 1) = "!" Then 'st = i 'End If If Mid(strg, i, 1) = ":" Then nd = i Exit For End If Next

rng = Left(strg, nd - 1) MsgBox rng End Sub

[此贴子已经被作者于2004-6-24 19:57:59编辑过]

mavin · 发表于 2018-8-22 09:21

顶上去，也想知道这个问题。

mavin · 发表于 2018-8-22 09:43

找到答案了。
debug.print ActiveCell.PivotTable.TableRange1.Address （不含页字段的透视表区域）
debug.print ActiveCell.PivotTable.TableRange1.Address （含页字段的透视表区域）

qq290417289 · 发表于 2022-3-5 00:11

mavin 发表于 2018-8-22 09:43
找到答案了。
debug.print ActiveCell.PivotTable.TableRange1.Address （不含页字段的透视表区域）
deb ...

你这两个不是一模一样的吗？

		自动登录	找回密码
密码			免费注册