C# と VB.NET の質問掲示板

開発環境：WinXP SP3
開発言語：VB2003

クライアント：Win2000 SP4

DataGridのデータをエクセルに出力したいのですが、開発環境（WinXP）では問題なく
処理できるのですが、クライアント（Win2K）ではエラー「HRESULT からの例外です : 0x800A03EC」
が発生します。
いろんなサイトを探していじってみましたが、いまだ解決しません。。。

皆さんのお助けお願いします。
↓↓↓ソース

        Dim objExcel As Object
        Dim objExcelBooks As Object
        Dim objExcelBook As Object
        Dim objExcelSheets As Object
        Dim objExcelSheet As Object
        Dim intRowCnt, intColCnt As Integer
        Dim Range As Object
        Dim i, j As Integer

        objExcel = CreateObject("Excel.Application")
        objExcelBooks = objExcel.workbooks
        objExcelBook = objExcelBooks.add
        objExcelSheets = objExcelBook.worksheets
        objExcelSheet = objExcelSheets.item(1)

            Me.dgdWillDelay.Select()
            Dim dt As DataTable = CType(dgdWillDelay.DataSource, DataTable)
            Dim dtRow As DataRow
            Dim dtColumn As DataColumn
            'DataArray定義
            Dim DtArCol, DtArRow As Double
            DtArCol = 0
            For Each dtColumn In dt.Columns
                DtArCol = DtArCol + 1
            Next
            DtArRow = 0
            For Each dtRow In dt.Rows
                For i = 0 To dt.Columns.Count - 1
                    DtArRow = DtArRow + 1
                Next
            Next
            Dim DataArray(DtArRow, DtArCol) As Object

            '列名を格納
            j = 0
            For Each dtColumn In dt.Columns
                DataArray(0, j) = dtColumn.ColumnName
                j = j + 1
            Next

            '明細を格納
            j = 0
            For Each dtRow In dt.Rows
                j = j + 1
                For i = 0 To dt.Columns.Count - 1
                    DataArray(j, i) = dtRow(i)
                Next
            Next
            'タイトル
            objExcelSheet.range("A1") = Me.lblTitle.Text
            objExcelSheet.range("C1") = Me.cboClass.Text
            objExcelSheet.range("E1") = "出荷日:" & Me.DateTimePicker1.Text

            'DataArrayをExcelSheetに貼り付け
            Range = objExcelSheet.range("A2", Reflection.Missing.Value)
            Range = Range.resize(DtArRow, DtArCol)
            Range.value = DataArray

            'Excelを可視状態にする
            objExcel.Application.Visible = True
            objExcel.UserControl = True

> 'DataArray定義
> Dim DtArCol, DtArRow As Double
> DtArCol = 0
> For Each dtColumn In dt.Columns
>     DtArCol = DtArCol + 1
> Next
> DtArRow = 0
> For Each dtRow In dt.Rows
>     For i = 0 To dt.Columns.Count - 1
>         DtArRow = DtArRow + 1
>     Next
> Next

このループが気になりますね。
仮にですが、500行12列のデータとして考えます。

DtArCol(列数)は12って求められるけど、
DtArRow(行数)は二重ループになってるから、12×500=6000になりますよね。
1行目に列名を入れる行が必要だとしても、500+1=501行でいいのでは？
(配列が12列分用意されていて、その配列一つ一つにデータを区切って代入しているわけですから)

というわけで、Rangeを確保しているこの処理
>Range = Range.resize(DtArRow, DtArCol)
Range = Range.resize(6000, 12) になってしまってます。

DataArrayは501行分, 12列分のデータしか入力してないから、
「宣言はしたけど、値がない」DataArrayが存在するのがもしかして原因の一つかもしれません。


>Excelオブジェクト
了解です！

>>objExcelSheet.Range("A2:L" & CStr(j)).Value = DataArray
>Range("A2:L43")となってるので、データが2行分欠落してました＾＾；
>objExcelSheet.Range("A2:L" & CStr(j+2)).Value = DataArray
>に変更しました。

これだと、j=43のとき、44行12列を選択することになりますよ。

>> DataArrayは何行何列作ったの？
>ですが、43行12列でした。

RangeとDataArrayの大きさが一致してませんね。

もう少し、小さい範囲で考えて、原因を絞っていきましょう。
こちらを参考にして、(5,5)の大きさの配列を作り、5行5列分の範囲を指定してデータを代入することができますか？
http://support.microsoft.com/kb/302094/ja

Dim range As Excel.Range
range = objExcelSheet.Range("A2", Reflection.Missing.Value)
range = range.Resize(5, 5)

'(5,5)の大きさの配列を作り
Dim saRet(5, 5) As Double

'(5,5)の大きさの配列に値を代入する
Dim iRow As Long
Dim iCol As Long
For iRow = 0 To 5
    For iCol = 0 To 5
        'Put a counter in the cell.
        saRet(iRow, iCol) = iRow * iCol
    Next iCol
Next iRow

'Set the range value to the array.
range.Value = saRet

# もしできるようであれば、データの作り方、もしくはRangeの指定の仕方に問題がある可能性があります