VB.net 空間メモリ

◎空間メモリ
'エクセル
'最終行までを取得
Dim xlLog As Excel.Range = xlSheet.Range("A" & xlSheet.Rows.Count).End(Excel.XlDirection.xlUp)

'最終行までのMax値
Dim xlMax As Integer

'Max値を取得
xlMax = xlLog.Row

'行数を設定
Dim i As Integer

'B行を取得するための変数
Dim bg As String
　　　　　：
　　　　　：
'N行を取得するための変数
Dim ng As String

'配列を作る
Dim MemoriSQL(xlMax - 4) As String

'4行目からMax値まで繰り返す
For i = 4 To xlMax

'B列のi番目取得
bg = DirectCast(xlSheet.Range("B" & i).Text, String)
　　　：
　　　：
'N列のi番目取得
ng = DirectCast(xlSheet.Range("N" & i).Text, String)

'配列(更新)
MemoriSQL(i - 4) = "UPDATE hy_mst SET kyaku_tuke=" & eg & ", tesuryo_futan_kasi=" & fg & ", tesuryo_futan_kari=" & gg & ", tesuryo_haibun_moto=" & hg & ", tesuryo_haibun_kyaku=" & ig & ", kokokuhi_kin =" & jg & ", kokokuhi_tanni =" & kg & ", kokokuhi_zei =" & lg & ", kokoku_kbn=" & mg & ", kyakutuke_bk_comment=" & ng & " where bk_no = " & bg & " and hy_no=" & dg & ""

Next

以上。