MSACCESS VBA: Hinzufügen von Rahmen zu Excel-Blatt

Den unten funktioniert nicht. Wie füge ich Grenzen? Danke!

            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

Was ist deine Fehlermeldung oder wird es einfach nicht funktioniert? Warum wählen Sie die Zellen zuerst? Sie sollten in der Lage sein, um Sie nur objApp.cells direkt.
Keine error-msg. objApp.Zellen.Grenzen hat nicht funktioniert.

InformationsquelleAutor Bruno | 2011-08-23

2
```
Set wb = objApp.Workbooks.Open("aFile.xls", True, False)
wb.Sheets(1).UsedRange.Borders.Weight=xlThin
```
Besser zu vermeiden Sie die Formatierung der gesamten Platte unnötig.
- wb.Sheets(1).Range("A:K").Borders.Weight = xlThin Dies hat nicht funktioniert. Es ist nichts passiert.
- Funktioniert bei mir (XL2007). Ist es das erste Blatt, mit dem Sie arbeiten?
- Ich muss etwas anderes zu tun. Ich habe versucht wb.Sheets(1).Activate wb.Sheets(1).Range("A:K").Borders.Weight = xlThick Nichts passiert. Wenn ich die Lösung finden werde ich es hier posten. Danke!
- Tim ' s code funktioniert für mich (2007) zu
InformationsquelleAutor Tim Williams
2

Ich hatte das gleiche Problem und die "Grenzen.Gewicht" Konstruktion funktioniert für mich und es gibt keine Notwendigkeit zu verwenden ".Zellen" bezieht sich auf einen Bereich, entweder. Beispiel:
```
.Range("A11:H11").Borders.Weight = 2
```
InformationsquelleAutor Octopus Prime
1
```
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
```
Dadurch erhalten Sie einen Rahmen um alle Zellen im AKTIVEN Blatt der Arbeitsmappe, die Sie geöffnet. Diaganols sind standardmäßig deaktiviert.
- Wie kann ich festlegen sheets(1) als das aktive Blatt? objApp.ActiveSheet = wb.Sheets(1)?
- Dein code scheint zu sein, platzieren Sie einen Rahmen um die Aktive Zelle. Wie wähle ich das Aktive Blatt? Danke.
- wb.Sheets(1).Aktivieren aktivieren Sie das erste Blatt.
InformationsquelleAutor Banjoe
0

Den VBA-code hat bei mir nicht funktioniert, so entdeckte ich einen workaround. Da war ich mit einer Excel-Vorlage zum erstellen der Excel-Tabelle. Ich veränderte die Excel-Vorlage zu drucken Gitternetzlinien.

Aktivieren von Gitternetzlinien Drucken:

Excel - > Drucken, Vorschau > Seite Einrichten > Datenblatt > Häkchen Gitternetzlinien unter Druck.

InformationsquelleAutor Bruno

Das problem ist, dass Access nicht weiß, die Excel-Enumerationen, versuchen Sie dies:

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

InformationsquelleAutor Daniele Calanchi

Habe ich schon ziemlich lange, nach der Lektüre dieses Koreferat es gab mir einige Ideen, und ich änderte meinen codes entsprechend, und es funktioniert für mich.. Hier ist der code mit Euch teilen..

Formatieren alle Grenzen hinweg xlMedium:

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

Formatieren nur die linke Grenze zu xlMedium:

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

Wenn Sie möchte haben unterschiedliche linestyle:

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

Hoffe es hilft

InformationsquelleAutor Max Ooi

-1

Erhalten Sie die Arbeitsmappe und Arbeitsblatt als Variablen, dann setzen Sie einfach die Grenzen für den verwendeten Bereich.
```
Set objXLBook = objXLApp.Workbooks.Open(strXLSFile)
Set objXLSheet = objXLBook.Sheets("Name of Sheet")

objXLSheet.UsedRange.Borders.LineStyle = xlContinuous
```
- Willkommen ALSO. Diese Antwort ist eine weniger vollständige version des vorherigen Antworten zu einem acht Jahre alten Frage. Bitte betrachten Sie die Formatierung mit der inline-code-Blöcke und das hinzufügen von Erklärung / Aufklärung, die unterstreichen, warum ist das eine bessere Antwort als die vorherigen Satz.
InformationsquelleAutor Bill Riendeau

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.