For nI = 1 To 23 'UPGRADE_WARNING: Couldn't resolve default property of object apExcel.ActiveCell. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' Call SetBorder(apExcel.ActiveCell.Borders, Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop, Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous, Microsoft.Office.Interop.Excel.XlBorderWeight.xlMedium) 'UPGRADE_WARNING: Couldn't resolve default property of object apExcel.ActiveCell. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' apExcel.ActiveCell.Offset(0, 1).Activate() Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)