时间戳

首页 > 解决方案 > 表格的工作表数据需要与表格位于同一工作表上

excel - 表格的工作表数据需要与表格位于同一工作表上

问题描述

我试图将我的数据转换为表格，以便在添加新数据时更新数据透视表，我尝试使用我在网上找到的代码并用我的文件更新它，但似乎有一些错误。

Private Sub CommandButton1_Click()

Dim ws As Worksheet
Dim wscopy As Worksheet
Dim wspaste As Worksheet
Dim src As Range

   Set wsfilter = Workbooks("bdncasemacro.xlsm").Worksheets("Filter")

Set src = Range("B5").CurrentRegion
Set ws = wsfilter
wsfilter.ListObjects.Add(SourceType:=xlSrcRange, Source:=src, _
xlListObjectHasHeaders:=xlYes, tablestyleName:="TableStyleMedium28").Name = "Filter"

    'update pivot table
    Workbooks("bdncasemacro.xlsm").RefreshAll

   MsgBox ("DONE!")


End Sub

我收到错误“1004”在此处输入图像描述

错误发生在调试中

wsfilter.ListObjects.Add(SourceType:=xlSrcRange, Source:=src, _
xlListObjectHasHeaders:=xlYes, tablestyleName:="TableStyleMedium28").Name = "Filter"

标签： excelvba

解决方案

推荐阅读