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

noname#219128 · ベストアンサー

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

参考URL：

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/owcvba11/html/ochowConstants.asp

お礼

> Const　xlHAlignCenter　=　-4108

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

回答No.1

dsuekichi

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

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

で、対策も同じ・・・

お礼

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