Sheet(3,i).Style.BorderColorTop.ToKnownColor '返回的是枚举数字
Sheet(3,i).Style.BorderColorTop.ToKnownColor.ToString '返回的是名称 如:Black Color.要自己加上
如果是自定义颜色,都返回0