Access中對(duì)Excel文件設(shè)置字體格式

access 除了把數(shù)據(jù)導(dǎo)出到Excel中，還需要對(duì)導(dǎo)出的數(shù)據(jù)設(shè)置一定的字體格式。

比如設(shè)置表頭格式，這樣能更加醒目地看出表格的內(nèi)容。

如這里先對(duì)所有已使用的單元格設(shè)置格式，再對(duì)表頭設(shè)置格式（字號(hào)14，字體微軟雅黑，加粗，顏色變深）

 Dim xlWbk As Excel.Workbook
    Dim xlWsh As Excel.Worksheet
    Set xlApp = GetObject(, "Excel.Application")
    xlApp.Visible = True
    Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\示例1.xlsx")
    Set xlWsh = xlWbk.Worksheets(1)
    xlWsh.Activate
    
    With xlWsh.UsedRange     '設(shè)置已使用的單元格區(qū)域格式
        .Font.Name = "Times New Roman "
        .Font.Size = 10
    End With
    
    With xlWsh.Range("1:1")    '設(shè)置第一行的單元格區(qū)域格式
        .Font.Size = 14
        .Font.Name = "微軟雅黑"
        .Font.Bold = True
        .Font.TintAndShade = True
    End With
    
    Set xlWsh = Nothing
    Set xlWbk = Nothing
    Set xlApp = Nothing

設(shè)置效果如圖：