为什么运行提示错误！

wjt_1221

运行以下代码，会出错，1004，修改工作表名又可以，但又提示无法运行ATPVBAEN.XLAM!宏，加载项里的分析工具库、分析工具库-vba都勾选上了，哪个老师给解决一下，谢谢。


Sub TimeSeriesForecast()
    Dim ws As Worksheet
    Dim rng As Range
    Dim forecastValue As Double
   
    ' 设置工作表和数据范围
    Set ws = ThisWorkbook.Sheets("数据值")  ' 更改为您实际的工作表名称
    Set rng = ws.Range("B2:B69")  ' 更改为您的实际数据范围
   
    ' 运行数据分析工具中的时间序列分析
    ' 这里假设您的时间序列数据位于 B 列
    ' 这里假设您的预测结果放在 D 列
    ws.Range("D2").Select
    Application.Run "ATPVBAEN.XLAM!ExponentialSmoothing", rng, 3, ws.Range("D2"), False, False, False, False
   
    ' 获取预测值
    forecastValue = ws.Range("D101").Value  ' 假设预测结果位于 D101 单元格
   
    ' 将预测结果放入 C1 单元格
    ws.Range("C1").Value = "2024年预测值: " & forecastValue
   
End Sub

ykcbf1100

工作簿没有"ATPVBAEN.XLAM!ExponentialSmoothing"这样的宏，你运行代码时就肯定出错了。

你看一下，ATPVBAEN.XLAM这个文件还在不在。