Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 73 След.
Ошибка Run-time error '-2146697211 (800c0005)' после замены видеокарты
 
Ничего не помогло.
Переустановка винды только помогла.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Ошибка Run-time error '-2146697211 (800c0005)' после замены видеокарты
 
New, не помогло
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Ошибка Run-time error '-2146697211 (800c0005)' после замены видеокарты
 
Цитата
New написал:
CreateObject("MSXML2.XMLHTTP.6.0")
Это пробовал не помогает.
И это всё пробовал
Код
Microsoft.XMLHTTP или MSXML2.ServerXMLHTTP или WinHttp.WinHttpRequest.5.1 или MSXML2.ServerXMLHTTP.6.0 или MSXML2.XMLHTTP.6.0

Замена на POST не помогло. Тоже самое.
Точка тут не особо критично, но спасибо.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Ошибка Run-time error '-2146697211 (800c0005)' после замены видеокарты
 
Цитата
Александр Моторин написал:
какая строка вызывает ошибку
Send
Цитата
Александр Моторин написал:
А разве он участвует в макросе?
да, его настройки
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Ошибка Run-time error '-2146697211 (800c0005)' после замены видеокарты
 
DANIKOLA, Да, пытался фрамеворк удалять. Ставил старые версии по одной, проверял. Потом новую последнюю и нифига. Удалял все C++ и переустанавливал тоже. И нифига.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Ошибка Run-time error '-2146697211 (800c0005)' после замены видеокарты
 
Сначала удалил через программы и компоненты всё. Потом поставил.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Ошибка Run-time error '-2146697211 (800c0005)' после замены видеокарты
 
Читал это. Изменение разрешения дисплея не помогает, даже удаление дров на видеокарту. Видимо какие-то системные файлы подменились. Делал проверку на ошибки системы, всё чисто.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Ошибка Run-time error '-2146697211 (800c0005)' после замены видеокарты
 
Добрый вечер коллеги.
Третий день ломаю голову.
Заменили видеокарту на компе, переустановили дрова на новую. Теперь часть макросов не работает, которые до этого успешно работали.
Начала появляться ошибка (Фото Ошибка).
После этого обновил все дрова в системе, IE перепроверил и обновил, но макросы так и не заработали, но стала появляться другая ошибка (фото Ошибка 2)
Понимаю, что проблема в системе и при установке дров на видюху что-то заменилось, на найти не могу.
Переустановка офиса не помогла.
Файл прилагаю. Дома работает всё хорошо, на работе нифига, хотя на старой видюхе всё безупречно работало.
P.S. Файл набросок чисто, но он работал я там начал проверять просто сайт и кой чего набрасывать.
При вызове вставьте закомментированный артикул и на листе должен появиться список.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
С помощью расширенного фильтра выбрать предприятия, доход которых превышает средний доход всех
 
1. Границы таблицы ячеек сделайте сплошными.
2. Опять границы ячеек.
У вас нет именованного диапазона для листа Эффективность.
По заданию, Вы должны создать именованный диапазон на листе справочник. А вы просто через проверку данных написали в выпадающем списке на листе Эффективность.
Столбец выпадающим списком вы заполнили, но не именем, а просто словами.
3. У вас два условия больше 12% и менее 5%. Зачем в среднее вы чего-то придумали?

Седьмого пункта не увидел.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Анекдот дня, Постим сюда понравившиеся:)
 
Цитата
Jack Famous написал:
На кой* ты его зовёшь??
Улыбнул.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Как попасть в Копилку?
 
Ничего не понадобилось из копилки.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
ячейки с зада :), и такое бывает
 
Что там за туса была?
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Можно ли сделать так, чтобы нажатие клавиши Вниз не приводило на Userform к переходу с одного элемента на другой?, Но нужно оставить возможность перехода с Tab и выбор из Combobox с Alt+Вниз
 
С.М., А что изменилось кроме перехода? Как изменяются значения при нажатии стрелки вниз так и изменяются при нераскрытом комбобоксе.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Делимся..., разным
 
JayBhagavan, Ужас.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
При закрытии книги создавать ее копию
 
DANIKOLA,  Это не копия книги, а сохранение её в другом месте.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
При закрытии книги создавать ее копию
 
Если вы хотите при закрытии книги делать копию, то лучше всего использовать процедуру, которая срабатывает при закрытии книги.
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

В ней вы прописываете условие.
Если вам надо скопировать текущую книгу, то соответственно копируете её.
Код
Dim a$, b$
a = ThisWorkbook.Path & "\" & ThisWorkbook.Name 'ОТКУДА
b = "D:\" & ThisWorkbook.Name 'КУДА
CreateObject("Scripting.FileSystemObject").GetFile(a).Copy b
Изменено: Alemox - 04.10.2021 07:39:04
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
выпадающий список с выбором по первым буквам
 
Цитата
Loksana написал:
Нужен именно этот вариант
Это не лучший вариант.
Лучше используйте форму тогда.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Разное время выполнения одного макроса. Причина
 
Да было. Если вы параллельно работаете с другими приложениями при выполнении макроса.
Но самая главная причина, которую я нашёл. Это Защитник виндовс и антивирусник. при первом запуске макроса он начинает его проверять. Потом уже так как книга осталась открытой он его не проверяет. Я добавляю эксель в исключения защитника и антивирусника и других программ и вообще огонь. Макросы выполняются значительно быстрее.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Как сделать динамичным диапазон для графика
 
Пример во вложении
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Поочередное назначение макросов кнопке
 
Цитата
Семен Фадеев написал:
у меня в заявке есть три кнопки
Где? На форме или листе?
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Поочередное назначение макросов кнопке
 
Это уже целый курс
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Извлечение цены с web страницы
 
Код
Sub GET_Internet()
Dim XMLHTTP As Object
Dim Myurl$, Txt$, Str$
Dim n&, k&

Myurl = "https://tot-kom.ru/catalog/mebelnaya-furnitura/shchetochnye-uplotniteli/derzhatel-schetochnogo-uplotnitelya-absolut/?sphrase_id=1571"
'Myurl = "https://tot-kom.ru/catalog/mebelnaya-furnitura/shchetochnye-uplotniteli/schetochnyy-uplotnitel-6mm-bez-kleya-seryy-325m-tecseal/"

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", Myurl, False
XMLHTTP.send
If XMLHTTP.Status = 200 Then
    Txt = XMLHTTP.responseText
    n = InStr(1, Txt, "price", vbTextCompare)
    n = InStr(n, Txt, "<p>", vbTextCompare) + 3
    k = InStr(n, Txt, "<span>", vbTextCompare)
    Str = Replace(Trim(Mid(Txt, n, k - n)), ".", ",")
    MsgBox Str & " Рублёв"
    'Debug.Print Txt
Else
    MsgBox "Отсутствует соединение..."
End If
Set XMLHTTP = Nothing
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Notapad запускаемый с VBA Excel кода , не видит создаваемого в Excel файла csv и сохраненного в папке
 
Цитата
seregasss435 написал:
А как с Excel открыть Notepad с нужным мне файлом и запустить макрос Notepad , сохранить в Notepad и закрыть?
А зачем нотепад? С какой целью вы в нём что-то делаете через Excel?
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Notapad запускаемый с VBA Excel кода , не видит создаваемого в Excel файла csv и сохраненного в папке
 
Цитата
seregasss435 написал:
При использование оператора SendKeys
Не надо использовать такую команду. Пересмотрите код и исключите все SendKeys.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Можно ли сделать так, чтобы нажатие клавиши Вниз не приводило на Userform к переходу с одного элемента на другой?, Но нужно оставить возможность перехода с Tab и выбор из Combobox с Alt+Вниз
 
Бахтиёр, что-то не получается у меня каменная чаша. Одно на другое накладывается и какие-то костыли. Идеальную работу не могу пока сделать. Не хватает свойств (или мозгов). Или придётся городить код большой, что будет неудобно.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Можно ли сделать так, чтобы нажатие клавиши Вниз не приводило на Userform к переходу с одного элемента на другой?, Но нужно оставить возможность перехода с Tab и выбор из Combobox с Alt+Вниз
 
Файл пример можно?
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Парсинг курсов P2P Binance
 
на USD
Код
Sub Parser_USD()
Dim OBJHTTP As Object
Dim Url$, Str$
Set OBJHTTP = CreateObject("MSXML2.XMLHTTP")
Url = "https://p2p.binance.com/bapi/c2c/v2/friendly/c2c/adv/search"
With OBJHTTP
    .Open "POST", Url, False
    .setRequestHeader "Accept", "*/*"
    .setRequestHeader "Content-type", "application/json"
    .setRequestHeader "Origin", "https://p2p.binance.com"
    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36"
    .send "{""page"":1,""rows"":10,""payTypes"":[],""asset"":""USDT"",""tradeType"":""BUY"",""fiat"":""USD"",""publisherType"":""merchant"",""merchantCheck"":true}"
    Str = .ResponseText
End With
Set OBJHTTP = Nothing
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Парсинг сайта «Минстрой России», Классификатор строительных ресурсов
 
Jack Famous, привет.
Не знаю разобрались Вы или нет, но вот список на слово авто.
Скрытый текст

Я думаю разберёшься что за что отвечает в запросе.

Результат такой:
Скрытый текст

Дело техники и регулярок.
Изменено: Alemox - 23.09.2021 20:22:36 (Файл приложил.)
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Обновление 29.12.2020, Обновил двиг сайта и модуль форума в том числе
 
Цитата
Jack Famous написал:
и вылезти оттуда уже не сможет
Это уже несколько лет такая ерунда. Поэтому давно перешёл на BB
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Обновление 05.12.2020
 
Цитата
БМВ написал:
А на том же компе альтернатива есть?
Только IE.
Всё так как прокомментировал ZVI. Только у меня задержка бывает дольше намного.
Chromium 86.0.4240.198 (32 бит)
Изменено: Alemox - 23.12.2020 17:55:37
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 73 След.
Наверх