Access中對Excel文件設置字體格式

access 除瞭把數(shù)據(jù)導齣到Excel中，還需要對導齣的數(shù)據(jù)設置一定的字體格式。

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

如這裡先對所有已使用的單元格設置格式，再對錶頭設置格式（字號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     '設置已使用的單元格區(qū)域格式
        .Font.Name = "Times New Roman "
        .Font.Size = 10
    End With
    
    With xlWsh.Range("1:1")    '設置第一行的單元格區(qū)域格式
        .Font.Size = 14
        .Font.Name = "微軟雅黑"
        .Font.Bold = True
        .Font.TintAndShade = True
    End With
    
    Set xlWsh = Nothing
    Set xlWbk = Nothing
    Set xlApp = Nothing

設置效果如圖：