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
Friday, June 15, 2018
Format cell text in Excel using VBA
Subscribe to:
Post Comments (Atom)
 
No comments:
Post a Comment