访问带有粗边框线的 Excel 报告？答案

【问题标题】：Access report to Excel with bold border lines?访问带有粗边框线的 Excel 报告？
【发布时间】：2017-11-15 19:59:26
【问题描述】：

我有一个 Access 程序，它从 ERP 中获取 2 个不同的相关导出 csv 报告，并读取它们并在 excel 输出上创建。我想让 excel 在“单元格格式”和“边框”中有更好的网格线，然后点击“大纲”和“内部”，这样更容易阅读。

如果我可以将其添加到显示的创建 excel 输出的代码中，我想这样做。

Do Until mydeptset.EOF
            mypos = mydeptset.AbsolutePosition
            If mypos > 0 Then
                If Int(mypos / 10) > 0 Then
                    If mypos Mod 10 = 0 Then
                        m = 2
                        n = k + 5
                        .Activate
                         .Range("A1:AF5").Select
                         myxls.Selection.Copy

                         .Range("A" & CStr(n)).Select
                         .Paste
                         .Range("A" & n + 3 & ":AF" & CStr(n + 3)).Clear
                         mydtset.MoveFirst
                         n = n + 5
                         k = n
                         Do Until mydtset.EOF
                            .Cells(k, 1) = mydtset!dt
                            mydtset.MoveNext
                            k = k + 1
                        Loop
                        .Cells(k, 1) = "Tot"
                        .Cells(k, 1).HorizontalAlignment = 2
                        .Cells(k, 1).Font.Bold = True
                    End If
                End If
            Else
                n = 4
                 mydtset.MoveFirst
                 m = 2
                k = 6
                Do Until mydtset.EOF
                    .Cells(k, 1) = mydtset!dt
                    mydtset.MoveNext
                    k = k + 1
                Loop
                .Cells(k, 1) = "Tot"
                .Cells(k, 1).HorizontalAlignment = 2
                .Cells(k, 1).Font.Bold = True
            End If
            If n = 4 Then
                k = 4
            Else
                k = n - 2
            End If
                .Cells(k, m) = mydeptset!drname
                With .Cells(k, m)
                    .Font.Bold = True
                    .Font.Size = 8
                    .HorizontalAlignment = 1
                End With

【问题讨论】：

标签： vba ms-access-2007

【解决方案1】：

.Range("A1:B6").Borders.LineStyle=1

【讨论】：