ошибка: 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 |