n=adodc1recordsetrecordcount,b=6 With xlAppActiveSheetRange("A2:F" & n)Borders LineStyle = 1 Weight = 2 End Withvb给excel添加边框问题
