こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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
-----------------------------------------
どうすれば、中央揃えにできますでしょうか?
よろしくおねがいします。

投稿日時 - 2008-01-25 11:36:28

QNo.3711881

すぐに回答ほしいです

質問者が選んだベストアンサー

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

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

投稿日時 - 2008-01-25 11:58:55

お礼

> Const xlHAlignCenter = -4108

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

投稿日時 - 2008-01-25 12:38:18

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

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

で、対策も同じ・・・

投稿日時 - 2008-01-25 11:58:47

お礼

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

投稿日時 - 2008-01-25 12:35:55

あなたにオススメの質問