Excel VBA, который работает в Windows 7, не работает на MAC OS - PullRequest
Новая
       29

Excel VBA, который работает в Windows 7, не работает на MAC OS

0 голосов
/ 01 апреля 2019

Я начинаю задумываться, почему код, который хорошо работает в ОС Windows , не работает в MAC OS . Проблема в том, что я просто не знаю, как MAC OS работает с VBA. Пожалуйста, мне нужна помощь, чтобы написать свой код, который будет работать в MAC OS, и получить нужные данные из Интернета.

Код успешно работает в Windows 7, но не в MAC OS. 

Function abc(id As String, cost As String) As String

Application.ScreenUpdating = False

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Navigate "https://sellercentral.amazon.com/fba/profitabilitycalculator/index?lang=en_US"

Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
    DoEvents
Wend

'*******************************************************
Delay 5
IE.Document.getElementById("search-string").Value = id
'IE.Document.getElementById("search-string").Submit
Delay 2
'IE.Document.getElementsByName("submit")(1).Click
IE.Document.getElementsByTagName("input")(3).Click
While IE.Busy
    DoEvents
Wend
Delay 3
IE.Document.getElementById("afn-pricing").Value = cost
Delay 1
IE.Document.getElementById("update-fees-link-announce").Click
Delay 2
abc = "$" & IE.Document.getElementsByClassName("barValue bold")(3).innerHTML

'*************************************
Application.StatusBar = "Submitted"
IE.Quit
Set IE = Nothing
Application.StatusBar = "Submitted"
Application.ScreenUpdating = True

End Function
...