vb2008 での記述が分かりません。教えて下さい。

質問

本当に初心者ですみません。
ネットワークサーバにあるExcelファイルが読取り専用だったら、そのまま閉じる。というコードを書きたいのですが、

If xlApp.Activeworkbook.ReadOnly = True Then
(処理）
End if

ではダメですよね。

ご教授方よろしくお願いします。

回答No.1

chibita_papa · ベストアンサー

Dim xlApp As Object = CreateObject("Excel.Application")

Dim xlBooks As Object = xlApp.workbooks
Dim xlBook As Object = xlBooks.Open(FileName:="S:\book1.xls")

If xlbook.ReadOnly = True Then
(処理）
End if
です。

ちなみに、ＣＯＭオブジェクトの解放を忘れずに

お礼

ご教授ありがとうございました。

今後ともよろしくお願いします。