はじめまして。
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

>         aryData = .Range(Cells(2, 1), Cells(lngRow, lngCol)).Value

ここの Excel のタスクを正常に終了できない現象（こちらも合せてお読み下さい）　は
お読みになりましたか？

申し訳ございません。
Withで囲っているのに、"."をCellsの前に付け忘れていたようです…
ご忠告ありがとうございました。

> >         aryData = .Range(Cells(2, 1), Cells(lngRow, lngCol)).Value
>
> ここの Excel のタスクを正常に終了できない現象（こちらも合せてお読み下さい）　は
> お読みになりましたか？