使用vbscript宏在excel中设置border属性

Question

我有一个用vbscript编写的宏，它填充了一个excel工作表，数据从我的数据库中提取。我需要格式化一行以在三列上具有顶部边框。我没有尝试过的作品。这里就是我需要的边界

objExcel.Cells(rowNum + 2, 6).Value = "SUB TOTAL" 
objExcel.Cells(rowNum + 2, 8).Value ="=SUM(H7:H"&finalRowNum&")"    'Extended Cost subtotal' 
objExcel.Cells(rowNum + 2, 9).Value ="=SUM(I7:I"&finalRowNum&")"    'low price subtotal' 
objExcel.Cells(rowNum + 2, 10).Value ="=SUM(J7:J"&finalRowNum&")"   'list price subtotal' 
objExcel.Cells(rowNum + 2, 11).Value = "=H"&finalRowNum + 1&"*L"&finalRowNum + 1  'price quote'  'for included the markup going on the subtotal for all quoted items 
objExcel.Cells(rowNum + 2, 12).Value ="2.00" 
objExcel.Cells(rowNum + 2, 12).Interior.Color = RGB(255, 255, 153) 

Answer 1

我把它用这个

subTotalRange = "F" &rowNum +2&":L"&rowNum + 2 
objWorkSheet.Range(subTotalRange).Borders(8).linestyle= 1 

工作