いつも参考にさせていただいています。
Microsoft Excel 9.0 Object Libraryを参照設定してエクセルファイルのデーターを読んでいます。
購入した本を参考に以下のようにやっています。
Option Explicit
Private xlApp As New Excel.Application
Private xlBook As Excel.Workbook
Private xlSheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls")
Set xlSheet = xlBook.Sheets(1)
〜〜〜データーを読んで表示する処理をしています〜〜〜
Set xlSheet = Nothing
Set xlBook = Nothing
End Sub
このように書いた場合、Command1_Clickを抜けた後、希望としてはtest.xlsを直接ダブルクリックした時に、編集できるようにしたいのですが、このアプリケーションが使っているため、読取専用でしか開くことができません。
最後のNothingで開放していると思い込んでいるのですが、実際には他に何か処理をしなければいけないでしょうか?
作成している環境はWin2000とVB6でやっています。
ご教授いただけるとうれしいです。
よろしくお願いいたします。
下記URLの内容を確認していただくと解決するかもしれません。
VBレスキュー(花ちゃん)
http://www.bcap.co.jp/hanafusa/VBHLP/ExcelErr.htm
KGさま、大変参考になるサイトのご紹介ありがとうございました。
わたしもサイトの通りにやってみてこの現象を回避することができました。
本当にありがとうございました。
ツイート | ![]() |