vb.netでExcelの１行をコピーしたい

質問

WindowsXP(SP2)　VB2005　Excel2007で開発を行っております。
Excelの操作について質問したいことがあり、投稿しました。
Excelシートの横一列をセル単位に罫線で囲み、その行を必要な行数分どんどん下にコピーしたいのですが、コピーの部分で行き詰ってしまいました。
以下がコードです。

' Excel用Objectの宣言
Public Shared xl As Excel.Application
Public Shared xlBooks As Excel.Workbooks
Public Shared xlBook As Excel.Workbook
Public Shared xlSheets As Excel.Sheets
Public Shared xlSheet As Excel.Worksheet
Public Shared xlBorders As Excel.Borders
Public Shared xlCells As Excel.Range

' ユーザID
x = 1
y = 1
' 罫線で囲む
xlBorders = xlSheet.Range(xlSheet.Cells(y, x), xlSheet.Cells(y, x)).Borders
xlBorders.LineStyle = Excel.XlLineStyle.xlContinuous
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBorders)
xlBorders = Nothing

' 住所
x = 2
y = 1
' 罫線で囲む
xlBorders = xlSheet.Range(xlSheet.Cells(y, x), xlSheet.Cells(y, x)).Borders
xlBorders.LineStyle = Excel.XlLineStyle.xlContinuous
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBorders)
xlBorders = Nothing

' 氏名
x = 3
y = 1
' 罫線で囲む
xlBorders = xlSheet.Range(xlSheet.Cells(y, x), xlSheet.Cells(y, x)).Borders
xlBorders.LineStyle = Excel.XlLineStyle.xlContinuous
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBorders)
xlBorders = Nothing

' Tel
x = 4
y = 1
' 罫線で囲む
xlBorders = xlSheet.Range(xlSheet.Cells(y, x), xlSheet.Cells(y, x)).Borders
xlBorders.LineStyle = Excel.XlLineStyle.xlContinuous
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBorders)
xlBorders = Nothing

' 備考
x = 5
y = 1
' 罫線で囲む
xlBorders = xlSheet.Range(xlSheet.Cells(y, x), xlSheet.Cells(y, x)).Borders
xlBorders.LineStyle = Excel.XlLineStyle.xlContinuous
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBorders)
xlBorders = Nothing

Dim i As Int16

For i = 0 To 15
' ここでコピーの処理を行う

Next

以上がコードとなります。
どなたかご教授をよろしくお願いします。

回答No.1

AlexSuns

いっきに罫線は引いたらいいのではないですか？
＃値やら数式などがあるのかもしれませんが・・・

x1 = 1
y1 = 1
x2 = 5
y2 = 15

xlBorders = xlSheet.Range(xlSheet.Cells(y1, x1), xlSheet.Cells(y2, x2)).Borders
xlBorders.LineStyle = Excel.XlLineStyle.xlContinuous
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBorders)
xlBorders = Nothing

これで表の枠組みができます

あとReleaseComObjectを使用して参照カウンタを意識しているのはいいのですが、
まだ暗黙の参照がありますよ
(RangeオブジェクトとCellsオブジェクト)

あと単にコピーという手順だけでしたら、エクセルの「ツール」→「マクロ」→「新しいマクロの記録」にて取得できます

お礼

ご回答ありがとうございます。
先にセルに値を設定してから最後に枠組みをご回答通りに行ったら、処理速度が速くなりました。
あとオブジェクト参照ですが、Excelの終了処理を作成し、そこですべて解放を行っていますのでプロセスが残ったりということは今のところありません。
ご回答とても参考になりました。ありがとうございます。