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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 41 След.
Импорт кучи файлов Word в Excel по условиям
 
Изменил код, теперь данные заносятся в  пустую строку
Импорт кучи файлов Word в Excel по условиям
 
Пример для вывода в excel
Код
Sub ReadWord()
Dim Sh As Worksheet
    Set app = CreateObject("Word.Application")
    app.Visible = True
    Set docAct = app.Documents.Open("Путь к файлу ворда")
        Set Tb = docAct.Tables(1)
    ReDim x(1 To 2, 1 To Tb.Rows.Count)
    For n = 1 To Tb.Rows.Count
        A = Split(Tb.Rows(n).Cells(1).Range.Text, Chr(13))(0)
        B = Split(Tb.Rows(n).Cells(2).Range.Text, Chr(13))(0)
        x(1, n) = A
        x(2, n) = B
    Next
    Set Sh = ActiveSheet
   LastRow = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row+1
    Sh.Range("A" & LastRow).Resize(2, UBound(x, 2)) = x
docAct.Close
Set docAct = Nothing
  app.Quit
  Set app =Nothing
End Sub
Изменено: Doober - 16 Ноя 2017 18:13:17
Найти ошибкy в коде VBA на расшифровкy зашифрованного текста с помощью Xor
 
Вы ошибаетесь, проблемная строка 3.
Код символа не может быть больше 255, первый же код=977
Создание системы расчета и металлоконструкций на базе excel.
 
И я получил, отказался.
работа, google excel
 
Написал в личку
Сдал, оплату получил с бонусом.
Изменено: Doober - 10 Ноя 2017 16:40:47
работа, google excel
 
Заказ еще актуален?
Длинный HTML код в переменную, HTML код скачиваеться не полностью
 
Цитата
MaxSF написал:
GetHTTPResponse
Замените эту функцию на
Код
Function GetHTTPResponse(ByVal sURL) As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    With oXMLHTTP
        .Open "GET", sURL, False
      .setRequestHeader "Upgrade-Insecure-Requests", "1"
        .send
        GetHTTPResponse = .responseText
    End With
    Set oXMLHTTP = Nothing
End Function
Длинный HTML код в переменную, HTML код скачиваеться не полностью
 
Цитата
MaxSF написал:
но не все. нет данных, которые появляются при прокрутке мишки вниз.
Не может быть.Последня запись в таблице
Nov 06, 2000 1.60 1.62 1.36 1.36 1.22 504,154,000
Текст в скрипте
973486800 это 6 ноября 2000 г
Код
{"date":973486800,"open":1.6026785373687744,
"high":1.6160714626312256,"low":1.3616071939468384,
"close":1.3616071939468384,"volume":504154000
,"adjclose":1.2249780893325806}
Excel не открывает HTTPS страницы, Excel не открывает HTTPS страницы
 
параметра в реестре такого нет.
Excel без проблем открывает https
Длинный HTML код в переменную, HTML код скачиваеться не полностью
 
Здравствуйте.
В тексте страницы все есть.Посмотрите внимательно на javascript.
Начальный текст поика root.App.main =   .данные в формате JSON.
Нужные данные начинаются с HistoricalPriceStore
Когда крутите колесико мышки-скрипт выполняется и заполняет страницу данными.
Изменено: Doober - 5 Ноя 2017 20:58:22
работа, google excel
 
Тендер ?
Изменено: Doober - 2 Ноя 2017 01:47:28
Перенос db Access в WEB MS SQL, Просто перенести готовую ДБ на хостинг, Предложение работы
 
Здравствуйте.
Можно попробовать решить Вашу задачу.Отписался в личку
Получить данные с XML страницы, с множеством однотипных параметров
 
Вы это ищите?
Код
    Set X = xmlDoc.SelectSingleNode("//Details/parameter[name='workorderid']")
    If Not X Is Nothing Then
        Id = X.LastChild.Text
    End If

    Set X = xmlDoc.SelectSingleNode("//Details/parameter[name='requester']")
    If Not X Is Nothing Then
        Requester = X.LastChild.Text
    End If
Макрос по Переводу букв с кириллицу на латиницу, Макрос по работе с номерами машин
 
Не попадался.Наваял пример функции, переделаете в процедуру и допилите под себя.
Скрытый текст
Разработка макроса по переделке XML
 
Написал в личку
В работе
Изменено: Doober - 25 Окт 2017 23:13:07
Парсинг сайта, Парсинг сайта
 
Jungl Я не претендую, только спросил.
Парсинг сайта, Парсинг сайта
 
Здравствуйте.
Бюджет каков?
Замена текста по образцу., Как заменить найти и заменить текст в ТХТ (XML) файле?
 
нолик не при делах. Почитайте.
Замена текста по образцу., Как заменить найти и заменить текст в ТХТ (XML) файле?
 
Здравствуйте.Раз исправились, то держите пример. :)
Скрытый текст
Изменено: Doober - 12 Окт 2017 15:01:52
Создание формы с заполняемыми данными и автоматическим распределением информации по таблицам
 
Цитата
mrChegevara написал:
Встреча-было бы идеально
Можно встретиться и в виртуальной реальности при помощи TeamViewer .
На мастер-классах Вы своими руками все будете делать.Был такой опыт.
Формат при отправке из VBA + Outlook
 
Здравствуйте.
Это решает вопрос ?
Код
        .HTMLBody = "<p class=3D'MsoNormal'><b><span style=3D'color:red'>BBBB<o:p></o:p></span>"
        .BodyFormat = 2
Обработка таблицы с данными, на основании одной таблицы Excel создать другую таблицу
 
Работу сдал.
Получил больше, чем договаривались.
Обработка таблицы с данными, на основании одной таблицы Excel создать другую таблицу
 
В работе
Обработка таблицы с данными, на основании одной таблицы Excel создать другую таблицу
 
Стадия уточнения задачи.
Обработка таблицы с данными, на основании одной таблицы Excel создать другую таблицу
 
Цитата
oaa написал:
соответственно сможет из файла xml  заполнять Google таблицу данными?
Здравствуйте.
Есть такие.
Напишите  предполагаемый  бюджет.
Изменено: Doober - 5 Окт 2017 18:31:27
Поиск по нескольким условиям и возврат нескольких вхождений, Помогите срочно! :(( Оплата на телефон
 
Ставки растут  в 14 группе :)
Сдача скоро.
Доработать макрос
 
Цитата
Юрий М написал:
Пёс-перехватчик ))
Юра, реально не было твоего сообщения.
Виноват, обещаю котов не гонять :)  
Доработать макрос
 
Цитата
jeka1985 написал:
Прошу если таковые имеются
Имеются.Реквизиты отправил в личку.
Подстановка данных в ячейку
 
Цитата
D.Frolov написал:
я трижды задавал вопрос о цене прежде чем получил ответ.
Сначала я уточняю все нюансы, только потом цену говорю.
Подстановка данных в ячейку
 
Цитата
D.Frolov написал:
Да, давайте договариваться:)
Я думаю, что не договорились.
D.Frolov обещал дать ответ на мое предложение в течении часа.
Прошло 5 часов
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 41 След.