Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Web Browser в Эксель документе, изменить размеры,всплывающее окно
 
#1
08.05.2015 20:02:24
Здравствуйте!
Возникла проблема, помогите пожалуйста.
В Эксель вставил Браузер, и ссылку на нужный сайт (с футбольными матчами-статистика Live).
Когда нажимаю на нужный "матч", появляется ещё одно окно (с более подробной статистикой).
Так вот это окно встаёт поверх всего документа, как отдельное окно и закрывает её часть.

Вопрос:
1) как сделать так, чтобы открываемое доп. окно-появлялось в нужном
месте, и не поверх всего, а как то "встроено" что ли, как сам браузер? и
если тыкну на другой матч, это окно сменилось на новое (которое
всплывает).

2) как уменьшить размер браузера (масштаб), чтобы он влез в нужную мне
область (и чтобы сам сайт уменьшился-чтобы влезало в 40-50 ячеек, ну
чтобы не пользоваться нижним ползунком, а видеть всю ширину сразу)?

Сам Эксель документ загрузить не могу, вес более 100кб., сайт не даёт.
 
 
 
#2
08.05.2015 20:23:46
Или хотя бы подскажите, как сделать: чтобы всё открывалось в одном окне, без всплывающего чтобы было, это тоже выход. Чтобы куда не тыкал, открывалось в самом браузере а не поверх.
 
 
 
#3
08.05.2015 22:46:23
Поиск почему не понравился?
Вставка Web браузера ActiveX не подойдёт?
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
 
 
 
#4
08.05.2015 22:49:15
в смысле? во внешнем браузере?
а  ActiveX-это как?
Я вроде 1 браузер уже там создал.
--------------------------------------
Нужно чтобы, после того как я нажал на выбранный матч, страница которая появляется в отдельном окне, появлялось там же, где тыкал, а не поверх этой, и как 2-ая.
Тоесть не появлялась ещё одна, а заменялось, в том же окне.
Изменено: arskat5 - 08.05.2015 22:55:17
 
 
 
#5
08.05.2015 23:06:22
Цитата
arskat5 написал: Тоесть не появлялась ещё одна, а заменялось, в том же окне.
сам xl не предназначен для серфинга.
по линку есть код, меняющий контент web-browser'a в xl.
"если очень захотеть - можно в космос улететь"
- но я бы этого делать не стала...
отпарсить сайт на предмет линков, вывести их на лист, сделать привязки к кнопкам (только прежде кнопки создать на листе), использовать тот код... а в браузер смотреть... более оптимально вряд ли получиться... да и это оптимальностью не назвать...
Изменено: JeyCi - 08.05.2015 23:11:03
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
 
 
 
#6
08.05.2015 23:10:19
arskat5 Если код скриптов посмотреть,то видно,что создается новое окно.
То,что вы хотите.не получите  на этом сайте.
Цитата
отпарсить сайт на предмет линков
Там очень не простой сайт,и защищается.
Изменено: Doober - 08.05.2015 23:12:20
 
 
 
#7
08.05.2015 23:11:55
тут дело в том, что я пишу програмку-эксель, для удобного сбора статистики, и эта же статистика вписывается в этот же файл Эксель, далее программка будет выдавать исход матча (счёт). И нужно, чтобы рядом с таблицей, был сайт с турнирной таблицей, голами, победами и прочее, чтобы смотреть и оттуда сразу высчитывать. Использовать можно и внешний браузер, но хотелось всё поудобнее сделать, ну типа "покупать всё в одном магазине, а не так чтобы - за колбасой туда, за маргарином сюда и т.д."
Изменено: arskat5 - 09.05.2015 08:55:48
 
 
 
#8
08.05.2015 23:14:57
Doober
То есть в этом ни Эксель, ни я не виноваты, а именно тот сайт выдаёт такое и не вариант?
тоже думал об этом, но всё же сомневался.
Хорошо тогда, другой вопрос, как можно сам сайт чуть размерами уменьшить, чтобы влезало в ячейки, именно которые я задумал. Ну чтобы без ползунков?
(Я имею ввиду в Эксель)
Изменено: arskat5 - 08.05.2015 23:22:28
 
 
 
#9
08.05.2015 23:47:20
arskat5, кнопка цитирования не для ответа. О чрезмерном цитировании - в правилах.
Исправьте сообщение.
 
 
 
#10
09.05.2015 03:14:01
Данные можно получить,вывести уже в виде таблицы.
Пример в файле..
Каждый матч имеет ID.Подставляя его получите данные.
 
 
 
#11
09.05.2015 22:52:57
Doober
Спасибо!
Но я не очень понял (я только недавно начал осваивать Эксель)
Можно по конкретнее? Это вписывать ссылку в Visual Basic каждый раз или...?
Куда подставлять именно ID и где его брать?
(извините, может и глупые вопросы, но хотелось бы научиться)
 
 
 
#12
09.05.2015 23:38:06
Для вас это очень сложная задача.
У каждого матча есть свой Ид.
Вы кликаете  по счету и получаете такую ссылку  ...../match/zuMLJUC1/#match-summary
Красным выделил Ид.
Идея такая.Получить код страницы,выбрать Ид матчей и далее по усмотрению собирать инфу.
Если попытаетесь базу выкачать, можете бан получить от суток до пяти.
 
 
 
#13
09.05.2015 23:52:30
Так если я на МайСкор не под логином и паролем захожу, как мне бан сделают? Там вроде свободный просмотр.
А вручную каждый ID собирать, это ещё дольше, прогу создаю вроде для облегчения - а тут будет ещё дольше.
Хорошо, об этом забыли-думаю что не получится там ничего.
А вот как уменьшить размер браузера (масштаб), чтобы он влез в нужную мне область (и чтобы сам сайт уменьшился-чтобы влезало в 30-40 ячеек, ну чтобы не пользоваться нижним ползунком, а видеть всю ширину сразу)? тоесть как масштаб сайта уменьшить и втюхать в ячейки (нужного размера)?
 
 
 
#14
10.05.2015 04:03:06
Цитата
arskat5 написал: как уменьшить размер браузера (масштаб)
Для масштабирования можно использовать такую процедуру:
Код
Sub BrowserZoom(WBrowser As Object, Zoom)
  WBrowser.ExecWB 63&, 2&, CLng(Zoom)
End Sub

Вызывается так:
BrowserZoom WebBrowser1, 50
где WebBrowser1 - встроенный в лист объект веб-браузера, а 50 - это масштаб 50%
Изменено: ZVI - 10.05.2015 04:06:35
 
 
 
#15
11.05.2015 02:23:35
ZVI
Что то у меня не получилось (уменьшить масштаб). Сможете пошагово расписать, что именно и куда именно вписать? Я не очень разбираюсь в Эксель, только недавно заинтересовался и начал изучать.
 
 
 
#16
11.05.2015 04:31:00
В примере, который выложил Doober в сообщении #10,  в код модуля Листа1 нужно добавить процедуру:
Код
Sub BrowserZoom(WBrowser As Object, Zoom)
' ZVI:2015-05-11 процедура масштабирование контента веб-браузера
  WBrowser.ExecWB 63&, 2&, CLng(Zoom)
End Sub
и добавить одну строчку кода (см. строку с комментарием ниже) в процедуру, которая там уже есть:
Код
Private Sub Webwrite(html)
' Doober http://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=137578&action=download
  If WebBrowser1.Document Is Nothing Then
    WebBrowser1.Navigate "About:blank"
  End If
  
  BrowserZoom WebBrowser1, 50  ' <--- эта строка добавлена для масштаба 50%
  
  WebBrowser1.Document.Open
  WebBrowser1.Document.write html
  WebBrowser1.Document.Close
End Sub
Изменено: ZVI - 11.05.2015 04:39:13
 
 
 
#17
11.05.2015 15:26:42
Всё равно не получается, давайте попробуем не на примере документа "Doober", а на примере моего.
Вот сам файл: ЭКСЕЛЬ-Черновик
Просто конкретно что вписать и куда (уже готовое), чтобы я смог просто менять цифру "масштаба" и всё.

Сейчас там у меня стоит вот что (только кнопки):
Код
Private Sub CommandButton1_Click()
WebBrowser1.Navigate ("http://www.yandex.ru/")
End Sub

Private Sub CommandButton10_Click()
WebBrowser1.Navigate ("http://www.oddsfair.net/en/")
End Sub

Private Sub CommandButton11_Click()
WebBrowser1.Navigate ("http://vprognoze.ru/chart/")
End Sub

Private Sub CommandButton12_Click()
WebBrowser1.Navigate ("http://betvirus.com/?lang=ru")
End Sub

Private Sub CommandButton13_Click()
WebBrowser1.Navigate ("http://ru.grimbets.com/service/Inform")
End Sub

Private Sub CommandButton14_Click()
WebBrowser1.Navigate ("http://www.scibet.com/football/")
End Sub

Private Sub CommandButton2_Click()
WebBrowser1.Navigate ("http://www.myscore.ru/")
End Sub

Private Sub CommandButton3_Click()
WebBrowser1.Navigate ("http://www.hot-odds.com/DroppingOdds")
End Sub

Private Sub CommandButton4_Click()
WebBrowser1.Navigate ("http://www.vitisport.ru/index.php?clanek=quicktips&sekce=fotbal&lang=ru")
End Sub

Private Sub CommandButton5_Click()
WebBrowser1.Navigate ("http://ru.zulubet.com/")
End Sub

Private Sub CommandButton6_Click()
WebBrowser1.Navigate ("http://vprognoze.ru/")
End Sub

Private Sub CommandButton7_Click()
WebBrowser1.Navigate ("https://www.vkursax.ru/forecasts/soccer/country/24/")
End Sub

Private Sub CommandButton8_Click()
WebBrowser1.Navigate ("http://lifebet.ru/futbol")
End Sub

Private Sub CommandButton9_Click()
WebBrowser1.Navigate ("http://vpliuse.ru/stavki")
End Sub
 
 
 
#18
11.05.2015 21:58:17
Непонятно, что у Вас не получается, уточнили бы. Ну, хорошо, в Ваш код в начало модуля, куда указывает на рисунке Ваша красная стрелочка, скопировать и вставить вот этот код:
Код
Sub BrowserZoom(WBrowser As Object, Zoom)
  WBrowser.ExecWB 63&, 2&, CLng(Zoom)
End Sub

Затем в Ваш код для кнопки Яндекса:
Код
Private Sub CommandButton1_Click()
WebBrowser1.Navigate ("http://www.yandex.ru/")
End Sub

добавить строчку масштабирования контента веб-браузера, о которой я уже писал ранее, получится:
Код
Private Sub CommandButton1_Click()
BrowserZoom WebBrowser1, 50 ' <-- ЭТА СТРОЧКА ДОБАВЛЕНА!!! 50 означает Zoom = 50%
WebBrowser1.Navigate ("http://www.yandex.ru/")
End Sub

Вместо 50 можете вписать требуемый процент зуммирования.
При необходимости смены масштаба аналогичную строчку BrowserZoom WebBrowser1, 35 можно добавить и в коды для других кнопок.
Изменено: ZVI - 11.05.2015 22:16:05
 
 
 
#19
12.05.2015 00:38:14
ZVI
Огромное спасибо!
всё теперь получилось, выручили очень.
 
 
 
#20
12.05.2015 01:19:35
arskat5, рад, что помогло, удачи Вам!
 
 
 
Страницы: 1
Читают тему
Наверх