给excel指定区域画线，如果excel不只一页，每页底下就没有边框？

Question

给excel指定区域画线，如果excel不只一页，每页底下就没有边框？
  ExcelApp.ActiveSheet.Range['A1','M100'].Borders[1].Weight := 2;
  ExcelApp.ActiveSheet.Range['A1','M100'].Borders[3].Weight := 2;
  ExcelApp.ActiveSheet.Range['A1','M100'].Borders[2].Weight := 2;
  ExcelApp.ActiveSheet.Range['A1','M100'].Borders[4].Weight := 2;
无论用以下的还是以下这句，只要超过一页，每页底下就没有边框？
ExcelApp.ActiveSheet.Range['A1','M100'].Borders.Weight := 2;
怎样解决？

Answer 1

晕倒，LZ，有没有发现EXCEL的排列序号是不重复的呀，
他的序号是从第一页开始，一直向下排的，
好好看一下，比如，你需要用第二页的话，将上面的'A1','M100'，中的1与100 分别换成，第二页的启使行，与结束行，比如101与200，这样不断的加就行了，这不是很容易就搞掂了吗？

Answer 2

以前做过，现在很久没操作excel了，具体的也不知道了，
你用excel的VBA宏跟踪分析一下，
可以找出点思路，
希望对你有启发。