Friday, June 15, 2018

Format cell text in Excel using VBA

    Dim wsName As String
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet        

    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Open(curPath & "\Template\template.xlsx", , False)
    Set xlWS = xlWB.Sheets(1)
    xlWS.Activate        

    With xlWS.Cells(row, col)
        .Font.Name = "Cambria"
        .Font.Bold = True
        .Font.Size = 14
        .Value = "Total Compensation Statement"
        .VerticalAlignment = xlVAlignTop
        .HorizontalAlignment = xlCenterAcrossSelection
    End With

No comments:

Post a Comment