Top align excel cells in vbscript or lotusscript

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

Comments

Sikkim Darjeeling Tour

Visited Sikkim and Darjeeling on 13-Jun-2015 to 20-Jun-2015 with my wife. Here is trip information which you might find helpful to plan your North East trip Day 1 - 1) Mumbai to Bagdogra flight ( Rs 8000 per person) 2) Bagdogra to Kalimpong (Prepaid cab Rs 1400, 3 hours) 3) Kalimpong siteseeing (takes 2 - 3 hours) 1. Cactus Nurseries 2. Durbin Dara Monastery 3. Mangal Dham 4. Deolo Hill 4) Kalimpong to Gangtok (2.5 hours) Full day taxi 4200 Overnight stay at Gangtok Day 2 - 1) Gangtok 10 point siteseeing (local taxi Rs 1600. 5 hours) 1. Bakhtang waterfall 2. Gunjung Monetrary 3. Tashi view point 4. Lasa waterfall 5. Plant Consertaion 6. Ganesh Tok 7. Flower show (must visit) 8. Ropeway 9. Institute of Tibetology (Closed on Sunday) 10. Dro Dul Chorten (stupa) 11. Institute of Handicrafts and Handloom (Closed on Sunday) Day 3 - 1) Gangtok siteseeing (local taxi Rs 1800, 7 ho

Excel freeze panes in vbscript or lotusscript

Freeze 1st row of excel: Set xlApp = CreateObject("Excel.Application") xlApp.Rows(2).Select xlApp.ActiveWindow.FreezePanes = True Freeze 1st column of excel: Set xlApp = CreateObject("Excel.Application") xlApp.Columns(2).Select xlApp.ActiveWindow.FreezePanes = True Freeze 1st row AND 1st column of excel: Set xlApp = CreateObject("Excel.Application") xlApp.Range("B2").Select xlApp.ActiveWindow.FreezePanes = True

Welcome to Mihir's Blog

Search This Blog