04/07/22 18:46
>>200
レスどうもです。
やろうとしていることは、ユーザ定義プロパティの値をすべて取得することで、
コードは次のような形です。
実行の前提条件としてExcelは起動済みで、そのアプリの参照変数がappExcelです。
Dim WB As Excel.Workbook = appExcel.ActiveWorkbook 'appExcelはExcelアプリの参照変数です
Dim DPS As DocumentProperties
Dim DP As DocumentProperty
DPS = WB.CustomDocumentProperties ←ここで実行時にキャストエラーが出る
For Each DP IN DPS
プロパティ値を取得するコード
Next