タイトル : Excelが終了しない 投稿日 : 2009/04/13(Mon) 18:23 投稿者 : RYO
はじめまして。 Excelを操作して、正しい手順でオブジェクトの開放を行なっているのですが、 終了されません。 どなたか原因が分かる方はご教授願えませんでしょうか…? Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim lngRow As Long Dim lngCol As Long Dim aryData As Variant Dim strInputPath As String strInputPath = "C:\test.xls" '変数にオブジェクトの参照を代入 Set xlApp = CreateObject("Excel.Application") '指定したファイルを開く Set xlBook = xlApp.Workbooks.Open(strInputPath) Set xlSheet = xlBook.Worksheets(1) xlApp.ScreenUpdating = False 'Excelの画面更新を停止する xlSheet.Activate lngRow = 1 lngCol = 165 With xlSheet Do While Len(Trim$(.Cells(lngRow + 1, 1).Value)) > 0 lngRow = lngRow + 1 Loop aryData = .Range(Cells(2, 1), Cells(lngRow, lngCol)).Value End With 〜〜〜〜〜中略〜〜〜〜〜 Set xlSheet = Nothing xlBook.Close Set xlBook = Nothing xlApp.Quit Set xlApp = Nothing |