ошибка: object doesn't support this property or method 438. возникает на строках c vlookup. замена application bна worksheetfunction не помогаетSub vip0()
| Код |
|---|
Dim ohtm As Object
Dim myShell As Object
Dim myInternetExplorer As Object
Set myShell = CreateObject(class:="Shell.Application")
For Each myInternetExplorer In myShell.Windows
If myInternetExplorer.Name = "Internet Explorer" Then
Exit For
End If
Next myInternetExplorer
If myInternetExplorer Is Nothing Then
Exit Sub
End If
Dim Rz, Nach, Okonch As String
Rz = myInternetExplorer.document.getelementbyid("mx1772")
Nach = Application.VLookup(Rz, Лист1!Range("B2:f90"), 5, False)
Okonch = Application.VLookup(Rz, Лист1!Range("B2:g90"), 6, False)
myInternetExplorer.document.getelementbyid("mx1921").Value = "75"
myInternetExplorer.document.getelementbyid("mx1932").Value = Nach
myInternetExplorer.document.getelementbyid("mx1940").Value = Okonch
myInternetExplorer.document.getelementbyid("mx1963").Value = "Самосвал "
End Sub |
