526互联

word VBA Selection.PasteSpecial 4198 运行时错误

发布时间 2023-06-29 17:46:07作者: 狂自私
If (.Execute) Then
    Selection.Copy
    '要定位到表格中
    my_table.Cell(row_index, 1).Select
    'Selection.Delete
    CreateObject("Excel.Application").Wait (Now + TimeValue("00:00:01"))    '必须加上延时，否则会报运行时错误4198
    Selection.PasteSpecial Link:=True, DataType:=wdPasteHyperlink
    
End If

原因估计是数据同步的问题，VBA操作（发送指令）太快，但是数据没有完成对应的操作就导致该错误了。

加上延时就行。