Dim XLS As Object
Dim WkB As Object
Dim i As Integer
Dim Excel_Adr, Excel_Name, Wk_Excel_Name As String
Excel_Adr = CurrentProject.Path 'Accessの保存されているフォルダ
Excel_Name = Excelファイル名
Wk_Excel_Name = Excelシート名
'クエリーをエクセルに出力（新規Excelファイルへ）
’詳細は［クエリーのエクスポート関数
］参照
Call EXP_Que("クエリー名", Excel_Adr & "\" & Excel_Name, 2)
Set XLS = CreateObject("Excel.application")
Set WkB = XLS.Workbooks.Open(Excel_Adr & "\" & Excel_Name)
'Excelを表示する
XLS.Visible = True
'Excelのワークシート関数を使用
'A列に値が入っているセルの数を取得
i = XLS.Application.CountA(WkB.Worksheets(1).Range("A:A"))
'罫線を引く
WkB.Worksheets(1).Range("A1:C" & i).Borders.LineStyle = xlContinuous
'セル内折り返しを無しにする
WkB.Worksheets(1).Range("A1:C" & i).WrapText = False
'行の高さを自動調整する
WkB.Worksheets(1).Rows("1:" & i).EntireRow.AutoFit
'列幅を自動調整する
WkB.Worksheets(1).Range("A:C").EntireColumn.AutoFit
'条件付き書式を追加する
'上のセルと値が同じ場合
WkB.Worksheets(1).Range("A1:A" & i).FormatConditions.Add Type:=xlExpression, Formula1:="=R[-1]C=RC"
'文字の色を白にする
WkB.Worksheets(1).Range("A1:A" & i).FormatConditions(1).Font.ColorIndex = 2
’シート名の設定
WkB.Worksheets(1).Name =Excelシート名
'Excelを保存する
XLS.Workbooks(Excel_Name).Save
'Excelを閉じる（保存はNoで）
XLS.Workbooks(Excel_Name).Close SaveChanges:=False
Set WkB = Nothing
Set XLS = Nothing