お世話になっております。藤沢です。


早速ですが質問です。
問題はsp_OAGetPropertyが失敗してしまうことに悩んでいます。

概要：
１．
SP内でExecuteWithResultsを行いテーブルからレコードセットを
取得しております。
２．
sp_OAGetPropertyを使用して行列数を求めてwhile文でエクセル
へ書き出しております。

詳細：
２．のwhile文中エクセルへ書き出す際に、どこのセルへ書出すか
をsp_OAGetPropertyにて取得します。

通常はこれでうまくいくのですが、１．でExecuteWithResultsで取得
したレコードセットが大きい？と２．でセルの情報を取得する際に
sp_OAGetPropertyが失敗します。
なぜでしょう？？？
こんな経験はどなたかないでしょうか？
また対処方を是非教えて頂きたく思います。

恐縮ですがソースの概要を記載します。

-------------------------------------------------------
-- レコードセット取得
DECLARE @ChvQuerry VARCHAR(8000)
DECLARE @ChvRecordSet VARCHAR(255)
SET @ChvQuerry = 'SELECT * FROM TestDB.dbo.TestTable'
SET @ChvRecordSet= 'ExecuteWithResults("' + @ChvQuerry +'")'
EXEC @IntHResult =
sp_OAMethod @IntObject, @ChvRecordSet, @IntObjRecordSet OUT
-- ↑これでIntObjRecordSetにレコードセット取得

-- 行数取得
DECLARE @IntNumOfRow  INTEGER
EXEC @IntHResult =
sp_OAGetProperty @IntObjRecordSet, 'Rows' , @IntNumOfRow OUT
-- 列数取得
DECLARE @IntNumOfColumn INTEGER
EXEC @IntHResult =
sp_OAGetProperty @IntObjRecordSet, 'Columns' , @IntNumOfColumn OUT

-- エクセルへ書く
SET @IntTmpRow = 1
-- 行
WHILE( @IntTmpRow <= @IntNumOfRow )
BEGIN
    -- 列
    SET @IntTmpColumn = 1 -- 1列目指定
    WHILE ( @IntTmpColumn <= @IntNumOfColumn )
    BEGIN
    -- レコードセットから指定した行列の文字列取得
    EXEC @IntHResult =
    sp_OAMethod @IntObjRecordSet,
                        'GetColumnString',
                        @ChvColumnString OUT,
                        @IntTmpRow,
                        @IntTmpColumn
    IF @IntHResult <> 0
    BEGIN
    PRINT '■■■Error : GetColumnString■
              行：'+CAST( @IntTmpRow AS CHAR )+'
              ,列：'+CAST( @IntTmpColumn AS CHAR )+'■'
    END
    SET @ChvColumnString = RTRIM( @ChvColumnString )

    -- エクセル書込先セル情報取得●●ここで難解かループすると失敗する●●
    SET @ChvRange =
    'Range("'+CHAR( 64+LTRIM( str( @IntTmpColumn ) ) )+''+LTRIM( str(
27+@IntTmpRow-1 ) )+'")' -- A27行目から書く

    EXEC @IntHResult =
    sp_OAGetProperty @IntObjExcel, @ChvRange, @IntRange OUT
    IF @IntHResult <> 0
    BEGIN
        EXEC sp_OAGetProperty
                @IntObjExcel,
                @ChvOAErrorSource OUTPUT,
                @ChvOAErrorDescription OUTPUT
        RAISERROR ( 'RecordSet Error : %s, %s', 10 , -1,
                        @ChvOAErrorSource, OAErrorDescription )

        -- ログ

        -- エクセル書込

        -- 列のインクリメント
        SET @IntTmpColumn = @IntTmpColumn + 1
        END
        -- 行のインクリメント
        SET @IntTmpRow = @IntTmpRow + 1
END