在 Microsoft Word 中使用 VBA 查找 excel 工作表中使用的最后一列

Question

我需要使用 MS Word 中的 VBA 對 excel 工作表進行操作。

當我嘗試捕獲 LastCol 值時，我無法理解為什么會出錯：

Dim mXL As Object
Dim mWBook As Object
Dim mSheet As Object
Dim C As Long, R As Long
Dim LastRow As Long, LastCol As Long

Set mXL = CreateObject("Excel.Application")
mXL.Visible = True
Set mWBook = mXL.Workbooks.Open("c:\test\test.xlsx")
Set mSheet = mWBook.sheets(1)
LastCol = mSheet.Cells(1, mSheet.Columns.Count).End(xlToLeft).Column 'THIS ISN'T WORKIMG
LastCol = mSheet.Cells(1, 1).End(xlToRight).Column 'This also gives error

Answer 1

您正在使用后期綁定，所以 Word 不知道xlToLeft和xlToRight是什么，因為它們來自Excel object model。

添加以下內容：

Const xlToLeft As Long = -4159
Const xlToRight As Long = -4161

基於XLDirection枚舉中的相應值。

Answer 2

正如@BigBen 提到的，您不能使用 Excel 的枚舉與后期綁定。 改用枚舉值（ https://docs.microsoft.com/en-us/office/vba/api/excel.xldirection ）