[已解决]怎么读取另一个表的数据透视表数据内容

透明世界1987

如图数据透视表在另外一个表格，（数据透视表不能做任何改动，因为每天每一次数据都是不同的）
怎么将数据透视表的内容通过按钮读取到本表

怎么读取另一个表的数据透视表数据.zip (822.18 KB, 下载次数: 3)

2022-1-7 15:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

林木水

2022-1-8 14:42

是这样的吗？

1. Sub 提取透视表数据()
   
2. Dim arr, a As Integer, b As Integer
   
3. Dim wb As Workbook
   
4. Set wb = VBA.GetObject(ThisWorkbook.Path & "\订单登记表(新).xlsm")
   
5. a = wb.Sheets(1).Range("a1").End(xlDown).Row + 1
   
6. b = wb.Sheets(1).Range("a65536").End(xlUp).Row - 1
   
7. arr = wb.Sheets(1).Range("a" & a & ":k" & b & "")
   
8. Sheet1.Range("a2").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

林木水

是这样的吗？

1. Sub 提取透视表数据()
   
2. Dim arr, a As Integer, b As Integer
   
3. Dim wb As Workbook
   
4. Set wb = VBA.GetObject(ThisWorkbook.Path & "\订单登记表(新).xlsm")
   
5. a = wb.Sheets(1).Range("a1").End(xlDown).Row + 1
   
6. b = wb.Sheets(1).Range("a65536").End(xlUp).Row - 1
   
7. arr = wb.Sheets(1).Range("a" & a & ":k" & b & "")
   
8. Sheet1.Range("a2").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
   
9. End Sub
   

复制代码

透明世界1987

林木水 发表于 2022-1-8 14:42
是这样的吗？

谢谢大神，在询问一下，怎么把这个订单登记表的路径设为固定的路径呢，因为实际工作中，订单登记表是在公司共享盘内一个固定文件夹的

林木水

透明世界1987 发表于 2022-1-13 14:13
谢谢大神，在询问一下，怎么把这个订单登记表的路径设为固定的路径呢，因为实际工作中，订单登记表是在公 ...

Set wb = VBA.GetObject(ThisWorkbook.Path & "\订单登记表(新).xlsm")
修改这一行代码的路径就可以了。路径用双引号括起来，其他一样

透明世界1987

林木水 发表于 2022-1-13 14:40
Set wb = VBA.GetObject(ThisWorkbook.Path & "\订单登记表(新).xlsm")
修改这一行代码的路径就可以了。 ...

有报错，过不去，是我改的不对吗