質問: Access エクセルエクスポート時にセルの書式設定 Accessでコマンドボタンのイベントにエクセルエクスポートを設定しています。
回答: EXCELのテンプレートファイル(エクスポートしたエクセルの1行目のみ行幅を100に設定し、折り返して全体を表示)を用意して、 ACCESSのVBAでこのテンプレートファイルを呼び出し、 シート指定、セル位置指定、値だけをセットするようにして、 最後に別名(フォームのファイル名)でファイルを保存する というようにしてはどうでしょう。 EXCELファイルを扱うときは下記の変数を宣言します。 Dim xlApp As Object 'EXCEL Dim xlBook As Object 'ブック(ファイル) Dim xlSheet As Object 'シート Dim lngX1 As Long '列 Dim lngY1 As Long '行 変数のセットはこんな感じです。 Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("D:\Template.xls", 0, False) Set xlSheet = xlBook.Worksheets("シート名") セルへの値セットはこんな感じです。 xlSheet.Cells(lngY1, 1) = RS1![社員番号] xlSheet.Cells(lngY1, 2) = "ABC" xlSheet.Cells(lngY1, 3) = 123.45 xlSheet.Cells(lngY1, 4) = CDate("2002/04/21") セルに式を設定するときはこうです。 xlSheet.Cells(lngY1, 3) = "=A1 + B1" '式のセット A1形式 xlSheet.Cells(lngY1, 4) = "=RC[-2] + RC[-1]" '式のセット R1C1形式 文字色を設定する xlSheet.Cells(lngY1, 1).Font.color = 255 'レッド セル背景色を設定する xlSheet.Cells(lngY1, 3).Interior.color = 10092543 'イエロー 最後に名前を付けて保存します xlApp.DisplayAlerts = False '警告メッセージの抑制 xlBook.SaveAs (FullPath) xlBook.Close 'ブックを閉じる xlApp.Quit 'エクセルの終了 ※テーブル/クエリのレコードセット処理の部分を省略しています。