vbs 文字位置を中央に

vbscriptでエクセルファイルへ出力するスクリプトを作成しています。

エクセルファイルのセルに文字列を入力し、文字を中央揃えにしたいのですが、うまくいきません。
-----------------------------------------
Dim FSO, objExcel, objBook, objSheet

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objBook = objExcel.Workbooks.Add
Set objSheet = objExcel.Worksheets("Sheet1")

objSheet.range("a1") = "test"
objSheet.range("a1").HorizontalAlignment = xlHAlignCenter

Set FSO = Nothing : objExcel = Nothing : Set objBook = Nothing : Set objSheet = Nothing
-----------------------------------------
どうすれば、中央揃えにできますでしょうか？
よろしくおねがいします。

No.2 ベストアンサー 回答者： ara-ken 回答日時： 2008/01/25 11:58

xlHAlignCenterは定義されていませんよ。

値は-4108なので
Const　xlHAlignCenter　=　-4108
とでも定義してみてください。

参考URL：http://msdn.microsoft.com/library/ja/default.asp …

この回答へのお礼

> Const　xlHAlignCenter　=　-4108

定義したら、動作確認できました。
ありがとうございました。

お礼日時：2008/01/25 12:38

No.1 回答者： dsuekichi 回答日時： 2008/01/25 11:58

> objSheet.range("a1").HorizontalAlignment = 『xlHAlignCenter』

・・・先月の質問と、同じ全く同じ原因では？
（http://okwave.jp/qa3613978.html）

で、対策も同じ・・・

この回答へのお礼

ご指摘ありがとうございます。
どうも「定義する」という頭が足りないようです。

お礼日時：2008/01/25 12:35