tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル EXCELが止まらない
投稿日: 2014/08/15(Fri) 07:52
投稿者かっちゃん
いつも助かっております。
また、よろしくお願いいたします。

WINDOWS7でVB2010よりEXCEL2010を使っております

** VB2010の構文 **

Imports XL = Microsoft.Office.Interop.Excel

エクセルワークエリア
    Private xlsInApp As XL.Application
    Private xlsInBooks As XL.Workbooks
    Private xlsInbook As XL.Workbook
    Private xlsInSheets As XL.Sheets
    Private xlsInSheet As XL.Worksheet

Excel起動
   xlsInApp = New XL.Application
エクセルシート設定
   xlsInBooks = xlsInApp.Workbooks
   xlsInbook = xlsInBooks.Open(“ABC.xls”)
   xlsInSheets = xlsInbook.Worksheets
   xlsInSheet = xlsInSheets("sheet1")

エクセルを終了する
   xlsInbook.Close(False)
   xlsInApp.Quit()

上記ですとEXCELが終了します。

下記のようにシートの最終行を確認する構文を入れますとEXCELが終了しなくなります
エクセルシート設定
   xlsInBooks = xlsInApp.Workbooks
   xlsInbook = xlsInBooks.Open(“ABC.xls”)
   xlsInSheets = xlsInbook.Worksheets
   xlsInSheet = xlsInSheets("sheet1")
** Dim A = xlsInSheet.Cells
** DimB=A.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeLastCell)
**' B.Row から最終行を確認しています

エクセルを終了する
   xlsInbook.Close(False)
   xlsInApp.Quit()

どのような構文にしたらよいでしょうか
よろしくお願いいたします

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。