如何从 word 循环遍历 excel sheet

Question

我正在努力寻找如何从 word 循环遍历 excel 中的所有行。我想要实现的是，如果 excel 中的 WP 列中有内容，则使用该文件名保存活动的 worddocument。但是我想不出像获取最后一行这样简单的事情（中间可能是空行），我只是得到错误代码 424，根据 MSDN 的说法，它没有给我任何真正的提示什么是错的。有什么想法吗？

Public Sub test()
Dim xlapp As Object
Set xlapp = CreateObject("Excel.Application")

myFileName = "Z:\Dokumentstyring\UnderArbeid\PARTSLIST.xlsm"
xlapp.Workbooks.Open myFileName
xlapp.Application.ScreenUpdating = False
xlapp.Visible = False

a = xlapp.sheets("List").Range("A1").Value
b = firstBlankRow(xlapp)
c = getColumn("WP", xlapp)

xlapp.Application.ScreenUpdating = True
xlapp.ActiveWorkbook.Close (True)
xlapp.Quit
Set xlapp = Nothing
End Sub

我接收最后一行的函数：

 Function firstBlankRow(ByRef xlapp) As Long
 'returns the row # of the row after the last used row
 'Or the first row with no data in it

With xlapp.sheets("List")
    '~~> Check if there is any data in the sheet
    'If xlapp.WorksheetFunction.CountA(.Cells) <> 0 Then
        firstBlankRow = .Range("A" & .Rows.Count).End(Excel.XlDirection.xlUp).Row
    'Else
        firstBlankRow = 1
    'End If

End With
End Function

这是我获取列号的函数

Public Function getColumn(header As String, ByRef xlapp) As Integer
    Dim rng1 As Range
    With xlapp.sheets("List")
        Set rng1 = .Range(.Cells(1, 1), .Cells(1, Columns.Count)).Find(header, , xlValues, xlWhole)
        If Not rng1 Is Nothing Then
            getColumn = rng1.Column
        Else
            MsgBox "Column " & header & " does not exist, Typo??", vbCritical
            getColumn = -1
        End If

    End With
End Function

Answer 1

根据我们在评论中的对话，将 Dim Rng1 As Range 更改为 Dim Rng1 As Object.

您可以找到 XlDirection, Xlvalues, xlwhole 个枚举的实际值。

最好是这样：

Private Const xlUp as long = -4162 
'and so on

编辑1：

这里有一个调整后的功能可以解决你的问题（我已经在我的机器上测试过了）

Public Function getColumn(header As String, ByRef xlapp) As Long
        Dim rng1 As Object
        With xlapp.sheets("List") 
            Set rng1 = .Range(.Cells(1, 1), .Cells(1, .Columns.Count))
            If rng1 Is Nothing Then
            MsgBox ("ERROR: Range object is empty.")
            getColumn = -1
            Exit Function
            End If
            For Each m In rng1
            If m = "WP" Then
            getColumn = m.Column
            Exit Function
            End If
            Next m
            MsgBox "Column " & header & " does not exist, Typo??", vbCritical
            getColumn = -1
       End With
    End Function

如何从 word 循环遍历 excel sheet

How to loop through an excel sheet from word

excel

vba

ms-word