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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 26 След.
Модернизировать запрос Power Query.
 
Юрий М, доброго времени суток!
Поскольку мы работали с ТСом ранее, то я по e-mail предложил ему решить с помощью макроса ЕСЛИ здесь вопрос не решится с PQ. За работу еще не брался да и до форума добраться толком не успел, чтобы отметиться :)
Если кто-то уже пытался связаться с ТС, то я не против уступить работу, при условии отметки в теме.
Открытие Excel файла из интернета по гиперссылке, Открытие Excel файла из интернета по гиперссылке
 
fudze, предлагаю такой вариант. Успехов.
Открытие Excel файла из интернета по гиперссылке, Открытие Excel файла из интернета по гиперссылке
 
Цитата
fudze написал:
ссылка на файл в интернете, сформированная формулой ГИПЕРССЫЛКА из значений в разных ячейках
Рекомендую переделать получение гиперссылки с помощью формул, либо в коде объединять из ячеек.
Цитата
fudze написал:
не получается заставить VBA открыть файл по ссылке
Для начала необходимо скопировать на локальный компьютер:
Код
#If Win64 Then
    Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongLong, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As LongLong, ByVal lpfnCB As LongLong) As LongLong
#Else
    #If VBA7 Then
        Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As LongPtr
    #Else
        Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    #End If
#End If

Sub Загрузка_Часов()
    Dim URL As String, DestinationFolder As String
    Dim OWB As Workbook
    Dim Rng As Range
    Dim C As Integer
    Dim R As Integer
    With ThisWorkbook.Sheets(1)
        R = .Cells(27, 3)
        For C = 2 To 18 Step 4
            URL = "http://www.atsenergo.ru/dload/calcfacthour_regions/202001_VORNEGEN_20_calcfacthour.xls" '.Cells(R, C) '
            DestinationFolder = ThisWorkbook.Path & "\202001_VORNEGEN_20_calcfacthour.xls"
            If URLDownloadToFile(0, URL, DestinationFolder, 0, 0) = 0 Then
                DoEvents
                Set OWB = Workbooks.Open(DestinationFolder)
                Set Rng = OWB.Sheets(1).Range("B9:B32")
                .Range(.Cells(R + 1, C), .Cells(R + 1 + 23, C)).Value = Rng.Value
                OWB.Close
            End If
        Next
    End With
End Sub
Подбор по автомобилю регулярными выражениями
 
Мне кажется, тут проще на массивах перебором.
Если желающих не появится, могу попробовать(через пару дней).
Контакты в ЛС.
Оптимальное количество продукта в коробке, количество коробок, их размер и нагрузка на поддон.
 
Интересно, каков бюджет?
Посмотрел пару специализированных программ, стоят прилично.
Даже алгоритм в МФТИ вычислялось под это дело.

Цитата
Vadikc написал:
В интернете удалось найти только расчет оптимальной загрузки паллеты с уже известными размерами коробов
Если это готовое решение на основе excel, то поделитесь, возможно это упростить решение вашего вопроса.

p.s. про почту в теме - лучше удалить.
Требуется Макрос по переносу данных из одного файла в два разных
 
Вышлите пожалуйста файлы-примеры на почту(в профиле), т.е. что из себя представляет сборный файл и что он должен делать с помощью макроса.
Завтра на работе проверю возможность связи с share point.
Требуется Макрос по переносу данных из одного файла в два разных
 
Цитата
Salta-301 написал:
Shared point
Это компонент из многочисленных, которые относятся к веб приложениям microsoft office. Вы и ваши коллеги, как я понимаю, работают с этим файлом из excel online?
Если у вас стоит так же расширенная версия excel, то необходимо смотреть как настроен сетевой путь к папке, которая связана с share point. Вы готовы предоставить удаленный доступ по RDP для изучения?
Предположу, что возникнут проблемы с синхронизацией файла, если с ним работают несколько человек.
Парсер сайта
 
Написал в ЛС
Интеграция данных с сайта интернета в Excel
 
Добрый день!

Можно, опишите что у вас не получается.  
Макрос VBA, для создания новых запросов из ИНСТАГРАММА
 
Цитата
johny009 написал:
каждый день добавлять новые запросы, общее количество запросов превышает 1500.
Что-то мне подсказывает, что за такое кол-во запросов вы словите банан на ИГ. Если без пауз.
Но вы попробуйте :)
Макрос VBA, для создания новых запросов из ИНСТАГРАММА
 
Цитата
johny009 написал:
необходимо добавлять запросы из инстаграмма.
Что за запросы?
GET запрос возвращает 403
 
Цитата
Makintosh написал:
В чем может быть проблема?
Проблем, связанных с GET/POST запросами могут быть тысяча и одна тележка.
Все что нужно для понимания проблемы - сам сайт и способы работы с ним(авторизация, аутентификация, токены, куки, etc)

Ошибка 403 говорит о том, что сервис отказывается вас авторизовывать.
Макрос EXCEL Получение данных с сайта, запись в word файл, копирование файлов, запись в таблиц
 
Бюджет?
Что за сайт?

От сайта может сильно зависеть, вольетесь ли вы в обозначенный бюджет.
Получение по API посредством Power Query (BI)
 
Решение вопроса можно ускорить, если вы:

1. Опишете подробности по обоим сайтам, приложив информацию по API(предварительно закрасив логины/ключи)
2. Покажете, что должно быть на выходе в результате
3. Укажете предполагаемый бюджет
Получение по API посредством Power Query (BI)
 
Цитата
runeft написал:
какие есть рабочие варианты
Например - VBA.
Точно могу сказать, глянув сам сайт(который другой)
Объёдинение запросов с разных серверов, Объёдинение запросов с разных серверов
 
Речь идет о таблицах в excel книгах или в SQL БД?
Давайте более развернутое описание проблемы, желательно с файлом примером.
Получение по API посредством Power Query (BI)
 
Обязательно Power BI?
Русские символы в Visual Basic заменены символом вопроса
 
Проблема с кодировкой, попробуйте сей способ - тык
VBA: корректная выборка типа double по ADO из листа excel.
 
Цитата
doober написал:
Эх Олег, Олег.
Действительно, чего это я. Заработался видимо.
А я все смотрю на DecimalSeparator, который выдает запятую)).
По итогу получается, проще всего сделать замену разделителя на системный перед выборкой. Что-то вроде
Код
Columns(1).Replace What:=",", Replacement:="."
Спасибо, Сергей!
Копирование+Вставка карточек с 2Gis (макрос двух данных операций)
 
Что за карточки? Откуда? Пример хоть будет?
VBA: корректная выборка типа double по ADO из листа excel.
 
Здравствуйте, коллеги!

Столкнулся со следующей ситуацией:
делаю выборку select'ом по листу книги и вставляю результат в другой лист, функционал простой:
Код
    Dim SQLConn As Object, Recordset As Object
    Dim i As Integer
    Set SQLConn = CreateObject("ADODB.Connection")
    SQLConn.CursorLocation = 3
    SQLConn.Open "Provider=Microsoft.Ace.OLEDB.12.0; Extended Properties=""Excel 12.0; HDR=Yes;""; Data Source=" & ActiveWorkbook.FullName
    Set Recordset = SQLConn.Execute("SELECT [TypeNum], [TypeStr] FROM [db$]")
    ReDim arr(Recordset.RecordCount - 1, Recordset.Fields.Count - 1)
    i = 0
    Do While Not Recordset.EOF
        arr(i, 0) = Recordset.Fields("TypeNum")
        arr(i, 1) = Recordset.Fields("TypeStr")
        i = i + 1
        Recordset.MoveNext
    Loop
    ThisWorkbook.Sheets("result").Cells(1, 1).Resize(Recordset.RecordCount, Recordset.Fields.Count) = arr
Если в столбце TypeNum тип числовой, то дробные числа при перечислении выводятся как Null.
Если тип столбца текстовый (как в TypeStr), то все ок.

Можно конечно использовать граблю в виде преобразования столбца в текстовый формат, но я хочу понять сей опус.
Куда смотреть?

Ну и по канону, файл с данными во вложении.
Макрос для получения информации с сайта, получения с сайта перечня товаров и цен
 
Vitallic, если вам не к спеху и ваш вопрос не решится в течении пары дней, то пишите в ЛС или на почту(в профиле).
Массовое скачивание XLS файлов с сервиса dadata
 
Добрый.

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

Все это есть на форуме, пробуйте. Что-то не получится - пишите, с приведением кода в теме.
Открытие личной книги макросов (PERSONAL) при не закрытом процессе
 
Цитата
Dyomp написал:
Есть программа (на С++, к исходному коду нет доступа), формирует отчет в excel, сохраняет и закрывает excel
Добрый.
А процесс остается висеть, если закрыть программу?
Требуется макрос для приведение таблицы в нужный вид
 
Давайте посмотрим, контакты в профиле
В работе
Файл отправлен, жду оценки и обмена
Обменялись. С ТСом было приятно работать.
Изменено: Oleg Boyaroff - 25 Фев 2020 21:50:38
Бесконечное создание строк 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 запросы - ищите функции на форуме, тем предостаточно. Одна из них.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 26 След.
Наверх