Microsoft Access 掲示板

Microsoft Access 掲示板

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

3 コメント
views
4 フォロー
1
hatena 2024/11/02 (土) 01:40:45

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

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

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

通報 ...
  • 2
    hatena 2024/11/02 (土) 02:05:01 >> 1

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

    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