エクスポートされたエクセルの塗りつぶしの色について

解決済

質問者：jinlock
質問日時：2013/09/10 14:25
回答数：3件

accessのフォームに表示されているデータを
Excelワークシートにエクスポートをクリックし
"ファイル形式はExcelブック(xlsx)"を選択したときにおける
エクセルのファイルについてです。

そのエクセルの塗りつぶしの色をクリックすると
1回では塗れなく、2回目で色が変わるという状況です。

accessのテキストボックスの背景色で白に表示される色を
選択しているとこのような状況になることまではわかりましたが、
2回という手間を減らすため何か別の方法はないでしょうか？

なおフォームのデータはクエリビルダから複数のテーブルを
選択して作成してあるものです。

解る方がいらっしゃいましたら回答お願いします。

通報する

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

質問の本文を隠す

回答 (3件)

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

No.3ベストアンサー

回答者： oka_me
回答日時：2013/09/11 21:15

どうやら、フォーム（レポート）のエクスポート時はチェックを外せないみたいですね。

。。
http://office.microsoft.com/ja-jp/access-help/HA …

クエリビルダ使用ではなく、普通にクエリを作成し表示の際はフォームのレコードソースにして、
エクスポートの際はクエリを基に・・・という方法では駄目でしょうか？
（その方が後々の融通も効きやすいと思いますし・・）

もしくはVBA利用でしたら#2の方の回答をお借りしますが
acOutputTable を acOutputFormに変更し
オブジェクト名には該当フォーム名を指定すれば出来るかと思います。。

- 0
- 件

通報する

この回答へのお礼

再度お答えいただきありがとうございます。
acOutputFormに変更し色を白にしたらできました。
クエリを基にしたかったのですが、
Where条件で年月をソートしており、
その条件もエクセルに表示したかったのであきらめました。

ありがとうございました。

通報する

お礼日時：2013/09/12 14:34

No.2

回答者： tsubuyuki
回答日時：2013/09/11 00:14

例えば、こんな感じでどうでしょう？

２００７以降じゃないとダメかもですが・・・

Sub sample()
Dim FName As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

　　FName = "c:\FULLPATH\name.xlsx"
　　DoCmd.OutputTo acOutputTable, "テーブル１", "ExcelWorkbook(*.xlsx)", _
　　　　　　　　FName, False, "", , acExportQualityPrint

　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Workbooks.Open(FName)
　　Set xlSheet = xlBook.Worksheets(1)

　　xlApp.Range("A:A").EntireColumn.AutoFit　　'テスト１「列幅＝自動」
　　xlApp.Columns("A:A").Interior.Color = 65535　　'テスト２「黄色で塗り潰し」
　　xlApp.Visible = True

　　Set xlSheet = Nothing
　　Set xlBook = Nothing
　　Set xlApp = Nothing
End Sub