excel表格没有边框显示的方法？

Posted 2023-04-26

参考技术A 最近与不少小伙伴向我们反映说excel表格在打印的时候出现没有边框的情况，针对这种情况应该怎么解决呢？别着急，今天小编带来了关于excel表格打印没有边框的具体解决办法，快来看看吧。
具体如下:
1、首先，将你要打印的部分选中。

2、在选中位置处点击右键，并选中：设置单元格格式。

3、打印没有边框解决步骤3：然后就可以根据自己的需要选择相应的边框样式，和边框的颜色，默认是黑色的。

4、然后再根据需要打印边框的地方，点击相应图形，最后点击确定即可。
好了。只需要按照上述操作步骤进行设置之后，就可以解决excel表格打印没有边框问题的问题了，希望本篇文章对小伙伴有帮助。
本文章基于Dell品牌、Windows10系统、MicrosoftOfficeExcel2019版本撰写的。

删除表格excel VBA的部分边框

【中文标题】删除表格excel VBA的部分边框

【英文标题】：Remove part of the border of a table excel VBA

【发布时间】：2022-01-14 19:57:01

【问题描述】：

我们有时必须在工作中填写一组表格，我正在尝试通过让 excel VBA 将表格重新创建为 word 文档并填充适当的数据并打印为 pdf 来自动完成任务.我被困在删除边框线样式上。我希望左侧没有边界线。我尝试了不同的方法，根据我的理解，最有可能起作用的方法如下： （注意：“.Border(xlEdgeleft).LineStyle = xlLineStyleNone”是给我带来麻烦的行）

Sub main()

Dim objWord As Object
Dim objDoc As Object
Dim objHdrRange As Object
Dim myTable As Object

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
Set objHdrRange = objDoc.Sections(1).headers(1).Range
Set myTable = objWord.activedocument.tables.Add(objHdrRange, 5, 5)

With myTable
    .Borders.enable = True
    .Border(xlEdgeleft).LineStyle = xlLineStyleNone
   ‘more code goes here later
End With

Set objDoc = Nothing
Set objHdrRange = Nothing
objWord.Quit

End Sub

【参考方案1】：

xlEdgeLeft 和 xlLineStyleNone 来自 Excel 对象模型，而不是 Word 对象模型，您需要后者。

由于您是后期绑定，您可以添加以下行：

Const wdBorderLeft As Long = -2
Const wdLineStyleNone As Long = 0

并将xlEdgeLeft 和xlLineStyleNone 分别替换为这些。

有关更多详细信息，请参阅 WdBorderType 和 WdLineStyle 枚举文档。

【讨论】：

非常感谢！这几乎是 100% 正确的。但是有一个问题，在我的例子中。我有“边界”这个词而不是“边界”。显然，它需要是一个边框对象才能运行。

啊，是的，我忽略了这一点，很好。