Вопрос по excel Call Sheet1.refresh_select где ошибка ? / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по excel Call Sheet1.refresh_select где ошибка ?

21 сообщений из 21, страница 1 из 1

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39688522

bulllest

Гость

Подскажите пожалуйста как исправить, чтобы ошибка не появлялась?

...

Рейтинг:

0 / 0

16.08.2018, 08:56

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39688527

bulllest

Гость

И еще одна ошибка

Код: vbnet

1.
2.
3.

Sub sbShow__ufmRefreshData()
   ufmRefreshData.Show 0
End Sub

Желтым выделяет, что ошибка.
Подскажите пожалуйста как исправить.
Модератор: Учимся использовать тэги оформления кода - FAQ

...

Рейтинг:

0 / 0

16.08.2018, 09:00

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39688533

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Нам нужно угадать текст ошибки и угадать что такое ufmRefreshData?

...

Рейтинг:

0 / 0

16.08.2018, 09:04

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39689275

bulllest

Гость

Извиняюсь, я в этом ничего не понимаю.
Полный код выглядит следующим образом

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.

Sub RefreshAll()
    Dim dblTimeAdd '
    dblTimeAdd = TimeValue("02:00") 'прибавление времени
    Dim llastr As Long, arr, x
    Dim arr2, xx
    Dim rr As Range, lс As Long
    Dim asSp, s As String, s1 As String, s2 As String
    Dim wsStat As Worksheet
    
    '----------------------------------
    'сверка на совпадение идентификатора
    '----------------------------------
    
    Set wsStat = Sheet1
    With Sheet2 'Aux
        llastr = .Cells(.Rows.Count, 2).End(xlUp).Row
        If llastr < 4 Then Exit Sub
        
        CheckDate
        arr = .Cells(4, 2).Resize(llastr - 3, 1)
        If Not IsArray(arr) Then
            ReDim arr(1 To 1, 1 To 1)
            arr(1, 1) = .Cells(4, 2)
        End If
    End With

    Application.ScreenUpdating = 0
    'Stats
    With shRes '
        llastr = .Cells(.Rows.Count, 1).End(xlUp).Row
        If llastr >= 2 Then
            .Cells(2, 1).Resize(llastr - 1, 1).EntireRow.Value = Empty
        End If
    End With
    llastr = 1
    Sheet1.Activate
    For Each x In arr
        wsStat.Range("B3").Value = x
        Call Sheet1.refresh_select  -------- Здесь ошибку выдает
        'дополняем лист "Должно так выходить"
        Set rr = wsStat.Range("U35:X49")
        For lr = 1 To rr.Rows.Count
            s = rr.Cells(lr, 2).Value
            If s <> "" Then
                asSp = Split(s, " - ", 2)
                If UBound(asSp) > 0 Then
                    arr2 = wsStat.Range("Q6:Q36").Value
                    s1 = LCase(Trim(asSp(0)))
                    s2 = LCase(Trim(asSp(1)))
                    For Each xx In arr2
                        If LCase(Trim(xx)) = s1 Then
                            wsStat.Range("C7").Value = xx
                        End If
                        If LCase(Trim(xx)) = s2 Then
                            wsStat.Range("D7").Value = xx
                        End If
                    Next
                    
                    'Call Sheet1.refresh_teams
                    Application.Calculate
                    llastr = llastr + 1
                    shRes.Cells(llastr, 1).Value = x
                    shRes.Cells(llastr, 2).Value = rr.Cells(lr, 1).Value
                    shRes.Cells(llastr, 3).Value = s
                    shRes.Cells(llastr, 4).Value = rr.Cells(lr, 3).Value + dblTimeAdd
                    shRes.Cells(llastr, 5).Resize(, 4).Value = wsStat.Range("J85").Resize(, 4).Value
                    shRes.Cells(llastr, 10).Value = wsStat.Range("I1").Value
                    shRes.Cells(llastr, 11).Value = wsStat.Range("I3").Value
                    shRes.Cells(llastr, 12).Value = wsStat.Range("I2").Value
                    shRes.Cells(llastr, 10).Resize(, 3).NumberFormat = "0.00%"
                    shRes.Cells(llastr, 10).Resize(, 3).Font.Bold = True
                    shRes.Cells(llastr, 9).Value = wsStat.Range("l84").Value
                    shRes.Cells(llastr, 24).Value = wsStat.Range("f24").Value
                    shRes.Cells(llastr, 21).Value = wsStat.Range("E1").Value
                    shRes.Cells(llastr, 23).Value = wsStat.Range("H2").Value
                    shRes.Cells(llastr, 25).Value = wsStat.Range("j7").Value
                    shRes.Cells(llastr, 26).Value = wsStat.Range("k7").Value
                    shRes.Cells(llastr, 27).Value = wsStat.Range("l7").Value
                    shRes.Cells(llastr, 28).Value = wsStat.Range("m7").Value
                    shRes.Cells(llastr, 29).Value = wsStat.Range("n7").Value
                    shRes.Cells(llastr, 22).Value = wsStat.Range("H1").Value
                    shRes.Cells(llastr, 30).Value = wsStat.Range("A75").Value
                    shRes.Cells(llastr, 31).Value = wsStat.Range("B75").Value
                    shRes.Cells(llastr, 32).Value = wsStat.Range("c75").Value
                    shRes.Cells(llastr, 33).Value = wsStat.Range("d75").Value
                    shRes.Cells(llastr, 34).Value = wsStat.Range("e11").Value
                    shRes.Cells(llastr, 35).Value = wsStat.Range("e12").Value
                    shRes.Cells(llastr, 13).Value = wsStat.Range("Q2").Value
                    shRes.Cells(llastr, 14).Value = wsStat.Range("Q3").Value
                    shRes.Cells(llastr, 36).Value = wsStat.Range("E75").Value
                    shRes.Cells(llastr, 37).Value = wsStat.Range("F75").Value
                    shRes.Cells(llastr, 38).Value = wsStat.Range("g75").Value
                    shRes.Cells(llastr, 39).Value = wsStat.Range("J75").Value
                    shRes.Cells(llastr, 40).Value = wsStat.Range("K75").Value
                    shRes.Cells(llastr, 41).Value = wsStat.Range("L75").Value
                    shRes.Cells(llastr, 15).Value = wsStat.Range("M75").Value
                    shRes.Cells(llastr, 16).Value = wsStat.Range("N75").Value
                    shRes.Cells(llastr, 17).Value = wsStat.Range("O75").Value
                    shRes.Cells(llastr, 19).Value = wsStat.Range("P75").Value
                    shRes.Cells(llastr, 18).Value = wsStat.Range("q75").Value
                    shRes.Cells(llastr, 20).Value = wsStat.Range("R75").Value
                    shRes.Cells(llastr, 42).Value = wsStat.Range("H26").Value
                    shRes.Cells(llastr, 43).Value = wsStat.Range("K26").Value
                    shRes.Cells(llastr, 44).Value = wsStat.Range("i26").Value
                    shRes.Cells(llastr, 45).Value = wsStat.Range("l26").Value
                    shRes.Cells(llastr, 46).Value = wsStat.Range("H27").Value
                    shRes.Cells(llastr, 47).Value = wsStat.Range("K27").Value
                    shRes.Cells(llastr, 48).Value = wsStat.Range("i27").Value
                    shRes.Cells(llastr, 49).Value = wsStat.Range("l27").Value
                    shRes.Cells(llastr, 15).Resize(, 2).Calculate
                    shRes.Cells(llastr, 15).Resize(, 2).Value = shRes.Cells(llastr, 15).Resize(, 2).Value
                End If
            End If
        Next
    Next
    shRes.Activate
    Application.ScreenUpdating = 1
End Sub

Function CheckDate()
'ММ/ДД/ГГГГ
    If Date > #12/31/2100# Then
        MsgBox " ", vbCritical, "ВАЖНО"
        End
    End If
End Function

...

Рейтинг:

0 / 0

17.08.2018, 09:57

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39689289

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Текст ошибки мы дождемся?

...

Рейтинг:

0 / 0

17.08.2018, 10:20

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39689449

bulllest

Гость

Shocker.Pro, я думал этого будет достаточно.
Появляется вот такое окно с ошибкой.

...

Рейтинг:

0 / 0

17.08.2018, 13:01

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690030

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Хм, а что в Sheet1.refresh_select?

...

Рейтинг:

0 / 0

19.08.2018, 17:40

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690033

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Shocker.Pro,

я так понимаю, там идет запрос к некоему сайту. И этот сайт отказывает в доступе.
Вообще код очень знаком по виду, переменным и приемам - есть подозрение, что я его как-то дорабатывал и данные он берет с сайтов футбольных матчей...

...

Рейтинг:

0 / 0

19.08.2018, 18:02

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690035

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Shocker.Proа что в Sheet1.refresh_select?
скорее всего ответ сейчас будет такой:

Код: vbnet

1.
2.
3.

Sub refresh_select()
    Call CommandButton21_Click
End Sub

Если я прав - то там глядя только на коды проблему не решить - нужен файл со всеми таблицами, коих там немало.

...

Рейтинг:

0 / 0

19.08.2018, 18:04

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690041

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

The_PristВообще код очень знаком по виду, переменным и приемам - есть подозрение, что я его как-то дорабатывал и данные он берет с сайтов футбольных матчей...ИИ для расчета ставок? The_PristЕсли я правThe_Pristсайт отказывает в доступе.А почему ошибка выдается на уровне вызова, а не на конкретной строке?

...

Рейтинг:

0 / 0

19.08.2018, 18:21

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690097

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Shocker.Proпочему ошибка выдается на уровне вызоваПотому что вызов идет процедуры, расположенной в модуле класса(коим является код в модуле листа), и скорее всего в Tools -Options -вкладка General установлено Break on Unhandled errors(в разделе Error Trapping). А при такой настройке есть особенность - при появлении ошибки и нажатии Debug перекидывать будет в вызывающую процедуру/функцию стандартного модуля. Если поставить Break in class module, то будет привычно перекидывать на саму строку ошибки именно в процедуре/функции с ошибкой.

...

Рейтинг:

0 / 0

19.08.2018, 21:38

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690506

bulllest

Гость

The_Prist все верно, данные берутся с сайта со статистикой по футболу.
Как можно решить вопрос с ошибкой?
Помогите пожалуйста.

...

Рейтинг:

0 / 0

20.08.2018, 15:53

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690508

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

bulllestКак можно решить вопрос с ошибкой?
Помогите пожалуйста.вам же уже сказалиThe_Pristнужен файл со всеми таблицами

...

Рейтинг:

0 / 0

20.08.2018, 15:56

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690556

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

bulllestКак можно решить вопрос с ошибкой?Для начала надо определить конкретную строку ошибки. Я выше расписал, что надо сделать в настройках, чтобы подсветило именно строку ошибки, а не вызывающую процедуру.
Далее, если это строка перехода на сайт надо убедиться, что сайт не сменил протокол на https. Если изначально сайт в файле записан как http, а он перешел за защищенный https, то он скорее всего отклонит запрос. Поэтому надо проверить все сайты на соответствие протоколу в файле.

...

Рейтинг:

0 / 0

20.08.2018, 16:48

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690762

bulllest

Гость

The_Prist я покапался в файле, действительно сайт сменил протокол на htpps.
Нужно как я понимаю найти где прописан htpp и заменить везде на htpps?
То что вы прописывали ранее, куда это вставляется, где эти настройки прописать?

...

Рейтинг:

0 / 0

21.08.2018, 07:24

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690783

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

bulllestТо что вы прописывали ранееС чего Вы взяли, что я там что-то прописывал? :) Я дорабатывал сам код, а корректность сайтов на совести того, кто эту программу потом распространял. Туда и вопросы. Если купили честно - то ответ получите. Если нет - ковыряйтесь и изменяйте сами, что тут сделать. Я чем мог помог.

...

Рейтинг:

0 / 0

21.08.2018, 08:31

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690831

bulllest

Гость

Да я другое имел ввиду, то что Вы мне писали ранее здесь
авторскорее всего ответ сейчас будет такой:

Код: vbnet

1.
2.

Sub refresh_select()
    Call CommandButton21_Click

End Sub

...

Рейтинг:

0 / 0

21.08.2018, 10:20

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39690833

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

bulllestДа я другое имел ввиду, то что Вы мне писали ранее здесьэто он мне отвечал. На вопрос
Shocker.Proчто в Sheet1.refresh_select?

...

Рейтинг:

0 / 0

21.08.2018, 10:22

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39691450

bulllest

Гость

Shocker.Pro, как посмотреть, что там внутри?
Файл есть, как его Вам отправить, может быть посмотрите?
Не бесплатно )

...

Рейтинг:

0 / 0

22.08.2018, 08:57

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39691451

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

bulllestShocker.Pro, как посмотреть, что там внутри?
Файл есть, как его Вам отправить, может быть посмотрите?
Не бесплатно )Так отправляйте The_Prist-у, раз он в курсе.

...

Рейтинг:

0 / 0

22.08.2018, 08:58

| Ответить | Цитировать | Написать

Вопрос по excel Call Sheet1.refresh_select где ошибка ?

#39706496

Antonius.l

Гость

bulllest, проблема не решилась?
Могу помочь, если пришлете файл

...

Рейтинг:

0 / 0

23.09.2018, 09:36

| Ответить | Цитировать | Написать

21 сообщений из 21, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по excel Call Sheet1.refresh_select где ошибка ?

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&gotonew=1&tid=2155006]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	41ms
get topic data:	10ms
get first new msg:	6ms
get forum data:	2ms
get page messages:	66ms
get tp. blocked users:	1ms
others:	12ms

total:	168ms