I have searched many posts to top align excel cells while doing export to excel with lotus script, finally I got this working code:
Const xlTop=-4160
Set xlApp = CreateObject("Excel.Application")
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
xlsheet.Cells.Select
Set xlSelection=xlApp.Selection
xlSelection.VerticalAlignment = xlTop
Const xlTop=-4160
Set xlApp = CreateObject("Excel.Application")
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
xlsheet.Cells.Select
Set xlSelection=xlApp.Selection
xlSelection.VerticalAlignment = xlTop
Comments