0

EPM デマンド プランニング アドインを使用して、データの自動アップロードに取り組んでいます。

33枚あります。各シートには、アップロードするデータのセットがあり、1000 以上のデータ ポイントになります。現在、各シートに個別に移動してアップロード ボタンをクリックする必要がありますが、これは非常に手作業で時間がかかります。

ワークブック全体をアップロードするマクロを作成しましたが、アップロードの合間に Excel がクラッシュします。そこで、各シートを 1 つずつアップロードする方法を探しています。

マクロコード:-

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

しかし、課題は、アップロードが開始されたら、ワークブックのすべてのシートで [はい] をクリックする必要があることです。

ここに画像の説明を入力

毎回自動的に [OK] をクリックする方法や、ワークブック全体を一度にアップロードする方法はありますか?

4

1 に答える 1

1

これを試して:

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

ワークブック内のすべての入力フォームが送信され、確認メッセージが 1 つだけ送信されます。

于 2018-01-24T14:52:37.090 に答える