|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.11.2012, 11:56 | #11 | |
Новичок
Джуниор
Регистрация: 15.11.2012
Сообщений: 14
|
Цитата:
Теперь в этом эксель файле нужно думать, как считать данные с ростера (то есть залогинившись), что бы иметь данные по усталости и физической готовности Сейчас выложу свой файл с записанным макросом. И расскажу, как он у меня работает. |
|
17.11.2012, 12:15 | #12 |
Новичок
Джуниор
Регистрация: 15.11.2012
Сообщений: 14
|
Добавил файл.
Поясняю как работает. На первый лист (вкладка макрос) - вставляю данные (копирую) с ростера. Данный файл уже в таком виде выложен. После этого нужно нажать кнопку "ростер". И на выходе (последний лист, вкладка рассчёты) имеем финальную силу 17 игроков при игре любым из 6 стилей. Планирую в нём сделать ещё кое что. 1. На первом листе нужно сделать импорт сразу с сайта. То что сделано у doober только, что б данные брались с ростер залогинившись на сайте 2. На выходе доработаю до 22х игроков. 3. Есть ещё такой показатель как игрок на тренировке или трансфере ( это минус 10 процентов силы) и известность игрока ( от 3 до 15 процентов игрока к силе в плюс). Нужно будет их тоже начать учитывать в формлах. Тогда погрешность по силе нвыходе будет меньше. 4. Обработать оставшиеся спец возможности. Что бы они тоже как то учтиывались. 5 Узнать все скрытые возможности игроков (то есть узнать любимый стиль игроков), но не через скаут - центр (строение в игре, где определяется любимый стиль игрока), а каким то другим способом . Думаю - это возможно сделать, но нужно облазить думаю весь интернет, что б узнать как. Ну как Вам? Последний раз редактировалось tosha_79; 17.11.2012 в 12:28. |
17.11.2012, 13:59 | #14 |
Новичок
Джуниор
Регистрация: 15.11.2012
Сообщений: 14
|
doober,
да, сейчас буду читать разбираться, что и как по вашим ссылкам. кстати, у меня не получилось открыть ваш макрос В ТОМ ЭКСЕЛЬ ФАЙЛЕ(то есть VBA), видимо там запаролено, но тот файл отлично работает. EducatedFool, Я попытался сам сделать так же как doober по информации с http://excelvba.ru/code/GetWebPageText. Так вот пример у меня открылся в виде текста, а когда поставил свой сайт, то ничего не видно. Видимо тот пример программы работает только для одного сайта. |
17.11.2012, 14:06 | #15 | |
Новичок
Джуниор
Регистрация: 15.11.2012
Сообщений: 14
|
Цитата:
буду искать инфу в инете, как вскрыть невидимые параметры на сайте. Но это позже. Снача закончу с импортом с сайта в эксель. |
|
17.11.2012, 14:15 | #16 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
как вы собираетесь играть,если элементарный вопрос не решили
Анализ,обработка данных Недорого
|
17.11.2012, 14:20 | #17 |
Новичок
Джуниор
Регистрация: 15.11.2012
Сообщений: 14
|
за шутку 5 баллов.
пока по старинке=) контрол+C контрол+V или это не шутка? или там в екселе есть куда пароли ввести? doober, вы меня заинтриговали вторая ссылка ваша, весьма интересна, в смысле очень информативна. Сейчас сижу разбираюсь так же нашёл там же такую инфу http://www.firststeps.ru/vba/excel/vbaexcel1.html . там я надеюсь что много чего подчерпну Последний раз редактировалось tosha_79; 17.11.2012 в 14:30. |
17.11.2012, 14:49 | #18 |
Новичок
Джуниор
Регистрация: 15.11.2012
Сообщений: 14
|
в VBA прописываю так
Sub test() Set ie = CreateObject("InternetExplorer.Appl ication"): DoEvents NavStr = "http://www.virtualsoccer.ru/" ie.Navigate NavStr While ie.busy Or (ie.readyState <> 4): DoEvents: Wend Set ieDoc = ie.Document If ieDoc.Title Like "Îøèáêà ñåðòèôèêàòà*" Or ieDoc.Title Like "Certificate Error*" Then ieDoc.Links(1).Click While ie.busy Or (ie.readyState <> 4): DoEvents: Wend Set ieDoc = ie.Document End If With ieDoc .all("login").Value = "сюда ввожу свой логин" .all("pwd").Value = "сюда ввожу свой пароль" .all("loginMode").Click For i = 1 To 10000: DoEvents: Next While ie.busy Or (ie.readyState <> 4): DoEvents: Wend End With For i = 1 To 20000: DoEvents: Next While ie.busy Or (ie.readyState <> 4): DoEvents: Wend For i = 0 To ie.Document.all.Length - 1 Cells(i + 1, 1).Value = ie.Document.all.Item(i).innerText Next ie.Quit Set ie = Nothing End Sub Но выдаёт ошмбку 429. Щелкаю по ошибке выкидывает на строчку Set ie = CreateObject("InternetExplorer.Appl ication"): Почему? Может у меня просто старая версия IE или просто я тупой? |
17.11.2012, 15:35 | #19 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Для начала убрать пробел.
Код:
Код:
Анализ,обработка данных Недорого
|
17.11.2012, 15:56 | #20 |
Новичок
Джуниор
Регистрация: 15.11.2012
Сообщений: 14
|
Doober,
премного благодарен. Если бы не Вы и Ваш коллега, я бы никогда не узнал вещей, которые тут выяснил. Я думаю мне нужна неделя, что бы хоть как то всё уложить в голове. Вы, итак, считаю много мне уделили времени. Я понимаю, что у Вас своя работа и другие дела. Но и ту информацию, которую Вы мне уже предоставили очень важна для меня. Я, как писал выше, не хочу, что бы за меня что то реализовывали, я хочу научиться сам. Но без подсказок других - я сам не осилю. Для меня это так сказать развлечение, не более. Но мне действительно это интересно, и хочется хоть немного начать разбираться в VBA. Я был бы рад, если бы вы могли тут (в этой теме) написать мне раз-два в неделю, в свободное своё время, ответив на возникшие мои вопросы. Но, если это невозможно, или за это нужно заплатить, а я не готов, то всё-равно, считаю, что Вы многое мне дали за эти несколько дней. Огромное спасибо. Последний раз редактировалось tosha_79; 17.11.2012 в 18:04. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Импорт текста в готовый написанный другими эксель | Novich | Microsoft Office Excel | 7 | 24.08.2011 13:46 |
Импорт из дбгрида в эксель | Ake | Общие вопросы Delphi | 4 | 24.12.2010 22:51 |
импорт в эксель | Demonmov | Microsoft Office Excel | 2 | 28.04.2010 10:07 |