VB2005でのEXCEL操作

いつもお世話になってます。
VBレスキュー花ちゃんを参考にやってみたのですがうまくいかないのでアドバイス頂きたいと思います。

下記のコードにてセル内にテキストを書き、罫線をつけたあと
文字を中央揃えにする場合は、どのようにすればいいのでしょうか。
エクセルにてマクロ記録を行い、開いたところ

Range("B1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

と、ありましたがHorizontalAlignment = xlCenterを
xlBook.Worksheets(1).Range("A1")以降に貼り付けても
xlCenterが宣言されていない、とエラーが出てしまいました。

又、空白セルであるE1,F1,G1及びE2,F2,G2、E3,F3,G3は"選択セルの中央揃え"とする場合
HorizontalAlignment = xlCenterAcrossSelection
はどのように転載すればいいのでしょうか。

EXCELとの連携について全然理解できていないことが原因なのですが
VB6を対象としているサイトでもVB2005にそのまま参考となるのでしょうか。
EXCEL操作については基礎の部分から学びたいので、もし私のように
入門者向けに解説を行っているサイトがありましたら教えてください。


Sub excel2()

Dim xlApp As Excel.Application = Nothing
Dim xlBooks As Excel.Workbooks = Nothing
Dim xlBook As Excel.Workbook = Nothing
Dim xlSheets As Excel.Sheets = Nothing
Dim xlSheet As Excel.Worksheet = Nothing
Dim xlRange As Excel.Range = Nothing
Dim xlBorders As Excel.Borders = Nothing
Dim xlBorder As Excel.Border = Nothing
Try ' 必要な変数は Try の中でインスタンス化する
xlApp = New Excel.Application()
xlBooks = xlApp.Workbooks
xlBook = xlBooks.Open("C:\test.xls")
xlSheets = xlBook.Worksheets
xlApp.Visible = True

xlBook.Worksheets(1).Range("A1") = "No."
xlBook.Worksheets(1).Range("B1") = "HOGEHOGE"
xlBook.Worksheets(1).Range("B2") = "番号"
xlBook.Worksheets(1).Range("C1") = "honyarara"
xlBook.Worksheets(1).Range("C2") = "番号"
xlBook.Worksheets(1).Range("D1") = "SAMPLE"
xlBook.Worksheets(1).Range("E4") = "X"
xlBook.Worksheets(1).Range("F4") = "Y"
xlBook.Worksheets(1).Range("G4") = "Z"
'外枠罫線のコードは省略しました


xlApp.Quit()

投稿日時 - 2008-08-22 17:43:46