请教：把mshflexgrid表导进excel后，只有数据，没有表格线，如何在代码中实现表格线。

Question

.Range(.Cells(1, 1), .Cells(3, 3)).BorderAround LineStyle:=xlContinuous, Weight:=xlHairline
.Range(.Cells(1, 1), .Cells(3, 3)).Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Range(.Cells(1, 1), .Cells(3, 3)).Borders(xlInsideHorizontal).Weight = xlHairline
.Range(.Cells(1, 1), .Cells(3, 3)).Borders(xlInsideVertical).LineStyle = xlContinuous
.Range(.Cells(1, 1), .Cells(3, 3)).Borders(xlInsideVertical).Weight = xlHairline

Answer 1

With xlSheet
...
End With

Answer 2

With xlSheet
....
End With

Answer 3

.Range(.Cells(1, 1), .Cells(3, 3)).BorderAround LineStyle:=xlContinuous, Weight:=xlHairline
这条语句执行不过去，vb提示“类的range的borderaround方法无效”
请问如何解决？