Как пройти через лист excel от слова

Question

Я изо всех сил пытаюсь выяснить, как я могу перебирать все строки в excel от слова. Я хочу добиться того, что если в столбце WP в excel есть что-то, сохраните активный 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 

Edit1:

Вот скорректированный функция, которая решает вашу проблему (я проверил это на моей машине)

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