通用Excel实用VBA案例分享：点击按钮，批量刷新指定模板的所有数据，无需修改打开目标数据

通用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




这部分指的是行列坐标。

上一篇：通用Excel模版设计技巧之：多选字段内容，转换逐个填充到明细表

下一篇：宽带商那边确认端口已开通，并且服务器所在路由器中也做好了端口映射，还是无法登录通用Excel