VBAでAccessからExcelのセルフォーマットを変更するには？

解決済

質問者：dokumori
質問日時：2006/07/11 00:47
回答数：4件

タイトルのとおり、VBAでAccess2003からExcel2003のセルフォーマットを変更しようとしていますが、Excel上のVBAで利用できるWorksheet-Range-Selectやその他いくつかのメソッドが、Accessからは利用できません（Accessでは"Microsoft Excel 11.0 Object Library"を参照しています）

実現したいのは、AccessからExcelのセルの結合をすること・書式（文字列、日付等）を変更することなのですが、これらのメソッドを利用できないとなると、ほかに方法が思いつきません。

もしご存知でしたらお教えいただければ幸いです。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： Gin_F
回答日時：2006/07/11 07:51

> Excel上のVBAで利用できるWorksheet-Range-Selectやその他いくつかのメソッドが、

> Accessからは利用できません

使えます。が、Access（など他のアプリ）から使う場合は、Application オブジェクト
から参照する必要があります。

コード例としては、

Visual Basic を使用して Microsoft Excel を自動化する方法
http://support.microsoft.com/kb/219151/ja

こちらが参考になると思います。
また、以下についても参照してください。

ダウンロードセンターで入手可能な Microsoft Office 2000 オートメーションのヘルプファイル
http://support.microsoft.com/kb/260410/ja

- 1
- 件

通報する

この回答へのお礼

Applicationオブジェクトからの参照なのですね。MSのリンクも大変有用です。有難うございました。大変助かりました。

通報する

お礼日時：2006/07/12 00:03

No.4

回答者： BLUEPIXY
回答日時：2006/07/11 12:47

#1>selectメソッドのところでエラーが出ます。

メッセージは「このメソッドは、このオブジェクトではサポートされていない」というようなものです。
関連する部分で、こちらでテストをしてみることができるようなソースを補足していただけますか？

- 0
- 件

通報する

この回答へのお礼

解決しましたのでソースをお渡しするのは見合わせますが、お申し出ありがとうございました。

通報する

お礼日時：2006/07/12 00:10

No.3

回答者： mamappi82
回答日時：2006/07/11 10:40

>実現したいのは、AccessからExcelのセルの結合をすること・書式（文字列、日付等）を変更することなのですが、これらのメソッドを利用できないとなると、ほかに方法が思いつきません。

私も、2，3日前似たような質問を出しました。
その時教えてもらった回答で記述した一部を下記に記述します。
私はこれで書式変更、上手くいってます。
参考になればよいですが・・・。(参考にならなかったらごめんなさい。)

Dim xls As Object
Set xls = CreateObject("Excel.Sheet")

xls.Application.Columns("A:O").NumberFormatLocal = "@"
xls.Application.Columns("Q:S").NumberFormatLocal = "@"
xls.Application.Columns("W:W").NumberFormatLocal = "\#,##0;\-#,##0"

xls.Application.Quit
Set xls = Nothing

- 0
- 件

通報する

この回答へのお礼

試してみましたが、確かに使えそうです。ありがとうございました。
いろいろな書き方があるのですね。勉強になりました。

通報する

お礼日時：2006/07/12 00:08

No.1

回答者： BLUEPIXY
回答日時：2006/07/11 01:41

私は２００２ユーザなので２００３について確かなことは言えませんけど、

＞Excel上のVBAで利用できるWorksheet-Range-Selectやその他いくつかのメソッドが、Accessからは利用できません
は、何かの勘違いだと思います。
表示からオブジェクトブラウザでライブラリにExcelを選べば、使えるメソッドが確認できます。
おそらく、画面上でメソッドなどが補完されない場合があるのでそれでそう思ったのじゃないですか。
補完がされない場合でも、オブジェクトに応じたメソッドを記述すれば、ちゃんと動作するはずです。

この回答への補足

アドバイスありがとうございます。
ご指摘に関してですが、補完されないだけでなく、selectメソッド直前にブレイクポイントを打って、そこからF8で一行ずつ実行していくと、selectメソッドのところでエラーが出ます。メッセージは「このメソッドは、このオブジェクトではサポートされていない」というようなものです。
補完されないのでスペルを間違えたかと思い、Excelで作成したマクロをコピペしても同じエラーが表示されます。

ちなみに、Rangeで範囲指定後、セルに直接値を放り込むことは可能です。そのため、表示されるエラーメッセージのとおり、Rangeの特定のメソッドが使えないのではないかと思いました。

他に思い当たることがあればお知らせ下さい。

補足日時：2006/07/11 04:43

通報する