■5516 / ) |
Re[4]: COMオブジェクトの解放について |
□投稿者/ fuji 二等兵(4回)-(2006/08/15(Tue) 17:21:43)
|
分類:[C#]
webserviceを使っているのをそのまま載せてしまいました。 Dim drlength As Long = DS().Rows.Count() - 1 'ループカウンタ終点 を削除して for-next文を以下のように上書きコピーしてください。 killp()は気にしないでください・・・
withのところは修正してみます For k = 0 To 2 xlCells = objSheet.Cells
xlRng = xlCells(d, 2) xlRng.Value = "1" MarshalOBJ(xlRng)
xlRng = xlCells(d, 4) xlRng.Value = "2" MarshalOBJ(xlRng)
xlRng = xlCells(d, 6) xlRng.Value = "3" MarshalOBJ(xlRng) MarshalOBJ(xlCells)
d = d + 1 Next
|
0
|