Question

我正在开发一个excel文件，用于存储和分析我的工作数据。为此，我需要使用VBA来执行某些计算等。

解决问题：我想要读入我的Excel文件的数据存储在我工作的另一个单位每月更新的其他excel文件中。这些文件在月度数据上显示为数据透视表，并提供某些过滤器。

基本上，在我的excel文件中，我有一个下拉列表，用户选择一个区域（包含数据的其他excel文件中的过滤器选项），然后按下“更新”按钮。然后，VBA程序应该从其他excel文件读入我的文件，根据用户在我的文件中选择的区域过滤数据透视表，并将数据提取到我的文件，然后对其执行一些计算。

所以，如果有人能向我解释如何解决这个问题，我真的很感激。我想用户在我的文件中选择的值应该作为某种参数传递到VBA程序中？如何从其他已关闭的Excel文件中读取？

我希望我的解释足够清楚，以了解我在寻找什么。

非常感谢提前！

编辑：所以我开始使用VBA程序，如下所示：

strLan = Range("K2").Value 'The value I want to set for the filter option

Workbooks.Open Filename:= _
    "source-file.xlsx" _
    , Notify:=False
Windows("sourcefile.xlsx").Activate
Sheets("Blad1").PivotTables("PivotTable1").PivotFields("filtervariable").CurrentPage = strLan
ActiveSheet.PivotTables("PivotTable1").DataBodyRange.Select
Selection.Copy
Windows("newfile.xlsm").Activate
Sheets("Totalt").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Workbooks.Close

但是，我收到以下错误消息： “无法获取工作表类的pivottables属性”

我希望能解决我的问题！

最佳

从另一个excel文件

0 个答案: