EPM加载项中用于上载的VBA宏

Question

我正在通过EPM- demand planning add-in自动上传数据。

我有33个工作表；每个工作表都有一组要上传的数据，总共有1000多个数据点。目前，我必须单独转到每个工作表并单击upload按钮，这是非常手动和耗时的。

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

宏代码：-

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

但挑战是，一旦上传开始，我必须为工作簿中的每个工作表单击yes。

​

​

有没有办法每次都自动单击“确定”，或者一次上载整个工作簿。

Answer 1

试试这个：

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

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