|
IROCさん、ichinoseさん
素早いご回答ありがとうございます。
おかげさまで無事に解決しました。
▼IROCさん:
>名前の定義はNameオブジェクトなので、
>Namesコレクションオブジェクトを用います。
Namesオブジェクトだったのですね・・・。判りませんでした。
こちらの勉強不足ですね。ご指摘ありがとうございます。
これで解決かと思いましたが、次に下記の問題が発生しました。
a = ThisWorkbook.Names("aaa").Name
上記で"aaa"が未定義の場合、オブジェクト未定義の
エラーが発生してしまいます。
このためエラーの例外処理が必要になるのですが、
ichinoseさんのサンプルが非常に参考になりました。
▼ichinoseさん:
>on error ステートメントを使う方法です。
test()を利用し下記の形で無事動作させることが出来ました。
重ね重ね、ありがとうございます。
---
Function sample(・・・)
:
On Error Resume Next
a = ObjExcel.Names(RangeName)
If Err.Number = 1004 Then
<未定義時の処理>
Err.Clear
Exit Function
End If
On Error GoTo 0
<定義済み時の処理>
End Function
|
|