将网格线添加到Excel工作表

Question

在下面的代码中，如何在整个Excel工作表中添加网格线？

    Set objApp = CreateObject("Excel.Application")

    objApp.Visible = True
    Set wb = objApp.Workbooks.Open("template.xls", True, False)
    wb.Sheets(1).Rows(3).Delete
    wb.Sheets(1).Range("A1").Value = title
    'need to format column E & F as currency

    Set objApp = Nothing

Answer 1

这是一个很长的答案（录制宏时Excel VBA生成的代码）。你绝对可以缩短它。例如，您不需要设置.ColorIndex或.TintAndShade属性来执行标准黑色[编辑] 边框。

Cells.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With

修改

对于网格线：

ActiveWindow.DisplayGridlines = True

你也可以使用：

Windows(1).DisplayGridlines = True

Answer 2

试试这个：

ActiveWindow.DisplayGridlines = True

这应该打开网格线。当然，将属性设置为False会将其关闭。