[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^2: EXCELのプロセスの解放について 投稿日 ： 2011/07/27(Wed) 09:00 投稿者 ： たぁ
| 早速のご指摘ありがとうございます。 ご指摘に従って以下のように修正しましたが、「型が一致しません」の エラーがでてしまいました。 xlSheetsの定義やセットしている値に問題ありますでしょうか？ 自己解決できなくてすみません。 ＜追記＞ エラーの部分を諦めてコメント化し、「Set xlSheet = xlBook.Worksheets(1)」として みましたが、やっぱりプロセスは残ってしまいました。 Dim xlApp As Excel.Application Dim xlBooks As Excel.Workbooks Dim xlBook As Excel.Workbook Dim xlSheets As Excel.Worksheets Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBooks = xlApp.Workbooks Set xlBook = xlBooks.Open(App.Path & "\R.xls") Set xlSheets = xlBook.Worksheets ←ここでエラー Set xlSheet = xlSheets(1) xlSheet.PrintOut Set xlSheet = Nothing Set xlSheets = Nothing xlBook.Close Set xlBook = Nothing Set xlBooks = Nothing xlApp.Quit Set xlApp = Nothing > Set WkBooks = xlApp.Workbooks > でいったん切ったほうがいいです。そして最後にNothing > Set Shts = xlBook.Worksheets > Set Sht = Shts(1) > でいったん切ったほうがいいです。そして最後にNothing |
をクリックするとツリー全体を一括表示します） - EXCELのプロセスの解放について - たぁ 11/07/26-21:37No.15265