タイトル : 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() どのような構文にしたらよいでしょうか よろしくお願いいたします |