Vba エラーコード2147xxxxxxについて教えてください

いつもお世話になります

今、ExcelからDocuworksの操作を与えられた関数から仕事をしています
　　rc = XDW_GetDocumentNameInBinder(lngHandle, k, fName(0), Ksize, vbNullString)

バインダーファイルからファイル名を取得するのですが、正常値はそのバイト数が得られますが
ファイル名がなくなるとエラーコードとなります

そのエラーコードで質問ですが
Excel32ビット版の時は、-2147xxxxxxと負の値だったので
　if RC < 0 Then Exit Sub チェックできたのですが
Excel64ビット版では正の値で 2147xxxxxxxで出てくるのでそのあとに
　if Abs(RC) > 2147000000 Then Exit Sub としました

そこで、これ良いのかな？ っと思っています
また環境が変わっても使えそうなものが他にあるような気がして相談してみました

以上、何か良いと思うものが有ったら教えてください
以上、宜しくお願い致します

No.1 ベストアンサー 回答者： ありものがたり 回答日時： 2024/12/14 18:39

これ↓じゃないかな？

https://qiita.com/musyu/items/16ad8a81f368a46355bb

この回答へのお礼

ありがとうございました

XDW_GetDocumentNameInBinderの返り値を32bitのLongに戻して
負の値を得るようにしました（邪道かどうかは分かりませんが）
プログラム内にもコメントつけて、後々まで分かるようにしておきました

これからもよろしくお願いいたします

お礼日時：2024/12/16 14:51