Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 25 След.
Массовое скачивание XLS файлов с сервиса dadata
 
Добрый.

Вам нужны:
цикл по ячейкам
функция типа WinHttpRequest с методом GET
функция сохранения данных из переменной в файл

Все это есть на форуме, пробуйте. Что-то не получится - пишите, с приведением кода в теме.
Открытие личной книги макросов (PERSONAL) при не закрытом процессе
 
Цитата
Dyomp написал:
Есть программа (на С++, к исходному коду нет доступа), формирует отчет в excel, сохраняет и закрывает excel
Добрый.
А процесс остается висеть, если закрыть программу?
Требуется макрос для приведение таблицы в нужный вид
 
Давайте посмотрим, контакты в профиле
В работе
Изменено: Oleg Boyaroff - 20 Фев 2020 00:47:05
Бесконечное создание строк VBA. Как остановить?
 
В модуль листа "Опросник".
При условии, что в книге ничего не будет менять в плане заливки и кол-ва строк.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = 0
    Application.EnableEvents = 0
    Select Case Target.Text
        Case Is = "Первичный рынок"
            If Cells(17, 1).Interior.Color = 5296274 Then
                Rows("14:16").Delete Shift:=xlUp
                Application.CutCopyMode = False
            End If
            Range(Cells(11, 1), Cells(13, 5)).ClearContents
            Cells(11, 1) = "Если подобрал квартиру на ПЕРВИЧНОМ рынке"
            Cells(12, 1) = "ЖК / Застройщик"
            Cells(13, 1) = "ДДУ/ПДКП/ДКП"
            
        Case Is = "Вторичный рынок"
            If Cells(17, 1).Interior.Color = 5296274 Then
                Rows("14:16").Delete Shift:=xlUp
                Application.CutCopyMode = False
            End If
            Range(Cells(11, 1), Cells(13, 5)).ClearContents
            Cells(11, 1) = "Если подобрал квартиру на ВТОРИЧНОМ рынке"
            Cells(12, 1) = "Кто является продавцом: физ/юр. лицо?"
            Cells(13, 1) = "Что из себя представляет дом?"
        
        Case Is = "Рефинансирование"
            If Cells(14, 1).Interior.Color = 5296274 Then
                For i = 1 To 3
                    Rows(14).Insert Shift:=xlDown
                    With Range(Cells(14, 2), Cells(14, 5))
                        .Merge
                        .Borders(xlEdgeLeft).LineStyle = xlContinuous
                    End With
                Next
                Range(Cells(11, 1), Cells(16, 5)).ClearContents
                Cells(11, 1) = "Если это РЕФИНАНСИРОВАНИЕ:"
                Cells(12, 1) = "Залоговый дисконт"
                Cells(13, 1) = "Был ли использован материнский капитал?"
                Cells(14, 1) = "Сделано ли 6 платежей?"
                Cells(15, 1) = "Были ли просрочки за последние 6 месяцев?"
                Cells(16, 1) = "В каком банке ипотека"
            End If
    End Select
    Application.EnableEvents = 1
    Application.ScreenUpdating = 1
End Sub
Путиводитель в Excel, работа с папками и файлами., Нужно завершить проэкт
 
Добрый день!

1. Чтобы понимать объем работ, нужен доступ к VBA проекту. Он под паролем.
2. Какие именно файлы распечатывать? У вас там спектр расширений файлов. Если, скажем, нужно печатать excel книгу, то это получается открывать ее и печатать.
А если это будет .pdf, .sql, .dwg?
3. Каков бюджет под эту задачу?
Шаблон строительной сметы, Есть шаблон сметы в эксель, его нужно улучшить
 
olega-san1, если не договоритесь со skais675,  и никто не возьмется, то смогу посмотреть через пару-тройку дней.
Шаблон строительной сметы, Есть шаблон сметы в эксель, его нужно улучшить
 
Цитата
olega-san1 написал:
Сейчас занят собиранием и структурированием (по категориям) прайсов поставщиков для каталога на сайте.
А не проще будет использовать базу данных, ведь у вас уже есть сайт. Таким образом вы избавитесь от лишних нагрузок на книгу. Информация к размышлению, не претендую.
Получение данных через JSON API в Excel, Как организовать получение данных по API из системы "Мой склад" в Excel
 
Изучить документацию по API https://dev.moysklad.ru/doc/api/remap/1.1/
Обратить внимание на использование аутентификации, без которой не имеет смысла работать.
Выбрать из документации ту часть запроса, который будет соответствовать вашим требованиям.
Воспользоваться POST\GET запросами из вышеперечисленных данных.
Как сделать POST\GET запросы - ищите функции на форуме, тем предостаточно. Одна из них.
Связать таблицу и аккаунт бинанса по api
 
Все_просто, я просто уточнил информацию. Пишите ТСу в личку
Связать таблицу и аккаунт бинанса по api
 
Бюджет?
Скопировать данные со страницы explorer
 
Методом XMLHTTP и Splits
Код
    Encoded = WorksheetFunction.EncodeURL("Россия, Еврейская Аобл, Ленинский р-н, ст Ленинск, ул Красноармейская,д.52")
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", "https://indexphone.ru/?search=" & Encoded, "False"
        .SetRequestHeader "Content-Type", "text/html; charset=utf-8"
        .Send
        If .StatusText = "OK" Then
            Response = .ResponseText
            result = Split(Split(Response, "post-search-list-postalcode"">")(1), "</")(0)
            Cells(1, 1) = result
        End If
    End With
CREATEOBJECT("EXCEL.APPLICATION") на компьютере без EXCEL
 
Wiss, проверьте после установки этого SDK, будет ли формировать файл без установленного office.
Программа после экспорта пытается открыть эти файлы?
Нужно разработать скрип для MS Outlook. Есть кто возьмётся?, ЛС
 
oceanpack, добрый день!
Скиньте пожалуйста ТЗ на почту(в профиле), посмотрим.
Выпадающий список - исключить определенные элементы из именованного диапазона
 
Цитата
Sceptic написал:
"Включить новые элементы в фильтр"
Спасибо большое, я вообще как-то про этот параметр забыл. То что нужно.
Выпадающий список - исключить определенные элементы из именованного диапазона
 
Sceptic, спасибо за развернутый ответ, так и предполагал.

Цитата
БМВ написал:
почему срау в сводной не убрать то что лишнее
дело в том, что таблица А периодически пополняется данными и если обновить сводную, ничего не изменится, и чтобы в списке появлись новые данные, необходимо залезать в фильтр и там их выбирать.
Ладно, шаверму можно убрать руками, а что делать с "пусто/blank"? Меня этот вопрос больше всего волнует.

В VBA это конечно можно, хотелось бы стандартными способами.

p.s. что-то у меня ваша формула вызывает ошибку при вставке.
Выпадающий список - исключить определенные элементы из именованного диапазона
 
Jack Famous, благодарю, но мне хотелось бы обойтись без доп. таблиц, напрямую из именованного диапазона, если это возможно.
VBA: DataObject - некорректное отображение символов при вставке из буфера обмена
 
Цитата
Столбенко Владислав написал:
А причем кодировка и некорректное отображение
Потому что у вас проблема как раз в отображении кодировки. Если нет, то проверьте локально что передается свойству MyDataObj.SetText из ActiveCell.Value.
Цитата
Столбенко Владислав написал:
если на любою входную  строку- числовую или символьную,  любой длинны из буфера возвращает два символа "?"  с кодом 63  ?
Этого указано не было.

Как себя поведет этот кусок кода?
Код
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
     .SetText ActiveCell.Text
     .PutInClipboard
End With
Выпадающий список - исключить определенные элементы из именованного диапазона
 
Добрый день, коллеги!

Ни разу не формулист, гугл плохо помогает - мне необходима подсказка в решении формирования выпадающего списка из сводной на отдельном листе, где присутствуют нежелательные элементы как "(пусто)" или "(blank)", так и "шаверма" в списке фруктов. Их то и надо отсечь.
Список формирую с помощью диспетчера имен на динамическом диапазоне сводной(чтобы в будущем автоматически расширять список).

Файлик с примером прикладываю.

p.s. "(пусто)" или "(blank)" не заменяются пробелом в параметрах сводной.
VBA: DataObject - некорректное отображение символов при вставке из буфера обмена
 
Если в редакторе кода попробовать написать на кириллице, будет нормально отображаться или в виде белиберды?
VBA: DataObject - некорректное отображение символов при вставке из буфера обмена
 
Цитата
Столбенко Владислав написал:
Ранее этот код работал. Почему перестали ехать лыжи ?
ОС сменилась? Просто так ничего не перестает работать, произошли какие-то изменения.
Во время выполнения макроса возникает окно "Свойства канала передачи данных", Свойства канала передачи данных открытие книги
 
Ігор Гончаренко, мы договорились с ТСом в понедельник посмотреть(т.е. сегодня), как он будет на рабочем месте(где глючит файл).
Но, поскольку код ваш, может все таки вы посмотрите и разберетесь с проблемой? Вам ваш код более понятен и быстрее разберетесь.
Я нисколько не против.
Сохранить в отдельный PDF файл часть листа, которая не сгруппирована
 
ramin911, здравствуйте

Вот вам кусок кода, который сохраняет в выбранную папку:
Код
Private Sub SaveToPDF()
    With ActiveSheet.Range("A1:I17")
        If Not Application.GetSaveAsFilename(ActiveSheet.Name, "PDF (*.pdf), *.pdf") Then
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=(SAF), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
            'CreateObject("Shell.Application").Explore (Left(SAF, InStrRev(SAF, "\"))) 'раскомментировать строку, если необходимо открывать указанную папку после сохранения
        End If
    End With
End Sub
Что касается части, которая не сгруппирована - было бы неплохо уточнить, это строки с 1 по 17 или те, которые в конце располагаются?
Во время выполнения макроса возникает окно "Свойства канала передачи данных", Свойства канала передачи данных открытие книги
 
ivan1388, здравствуйте, напишите мне на почту(в профиле), попробуем разобраться в вашей проблеме.
Варианты написания запросов к БД через VBA, sql и vba
 
Luc, а так сработает?
Код
EXEC [adm].[dbo].[mp_g_p_moo_mono_i] 'ALL'
Что-то мне подсказывает, что это процедура которой передаются параметры.
Извлечение ссылок со страницы
 
Цитата
Lex396 написал:
с 7 строчки соответствий не находит, хотя если смотреть в ручную код такой же
Как вы смотрите код? Вот именно по ссылке с 7 строки нет таких данных по шаблону.
Извлечение ссылок со страницы
 
Lex396, добрый день.
Из html кода я вижу одинарные кавычки, в шаблоне двойные - уточните этот момент.
Извлечение ссылок на картинки, Извлечь со страницы все ссылки на саму картинку из определенного контейнера html
 
Lex396, упростим, избавимся от коллекций(я там немного не то написал) и будем использовать массив для ссылок.

Поправим метод, ссылки будут добавляться в новых столбцах
Код
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", URL, True
            .send
            Do: DoEvents: Loop Until .readyState = 4
            t = .responseText
            arr = dann(t)
            If Not IsEmpty(arr) Then
                For j = 0 To UBound(arr)
                    Cells(i, 7 + j) = "http:" & arr(j)
                Next
            Else
                Cells(i, 7) = "нет картинки"
            End If
        End With
Функция
Код
    With CreateObject("VBScript.RegExp")
        .IgnoreCase = True
        .Global = True
        .MultiLine = True
        .Pattern = "data-fancybox-group=(.*?) href=""(.*?)"""
        If .Test(t) Then
            Set Matches = .Execute(t)
            ReDim arr(Matches.Count - 1)
            For i = 0 To Matches.Count - 1
                arr(i) = Matches(i).SubMatches(1)
            Next
            dann = arr
            Set Matches = Nothing
        End If
    End With
Извлечение ссылок на картинки, Извлечь со страницы все ссылки на саму картинку из определенного контейнера html
 
Lex396, добрый день!

Что-то вроде этого?
Возвращаете функцией коллекцию со ссылками и далее работаете с листом.
Код
     Set REGEXP = CreateObject("VBScript.RegExp")
     REGEXP.IgnoreCase = True
     REGEXP.Global = True
     REGEXP.MultiLine = True
     REGEXP.Pattern = "data-fancybox-group=(.*?) href=""(.*?)"""
     If REGEXP.Test(t) Then
        Set Matches = REGEXP.Execute(t)
        Set List = CreateObject("Scripting.Dictionary")
        For Each m In Matches
            List.Add m.SubMatches(1), Nothing
        Next
     End If
Power Query: Импорт таблицу в из Интернета
 
azma, добрый день!

Воспользуйтесь вот такой ссылкой. Правда сайт периодически вываливается в 504 ошибку.
Как сделать так, чтобы кнопка на втором листе добавляла строку в таблицу второго листа?
 
Алексей Галимов, здравствуйте.
Замените все Sheets(1) на ActiveSheet
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 25 След.
Наверх