VBA,自动生成word报告,带外部链接,首次运行总是出错

dream_before

为了提高效率，遂想到使用VBA开发一套报告自动生成工具。思路很简单，word里贴的都是excel数据链接，从而实现数据的同步。然后又在excel里用VBA写了一个简单的循环语句实现批处理。
批处理的代码如下：
Sub batch_process()
Dim n As Integer
n = 2
folderpath = ThisWorkbook.Path & "/主动作业集合/"
If Len(Dir(folderpath, vbDirectory)) = 0 Then    '检查文件夹是否存在，不存在就创建
VBA.MkDir (folderpath)
End If

Set wd = CreateObject("Word.Application")
Do While Sheets("批处理").Cells(n, "B") <> ""
    Sheets("项目信息").Range("B3") = Sheets("批处理").Cells(n, "B")
    ThisWorkbook.RefreshAll
    Application.CalculateUntilAsyncQueriesDone
    Call creatReport
    ThisWorkbook.SaveCopyAs (folderpath & Sheets("项目信息").Range("B5") & ".xlsm")
    n = n + 1
Loop
wd.Quit
Set wd = Nothing
End Sub

Sub creatReport()
Dim t As String
t = Format(Now(), "mmddhhmmss")
Set wddoc = wd.Documents.Open(ThisWorkbook.Path & "/主动评级报告.docx") '创建文档
wd.Visible = True
wddoc.SaveAs folderpath & t & Sheets("项目信息").Range("B5") & ".doc"
wddoc.Close
Set wddoc = Nothing
End Sub

这个batch_process过程可以运行，也能正常生成word报告。
但存在的问题是，因为我的excel里面使用了很多wind金融终端公式，每当我首次打开这个excel并运行这个过程时，生成的word里面的数据会更新失败。
但我把更新失败的文件都删除以后，再次运行这个batch_process，则会成功。
我怀疑过是不是数据刷新的问题，但查了很多资料仍然不能解决这个问题。所以求助各位大佬，到底是什么原因导致？

xunanming

你这没有相关附件,坛友们是无从下手的.

dream_before

xunanming 发表于 2024-3-22 14:32
你这没有相关附件,坛友们是无从下手的.

主要是附件涉及一些商业上的东西，为避免不必要的麻烦，不太方便上传。
我这个思路也比较简单，代码逻辑也简单，就是不知道是什么地方出现了问题

tspliu

每个环节加上debug.print看数据是否完成更新。

dream_before

tspliu 发表于 2024-3-22 15:29
每个环节加上debug.print看数据是否完成更新。

谢谢，我仔细检查了一下。 这个问题无解。因为我们这个很多东西是使用wind金融终端公式，我看了一下还有wind的VBA接口，所以我估计可能是第一次打开excel的时候，wind的一些公式或者过程还没有执行完毕。有时候第一次打开也能成功更新数据。但是有时候又不行。但第二次再次运行肯定是没有问题。所以我投降了，实在无解