通用Excel实用VBA案例分享：点击按钮，批量刷新指定模板的所有数据，无需修改打开目标数据。应用场景：系统中某些特定数据需要在某一时间批量去刷新，或批量重现获取数据源。

本效果中，使用的VBA函数截图如下：

代码：

Sub 批量重存()

'定义接口变量

Dim obj As Object

'获取通用Excel 的编程接口

Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

'通过接口调用通用Excel系统公式

If [项目数量] = 0 Then

Else

lngres = MsgBox("保存后，系统将对：【目标表】中的【" & [数据数量] & "】个项目数据进行批量刷新，此操作将需要更多时间···" & vbCrLf & "是否继续？", _

vbYesNo + vbDefaultButton2 + vbQuestion, "互和科技")

If lngres = vbNo Then

Cancel = True

Exit Sub

End If

For N = 8 To Cells(4, 4).Value

obj.ReSaveData "目标表", "数据编号='" + ActiveSheet.Cells(N, 4).Text + "'"

Next N

Exit Sub

Set obj = Nothing

End If

End Sub

以上红色字体部分代码可直接复制后，进行相应配置后使用。

7 To Cells(4, 4).Value

这部分指的是行列坐标。