Статьи и код по VBA

[gaidar]

Товарищи VBA'шники , что-то с тревогой я смотрю на отсутствие статей в соответствующем разделе сайта.

Может кто поможет?

[Jume]

То ли тоже посеять разумное, доброе, вечное?
Gaidar, идейку не подбросишь, о чём бы написать?

Напиши как в эксель забрать таблицу(прайс-лист) с веб-страницы.

В инете нигде не пишут про такое. Я нашёл в хелпе пример, но он зараза забирает всю страницу и при каждом запросе не помещает результаты нового на место предыдущего, а сдвигает старые результаты на листе в право. Что делает невозможным обработку скаченных данных.

Код: Выделить всё

Sub import()

MsgBox ("Обновление может занять несколько секунд.")

Set shFirstQtr = Worksheets("99999ru")

Set qtQtrResults = shFirstQtr.QueryTables _
       .Add(Connection:="URL;http://99999.ru/price.shtml", _
          Destination:=shFirstQtr.Cells(1, 1))
         

With qtQtrResults
    .WebSingleBlockTextImport = True
    .Refresh
   
    'обработка ошибки переполнения очереди
    If .FetchedRowOverflow <> False Then
        MsgBox "Query too large: please redefine."
    End If

End With

End Sub


[DSNDSN]

Могу дать *.dot документа по ГОСТ2.104-68, который быстро сделал, чтобы некоторые коллеки не доставали просьбами отредактировать каждый новый документ. Может, кому пригодится.

[amokr]

То ли тоже посеять разумное, доброе, вечное?
Gaidar, идейку не подбросишь, о чём бы написать?

Напиши как в эксель забрать таблицу(прайс-лист) с веб-страницы.

В инете нигде не пишут про такое. Я нашёл в хелпе пример, но он зараза забирает всю страницу и при каждом запросе не помещает результаты нового на место предыдущего, а сдвигает старые результаты на листе в право. Что делает невозможным обработку скаченных данных.

Хз почему делает невозможным - каждый раз импортируется одинаковое количество столбцов - заведи в отдельной ячейке счетчик скачивания, и добавляй к индексам в cell-ах и range-ах число, равное счетчик*количество столбцов:)

А собственно сдвигает судя по всему потому что не вписывает импортируемые данные в существующие ячейки, но создает под них новый дипазон столбцов.

должно помочь по идее:

Код: Выделить всё

Sub import()
shFirstQtr.clear
.... итд по коду


и нехай сдвигает пустые ячейки:) проблема "скачивания всей страницы" тоже решается легко - шаблон страницы каждый раз одинаков, соответственно можно после закачки элементарно средствами самого excel удалить лишнее:)

ПС сорри за очевидность совета:)

[iGrok]

ПС сорри за очевидность совета:)

Не за то извиняешься. Ты б на дату поста посмотрел что ли...

[amokr]

ПС сорри за очевидность совета:)

Не за то извиняешься. Ты б на дату поста посмотрел что ли...

уже посмотрел:) да фиг с ним - пусть висит:)

[One@as_76]

Всем привет подскажите пожалуйста как узнать handle окна Windows и всех контролов которые находятся на этом оке, отправить ему системное соощение с помощью функции SendMessage и как ее прописать в проекте???

[Viper]

Всем привет подскажите пожалуйста как узнать handle окна Windows и всех контролов которые находятся на этом оке, отправить ему системное соощение с помощью функции SendMessage и как ее прописать в проекте???

Не понял, какое отношение вопрос имеет к данной теме? Кнопка "Новая тема" доступна всем.

[Денис]

Не понял, какое отношение вопрос имеет к данной теме? Кнопка "Новая тема" доступна всем.

Погоди немного. Он уже начал в бесконечном цикле подымать старые топики из могил. Скоро его побанят карающей дланью и снова всё станет спокойно и тихо.

[Viper]

Не понял, какое отношение вопрос имеет к данной теме? Кнопка "Новая тема" доступна всем.

Погоди немного. Он уже начал в бесконечном цикле подымать старые топики из могил. Скоро его побанят карающей дланью и снова всё станет спокойно и тихо.

Хороший ответ модератору, с юмором!

[Денис]

Хороший ответ модератору, с юмором!

Ой и правда.

[FireFenix]

Случайно набрёл на статью
http://stackoverflow.com/questions/1070 ... res-of-vba