Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » bakid
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Правильная обработка ошибок при вызове процедур
 
#
06.07.2020 10:57:22
Всем привет, подскажите как правильно обрабатывать ошибки. Пример, у меня есть процедура, в которой вызывается еще одна процедура, а в ней несколько функций. И если возникает ошибка в какой либо функции или переданной процедуре, как правильно завершить макрос, чтобы закрылись все файлы, которые открыты в фоновом режиме?
 
Перейти    
Получение ключевой ставки ЦБ через VBA
 
#
27.02.2020 11:48:02
Дмитрий, спасибо
 
Перейти    
Получение ключевой ставки ЦБ через VBA
 
#
27.02.2020 10:29:52
Дмитрий, спасибо. Тему и правда как-то плохо назвал. Необходимо макросом получить данные по ключевой ставке за определенный период. В интернете находил примеры, где, например, логин и пароль вставляли и нажимали кнопку, но тут кнопки нет и не знаю как обновить страницу с введенными датами.  
 
Перейти    
Получение ключевой ставки ЦБ через VBA
 
#
27.02.2020 08:48:12
Всем привет. Помогите пож-та. Пытаюсь с сайта ЦБ РФ вытащить информацию по ключевой ставке за определенный период. Перехожу на страницу, меняю даты на новые, но не знаю какую команду прописать, чтобы данные обновились, так как кнопки по обновлению данных нет.
Код
Public Sub key_rate()

Dim IE As Object
Dim wb As Workbook
Dim sh1 As Worksheet

Set wb = ThisWorkbook
Set sh1 = wb.Sheets("Sheet1")


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate ("http://cbr.ru/hd_base/keyrate/")
While CBool(IE.Busy)
    l = l + 1
    If l > 29999 Then
        MsgBox "Something Is wrong. cbr.ru Is Not accessible", vbCritical, "cbr.ru"
        IE.Quit
        Set IE = Nothing
        Exit Sub
    End If
    DoEvents
Wend

a = "01.02.2020"
b = "25.02.2020"
Set dddd = IE.document.getElementById("UniDbQuery_FromDate")
        With IE.document
            .getElementById("UniDbQuery_FromDate").Value = a
            .getElementById("UniDbQuery_ToDate").Value = b
        End With


Set IE = Nothing


End Sub
 
Перейти    
Как перевести эксель документ в XML файл средствами VBA
 
#
30.01.2020 16:47:11
Всем спасибо за разъяснения
 
Перейти    
Как перевести эксель документ в XML файл средствами VBA
 
#
30.01.2020 15:50:32
Дмитрий, получается только в форматах дело? Сама структура xml документа верная?
 
Перейти    
Как перевести эксель документ в XML файл средствами VBA
 
#
30.01.2020 13:56:23
Цитата
sokol92 написал:
Если это образец XML-файла, то он неверный
Это я из вордовского документа(ссылка на него пару сообщений выше) скопировал в txt файл и сюда приложил, просто вордовский файл не влезал
 
Перейти    
Как перевести эксель документ в XML файл средствами VBA
 
#
30.01.2020 13:02:41
В том то и дело, что я тоже разницы не вижу
 
Перейти    
Как перевести эксель документ в XML файл средствами VBA
 
#
30.01.2020 12:34:54
ответили:

Файл сформирован в MS Excel методом сохранения в "Таблица XML", это не правильно!
 
Перейти    
Как перевести эксель документ в XML файл средствами VBA
 
#
30.01.2020 12:25:17
Nordheim, отправил сегодня xml файл в фед. казначейство, говорят что не верное оформление(что эксель просто перевели в xml). Не понимаю что не так. http://www.roskazna.ru/upload/iblock/660/tff_depozity_sverka_nachisleniya_protse­ntov_v.1_00.docx
Изменено: bakid - 30.01.2020 12:29:12
 
Перейти    
Как перевести эксель документ в XML файл средствами VBA
 
#
29.01.2020 15:29:35
Nordheim, спасибо огромное. А не знаете как переносить строки в xml, чтобы более читабельно было?
 
Перейти    
Как перевести эксель документ в XML файл средствами VBA
 
#
29.01.2020 14:44:53
Цитата
Nordheim написал:
Так?

Спасибо, я не силен в xlm, но это немного оличается от схемы
В схеме блок ORDER_INFO закрывается в самом низу, а блоки ORDER_REC не закрываются вот так->  </ORDER_REC>
Код
<?xml version="1.0"?>
<RATE_VALUE_DOC VER="1.0">
    <DOC_INFORM SENDER_NAME="ÀÎ ÁÀÍÊ" DOC_NO="1" DOC_TIME="14:41:15" DOC_DATE="29-01-2020">
    </DOC_INFORM>
    <ORDER_INFO ORDER_RATE_VALUE="" PERFOM_PHONE="" PERFOM_FIO="" APPROVED_FIO="Ïåòðîâ Ïåòð Ïåòðîâè÷" APPROVED_POST="Ãåí. Äèð." RATE_TYPE="R" DEPO_VALUE="1000000000" DAYS="7" RETURN_DATE="11/4/2019" DEPO_DATE="10/28/2019" ORDER_NUM="150870XP" KO_NAME="ÀÎ ÁÀÍÊ">
    </ORDER_INFO>
    <ORDER_REC DEPO_VALUE="1000000000" RATE_VALUE="176438.35616438" YEAR_DAYS="365" FLOAT_RATE="6.44" SPRED="0" DISKONT="0.31" NORMATIVE_RATE="4.75" KEY_RATE="6.5" INDICATIVE_RATE="6.75" INDICATIVE_DATE="10/28/2019" CALC_DATE="10/29/2019">
    </ORDER_REC>
    <ORDER_REC DEPO_VALUE="1000000000" RATE_VALUE="351780.82191781" YEAR_DAYS="365" FLOAT_RATE="6.4" SPRED="0" DISKONT="0.31" NORMATIVE_RATE="4.75" KEY_RATE="6.5" INDICATIVE_RATE="6.71" INDICATIVE_DATE="10/29/2019" CALC_DATE="10/30/2019">
    </ORDER_REC>
    <ORDER_REC DEPO_VALUE="1000000000" RATE_VALUE="528493.15068493" YEAR_DAYS="365" FLOAT_RATE="6.45" SPRED="0" DISKONT="0.31" NORMATIVE_RATE="4.75" KEY_RATE="6.5" INDICATIVE_RATE="6.76" INDICATIVE_DATE="10/30/2019" CALC_DATE="10/31/2019">
    </ORDER_REC>
    <ORDER_REC DEPO_VALUE="1000000000" RATE_VALUE="699726.02739726" YEAR_DAYS="365" FLOAT_RATE="6.25" SPRED="0" DISKONT="0.31" NORMATIVE_RATE="4.75" KEY_RATE="6.5" INDICATIVE_RATE="6.56" INDICATIVE_DATE="10/31/2019" CALC_DATE="11/1/2019">
    </ORDER_REC>
    <ORDER_REC DEPO_VALUE="1000000000" RATE_VALUE="872054.79452055" YEAR_DAYS="365" FLOAT_RATE="6.29" SPRED="0" DISKONT="0.31" NORMATIVE_RATE="4.75" KEY_RATE="6.5" INDICATIVE_RATE="6.6" INDICATIVE_DATE="11/1/2019" CALC_DATE="11/2/2019">
    </ORDER_REC>
    <ORDER_REC DEPO_VALUE="1000000000" RATE_VALUE="1044383.56164384" YEAR_DAYS="365" FLOAT_RATE="6.29" SPRED="0" DISKONT="0.31" NORMATIVE_RATE="4.75" KEY_RATE="6.5" INDICATIVE_RATE="6.6" INDICATIVE_DATE="11/1/2019" CALC_DATE="11/3/2019">
    </ORDER_REC>
    <ORDER_REC DEPO_VALUE="1000000000" RATE_VALUE="1216712.32876713" YEAR_DAYS="365" FLOAT_RATE="6.29" SPRED="0" DISKONT="0.31" NORMATIVE_RATE="4.75" KEY_RATE="6.5" INDICATIVE_RATE="6.6" INDICATIVE_DATE="11/1/2019" CALC_DATE="11/4/2019">
    </ORDER_REC>
</RATE_VALUE_DOC>
 
Перейти    
Как перевести эксель документ в XML файл средствами VBA
 
#
28.01.2020 15:25:06
Всем, привет. Может тут есть кто сталкивался с такой задачей. Есть данные в эксель, есть схема XML. Необходимо эти данные привести к такому формату как в схеме.
Сам я в этом плохо разбираюсь. В интернете информация есть, взял готовый пример и попробовал переделать под свои нужды, но файл на выходе не совпадает со схемой. Помогите пож-та с макросом.  
 
Перейти    
VBA: Удаление ключа из словаря (Dictionary), Не удаляется ключ из словаря, а переносится вниз списка
 
#
28.08.2019 12:11:39
Видимо глюк какой-то был, сейчас всё отлично отработало. БМВ, спасибо огромное
 
Перейти    
VBA: Удаление ключа из словаря (Dictionary), Не удаляется ключ из словаря, а переносится вниз списка
 
#
28.08.2019 11:44:42

БМВ, спасибо. Что значит при первом обращении? При изменении порядка проверки ничего не изменилось. Ключ не удаляется, а добвляется вниз словаря

Изменено: bakid - 28.08.2019 11:45:36
 
Перейти    
VBA: Удаление ключа из словаря (Dictionary), Не удаляется ключ из словаря, а переносится вниз списка
 
#
28.08.2019 11:22:43
Всем привет. Помогите пожалуйста. При попытке удалить ключ из словаря по уловию, он почему-то не удалется, а переносится вниз списка
Код
Sub test()
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
With dict

    .Add "Вася", 150
    .Add "Валя", 10
    .Add "Ваня", 120
    .Add "Коля", 150
    .Add "Лёша", 80
    .Add "Саша", 50
    .Add "Лена", 350
    .Add "Маша", 200
End With
    Lind = 0: Uind = dict.Count - 1
    Do While dict.Item(sotr) < 150
        i = Int((Uind - Lind + 1) * Rnd + Lind) 'рандомный сотрудник
        sotr = dict.Keys()(i)
    Loop
    dict.Remove (sotr)
    
   

End Sub
 
Перейти    
Страницы: 1
Наверх