如何等待另一个宏完成生成值？

Question

在我的主宏中运行的宏会生成我需要复制到另一个 Excel 文件的值。

我的主宏不等待生成完成并将空单元格粘贴到另一个文档中。

如果我单步执行，代码会按预期工作，但按“运行”时不会。

Set wbThis = ActiveWorkbook
strName = ActiveSheet.Name
Set wbTarget = Workbooks.Open("D:\Users\user37\Desktop\exportas\Information.xlsm")
wbTarget.Worksheets("Information").Activate
ActiveSheet.Range("B2").Value = myValue
Application.Run ("'Information.xlsm'!ExportData")
wbTarget.Worksheets("SO Lines").Activate
ActiveSheet.Range("E4").Copy

Set wbTarget = Workbooks.Open("D:\Users\user37\Desktop\exportas\Sablonai.xlsm")
wbTarget.Worksheets("Duomenys").Activate
ActiveSheet.Range("A1").Select
activeSheet.PasteSpecial

我找到了这个问题的几个答案，但似乎没有一个对我有用。

我尝试了睡眠和等待方法。它们会停止整个宏，甚至是生成值的宏。

我尝试在生成宏的末尾或在主宏中调用生成宏之后添加 DoEvents。更改无效。

建议的重复 Excel waiting for one macro to finish before calling another 没有帮助。

Answer 1

由于性能问题，请尽量避免使用 Activate 和 Select。当您逐步执行代码时，它应该按预期工作，因为选择/激活能够在执行下一行之前完成。 还没有测试过下面的代码，但我希望你能理解With 的原理。

更多的选择例子可以在How to avoid using Select in Excel VBA看到

Set wbThis = ActiveWorkbook
strName = ActiveSheet.Name
Set wbTarget = 
Workbooks.Open("D:\Users\user37\Desktop\exportas\Information.xlsm")
With wbTarget.Worksheets("Information")
    ActiveSheet.Range("B2").Value = myValue
    Application.Run ("'Information.xlsm'!ExportData")
With wbTarget.Worksheets("SO Lines")
    .Range("E4").Copy
End With

Set wbTarget = Workbooks.Open("D:\Users\user37\Desktop\exportas\Sablonai.xlsm")
With wbTarget.Worksheets("Duomenys")
    With ActiveSheet.Range("A1")
        .PasteSpecial
    End With
End With

更新：

'In case of multiple columns we create an array
Dim dData(1) as Variant 
Set wbThis = ActiveWorkbook
strName = ActiveSheet.Name
Set wbTarget = 
Workbooks.Open("D:\Users\user37\Desktop\exportas\Information.xlsm")
With wbTarget.Worksheets("Information")
'Copies column 1 and 2
    data(0) = Application.Transpose(Range(Cells(1,1),Cells(1,1).End(xlDown)).Value2)
    data(1) = Application.Transpose(Range(Cells(2,1), Cells(2,1).End(xlDown)).Value2)
End With

'Once again we copy the data from column 1 and 2
With wbTarget.Worksheets("SO Lines")
    data(0) = Application.Transpose(Range(Cells(1,1),Cells(1,1).End(xlDown)).Value2)
    data(1) = Application.Transpose(Range(Cells(2,1),Cells(2,1).End(xlDown)).Value2)
End With

Answer 2

问题已通过转到生成宏 -> 数据 -> 连接并禁用每个查询的后台刷新来解决