0

我正在通过 EPM 需求计划插件自动上传数据。

我有 33 张;每张表都有一组要上传的数据,总共有1000多个数据点。目前,我必须单独转到每张工作表并单击上传按钮,这是高度手动且耗时的。

我已经编写了一个宏来上传整个工作簿,但是在上传之间,Excel 崩溃了。所以我正在寻找一种方法来一张一张地上传每张纸。

宏代码:-

Sub Upload()
Dim ws As Worksheet, flg As Boolean
For Each ws In Sheets
ws.Select
EPMexample.SaveAndRefreshWorksheetData
Next
End Sub

但挑战是,一旦开始上传,我必须为工作簿中的每张工作表单击“是”。

在此处输入图像描述

有没有办法每次自动单击确定或一次上传整个工作簿。

4

1 回答 1

1

尝试这个:

Sub Upload()
    EPMexample.SaveWorkbookData
    EPMexample.RefreshActiveWorkBook
End Sub

您的工作簿中的所有输入表单都将被提交,只有一条确认消息。

于 2018-01-24T14:52:37.090 回答