MSACCESS VBA：将边框添加到Excel工作表

以下不起作用。我如何添加边框？谢谢！MSACCESS VBA：将边框添加到Excel工作表

  Set objApp = CreateObject("Excel.Application") 
      objApp.Visible = True 
      Set wb = objApp.Workbooks.Open("aFile.xls", True, False) 
      objApp.Cells.Select 
      objApp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone 
      objApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone 
      With objApp.Selection.Borders(xlEdgeLeft) 
       .LineStyle = xlContinuous 
       .ColorIndex = 0 
       .TintAndShade = 0 
       .Weight = xlThin 
      End With 
      With objApp.Selection.Borders(xlEdgeTop) 
       .LineStyle = xlContinuous 
       .ColorIndex = 0 
       .TintAndShade = 0 
       .Weight = xlThin 
      End With 
      With objApp.Selection.Borders(xlEdgeBottom) 
       .LineStyle = xlContinuous 
       .ColorIndex = 0 
       .TintAndShade = 0 
       .Weight = xlThin 
      End With 
      With objApp.Selection.Borders(xlEdgeRight) 
       .LineStyle = xlContinuous 
       .ColorIndex = 0 
       .TintAndShade = 0 
       .Weight = xlThin 
      End With 
      With objApp.Selection.Borders(xlInsideVertical) 
       .LineStyle = xlContinuous 
       .ColorIndex = 0 
       .TintAndShade = 0 
       .Weight = xlThin 
      End With 
      With objApp.Selection.Borders(xlInsideHorizontal) 
       .LineStyle = xlContinuous 
       .ColorIndex = 0 
       .TintAndShade = 0 
       .Weight = xlThin 
      End With 

      Set objApp = Nothing

来源

2011-08-23 Bruno

什么是您的错误信息还是它不工作？为什么首先选择细胞？你应该可以直接使用'objApp.cells'。 – Banjoe

没有错误消息。 objApp.Cells.Borders不起作用。 – Bruno

VBA代码没有为我工作，所以我发现了一种解决方法。因为我使用Excel模板创建Excel工作表。我修改了Excel模板以打印网格线。

为了使网格线打印：

的Excel>打印预览>页面设置>页>检查下打印标记网格线。

来源

2011-08-25 13:44:59 Bruno

Set objApp = CreateObject("Excel.Application") 
objApp.Visible = True 
Set wb = objApp.Workbooks.Open("aFile.xls", True, False) 
With objApp.Cells.Borders 
    .LineStyle = xlContinuous 
    .Weight = xlThin 
    .ColorIndex = 0 
End With

这应该给你周围的所有单元格边框上，你打开的工作簿中的工作表。 Diaganols默认关闭。

来源

2011-08-23 20:32:01 Banjoe

如何将纸张（1）设置为活动纸张？ objApp.ActiveSheet = wb.Sheets（1）？ – Bruno

你的代码似乎是围绕活动单元放置边框。如何选择活动工作表？谢谢。 – Bruno

wb.Sheets（1）.Activate将激活第一张纸。 –

Set wb = objApp.Workbooks.Open("aFile.xls", True, False) 
wb.Sheets(1).UsedRange.Borders.Weight=xlThin

更好的是避免不必要地格式化整张纸。

来源

2011-08-23 21:34:25

'wb.Sheets（1）.Range（“A：K”）。Borders.Weight = xlThin'这不起作用。什么都没发生。 – Bruno

适用于我（XL2007）。这是你正在使用的第一张纸吗？ –

我必须做一些不同的事情。我试过'wb.Sheets（1）.Activate wb.Sheets（1）.Range（“A：K”）。Borders.Weight = xlThick'什么都没发生。如果我找到解决方案，我会在这里发布。谢谢！ – Bruno

的问题是，Access不知道Excel的枚举，试试这个：

Function CreateBorders(Range As Object) 
    With Range.Borders(7) 
     .LineStyle = 1 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = 2 
    End With 
    With Range.Borders(8) 
     .LineStyle = 1 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = 2 
    End With 
    With Range.Borders(9) 
     .LineStyle = 1 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = 2 
    End With 
    With Range.Borders(10) 
     .LineStyle = 1 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = 2 
    End With 
    With Range.Borders(11) 
     .LineStyle = 1 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = 2 
    End With 
    With Range.Borders(12) 
     .LineStyle = 1 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = 2 
    End With 
End Function

来源

2013-04-16 11:52:47

我一直在这个相当长的时间，阅读本dicussion后，它给了我一些想法，我改变了我因此代码和它的作品对我..这里是与大家分享代码..

要格式化所有边框xlMedium：

With objApp.Worksheets("AR Tab").Range(.cells(4, 5), .cells(4, 8)) 
    '.LineStyle = xlMedium  
    .Borders.Weight = 3 
End With

要仅左边框的格式，以XLM edium：

With objApp.Worksheets("AR Tab").Range(.cells(4, 5), .cells(4, 8)) 
    '.LineStyle = xlMedium 
    .Borders("1").Weight = 3 
End With

如果你想有不同的线型：

.Borders("1").LineStyle = 1 'Line Style xlContinues 
.Borders("1").LineStyle = 2 'Line Style xlDash

希望它可以帮助

来源

2013-04-18 06:36:30

我有同样的问题和“borders.weight”建设为我的作品和有不需要使用“.cells”来引用一个范围。例如：

.Range("A11:H11").Borders.Weight = 2

来源

2015-10-23 08:32:28

MSACCESS VBA：将边框添加到Excel工作表

回答

相关问题