Вопросы Теги

вытащить данные в книгу в Excel

Имела ту же самую проблему с экземпляром календаря.

Неверный код: 

Calendar myCalendar = Calendar.getInstance();
for (int days = 0; days < daysPerWeek; days++){
            myCalendar.add(Calendar.DAY_OF_YEAR, 1);

            // In the next line lies the error
            Calendar newCal = myCalendar;
            calendarList.add(newCal); }

Вам нужно создать НОВЫЙ объект календаря, который можно выполнить с помощью календаря. clone (); 

Calendar myCalendar = Calendar.getInstance();
for (int days = 0; days < daysPerWeek; days++){
                myCalendar.add(Calendar.DAY_OF_YEAR, 1);

                // RIGHT WAY
                Calendar newCal = (Calendar) myCalendar.clone();
                calendarList.add(newCal);

                }
1
задан v1787v 18 January 2019 в 09:39
поделиться

1 ответ

Хотя это и не лучший способ, но он должен работать для вас 

Option Explicit
Sub Autocheck()

    Dim IE As New SHDocVw.InternetExplorer

    IE.Visible = True

    IE.Navigate "Autocheck.com"

    Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy
        DoEvents
    Loop

    Application.Wait Now + TimeSerial(0, 0, 5)
    IE.Document.forms("vinSearchForm").elements("vin").Value = "JTDKB22U140021007"
    IE.Document.forms("vinSearchForm").elements("vinSearch").Click

    Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy
        DoEvents
    Loop

    Application.Wait Now + TimeSerial(0, 0, 5)
    Range("A10").Value = Split(IE.Document.getelementbyid("test_vinSummary_carSpecification_$4").innerText, vbNewLine)(1)

    IE.Quit
    Set IE = Nothing

End Sub
0
ответ дан Santosh 18 January 2019 в 09:39
поделиться
Другие вопросы по тегам:

Похожие вопросы: