Microsoft Access 掲示板

EXCEL出力したファイルの文字ポイント数について

3 コメント
views
4 フォロー

ACCESSから、DoCmd.TransferSpreadsheet acExport、を用いてEXCEL出力をしています。
EXCELのモード番号を 「8」 にして、XLS形式で出力すると文字ポイント10で出力できますが、
モード番号を 「10」 にして、XLSX形式で出力すると文字ポイントは11になってしまいます。
EXCELの新規作成シートは10ポイントで設定しています。
できればXLSX形式で10ポイントで出力したいのですが、方法はございますでしょうか。

かーか
作成: 2024/11/01 (金) 13:21:15
通報 ...
1

エクスポートしたブックを、VBAで開いてフォントを変更するしかないような気がします。

Accessからエクセルを開いて操作する方法は下記あたりを参考に。

【Access VBA】AccessからExcelを操作する方法 #ポートフォリオ - Qiita

2

下記のサンプルコードでうまくいくことを確認しました。

Public Sub Sample()
    Const ExcelFileName = "C:\test\Tbl1.xlsx"
    DoCmd.TransferSpreadsheet acExport, 10, "Tbl1", ExcelFileName, True
    
    Dim objExcel As Object, objWb As Object, objWs As Object
    Set objExcel = CreateObject("Excel.Application")
    Set objWb = objExcel.Workbooks.Open(ExcelFileName)
    Set objWs = objWb.Worksheets(1)
    objWs.cells.Font.Size = 10
    objWb.Save
    objWb.Close
    objExcel.Quit
    Set objExcel = Nothing
End Sub
3
かーか 2024/11/02 (土) 19:58:50 a1528@b5300

ご丁寧な対応ありがとうございました。
わたくしのスキルでは1行ずつ解析する必要がありますので、これから取り組んでみます。