使用 Word VBA 2007 檢查 Excel 中單元格的文本對齊方式

Question

我知道以下 Word VBA 2007 代碼

objExcel.ActiveWorkbook.Sheets("Book1").Cells(3, 4)

可以獲取名為“Book1”的已打開 Excel 工作簿 工作表的單元格 D3（第 3 行，第 4 列）內的文本。 但是如何獲得單元格的對齊方式（即左、右、居中或對齊）？ 謝謝！

Answer 1

有兩個方面控制水平單元格對齊。 第一個是手動或通過代碼應用的強制非默認單元格對齊。 第二種是xlGeneral格式，根據數據的性質可以右對齊、左對齊或居中對齊。

With objExcel.ActiveWorkbook.Sheets("Book1")
    Select Case .Cells(3, 4).HorizontalAlignment
        Case xlRight        ' equal to -4152
            Debug.Print "The cell is right-aligned."
        Case xlCenter       ' equal to -4108
            Debug.Print "The cell is center-aligned."
        Case xlLeft         ' equal to -4131
            Debug.Print "The cell is left-aligned."
        Case xlGeneral      ' equal to 1
            Select Case Application.Evaluate("TYPE(" & .Cells(3, 4).Address(0, 0, external:=True) & ")")
                Case 1
                    Debug.Print "The cell is right-aligned."
                Case 2
                    Debug.Print "The cell is left-aligned."
                Case 4, 16
                    Debug.Print "The cell is center-aligned."
                Case Else
                    Debug.Print "The cell is part of an array."
            End Select
    End Select
End With

您確定這是您的工作表而不是您的工作簿，稱為Book1嗎？