从其他工作簿中调用PERSONALmacros

我正在从macros将接收从其他文件到共享模板的数据。 用户在共享工作簿中运行macros之后，它将更新另一个工作簿。 我只是想尽可能方便地访问。

我不希望用户打开此模板并手动更新。 那不是重点。 一切正常。 当我从Developer -> Macros -> Run调用macros时，复制到模板的数据是正确的，并且更新也起作用。

但是，当我在Developer -> Macros -> Options设置快捷方式，并从其他所有不是PERSONAL的工作簿的快捷方式调用macros时，macros打开共享工作簿后中止。 而且它不会使用其他工作簿中的数据进行更新。

我在这里错过了什么家伙？ 有任何想法吗？

编辑：

我的CODE：

  Public Sub KPI() Application.ScreenUpdating = False KPI = "C:\KPI Template.xlsx" Workbooks.Open (KPI) '****** <--- macro stops here - no error pathT = "C:\" fileNN = "KPI" filePath = Dir(pathT) While True If InStr(1, filePath, fileNN) > 0 Then GoTo resume1 End If filePath = Dir Wend resume1: Workbooks.Open (pathT & filePath), ReadOnly:=True KPI_FileName = Dir(KPI) r = 8 k = 2 LDay = Day(Date) Sh_Name = Workbooks(KPI_FileName).Sheets("Check").Cells(r, 2) Do While Workbooks(KPI_FileName).Sheets("Check").Cells(r, 2) <> "" Do While Workbooks(filePath).Sheets(Sh_Name).Cells(LDay + 7, k) <> "" Workbooks(KPI_FileName).Sheets("Check").Cells(r, k + 1) = Workbooks(filePath).Sheets(Sh_Name).Cells(LDay + 7, k) k = k + 1 Loop r = r + 2 k = 2 Sh_Name = Workbooks(KPI_FileName).Sheets("Check").Cells(r, 2) Loop 

结束小组