Zugriff auf Excel mit fett umrandeten Zeilen?

Question

Ich habe ein Access-Programm, das 2 verschiedene verwandte exportierte CSV-Berichte aus dem ERP und liest sie und erstellt auf Excel-Ausgabe. Ich möchte die Excel haben bessere Rasterlinien bekannt in "Zellen formatieren", dann "Border", dann drücken Sie "Outline" und "Inside" das macht es einfacher zu lesen.

Ich möchte, wenn ich dies zu meinem Code hinzufügen kann, erstellt die Excel-Ausgabe.

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 

Answer 1

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