Excel透视表设置动态范围

最新推荐文章于 2024-11-13 22:02:25 发布

First_0001

最新推荐文章于 2024-11-13 22:02:25 发布

阅读量423

点赞数 2

文章标签： excel

本文链接：https://blog.csdn.net/qq_41075226/article/details/110958276

版权

代码如下：

'创建
Dim xlApp As New Excel.Application
Dim xlWork0 As Excel.Workbook 

Dim index As Long
Dim path As String

On Error Resume Next
	'获取目录下指定文件
     path = ThisWorkbook.path & "\"
     StrFile = Dir(path)
     Do While Len(StrFile) > 0
         If InStr(StrFile, "fileName") <> 0 Then Set xlWork0 = xlApp.Workbooks.Open((path) & StrFile)
         StrFile = Dir
     Loop
     'Set xlWork0 = xlApp.Workbooks.Open("C:\TEST.xlsx")
     '获取最末行
     index = xlWork0.Worksheets("Sheet页名称").Range("A" & (2000)).End(xlUp).Row
     ’设置动态范围
     xlWork0.Worksheets("Sheet页名称").PivotTables("数据透视表名称").ChangePivotCache xlWork0.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Sheet页名称!A1:R" & index)
On Error GoTo 0
'保存关闭
xlWork0.Save
xlWork0.Close

附加说明：在这里插入图片描述
*PS:第一次写博文，希望有人用的上^^