AccessVBAから、Excelシート内の列の書式設定がしたい！！

質問

とうとう朝になってしまいました。
もう丸2日間も悩んでいます。
どなたか解決方法をご存知の方、よろしくお願いいたします。

AccessVBA内のモジュールからExcelファイルを開いて、そこへデータを出力するという処理は動きます。
そこで、出力する前に、Excelのセルの書式設定を列毎にしようとしていますが、どうしても上手くいきません。

下記のような感じでは、使えないのでしょうか？

Set xls = GetObject("c:AAA\TEST.xls")
xls.Application.Windows(1).Visible = True
xls.Application.worksheets("sheet1").Activate
xls.Application.worksheets("sheet1").RANGE("A:A").Selection.NumberFormatLocal = "\#,##0;\-#,##0"

なにか良い方法がありましたら教えてください！！
よろしくお願い致します。

回答No.3

wingtodo · ベストアンサー

No1さんの回答の
xlApp.cells(1, 1).NumberFormat = "$#,##0;$-#,##0"
を
xlApp.Columns("A:A").NumberFormatLocal = "\#,##0;\-#,##0"
したらどうでしょ

お礼

上手くいきました。
ありがとうございました。m(_ _)m

回答No.2

yokomaya

逆にACCESS知らないんですけどEXCEL党の僕からみると明らかにSelectionが要らないです。

お礼

回答ありがとうございました。m(＿＿)m
ちょっと試してみましたが、
今回の件では、
Selectionはあまり問題ではさそうでした。

回答No.1

noname#22222

Excel は操作したこともないプログラマですが、
なるほど、失敗しますね！

Private Sub cmdImport_Click()
　　Dim xlApp　As Object
　　Dim xlBook As Object

　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.workbooks.Open("D:\Sales2005\営業報告書.xls")
　　xlApp.Visible = True
　　xlApp.cells(1, 1) = 123400
　　xlApp.cells(1, 1).NumberFormat = "$#,##0;$-#,##0"
End Sub

これで、\123,400 と表示されました。
ビックリしたーという感じです！

補足

回答ありがとうございます。m(＿ ＿)m

参考書などにも、cellsの例は載っているので、多分cells　だと上手くいくと思います。
ここがRangeでも上手くいくと良いのですが・・・。

後ほど、上記の文を応用して、試してみようと思います。
上手くいくといいです・・・。