https://docs.google.com/spreadsheets/d/15ygTQE05swTPqAAJL7S_zuS769Lk7WuzmX_S5e-9oio/edit?usp=sharing
https://docs.google.com/spreadsheets/d/15ygTQE05swTPqAAJL7S_zuS769Lk7WuzmX_S5e-9oio/edit?usp=sharing
Архивы автора: kos20
получить данные
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <!— <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> —> <title>Страница ввода данных</title> </head> <body> <?php //http://localhost:8080/excel/index.php?XDEBUG_SESSION_START=session_name define(’EOL’,(PHP_SAPI == ‘cli’) ? PHP_EOL : ‘<br />’); /** PHPExcel_IOFactory */ require_once dirname(__FILE__) Продолжить чтение получить данные
PHP EXCEL
https://habrahabr.ru/post/136540/
Application.Trim Получить последнюю ячейку в строке
Application.Trim пример: Selection = Application.Trim(Selection) Cells.SpecialCells(xlLastCell).Row
Парсинг: выгрузить все выходные дни в году
Sub ПолучитьРабДаты1(Y As Integer, RowStart As Integer, ColumnStart As Integer) Set doc = CreateObject("htmlfile") doc.Open ‘ Dim sl As String, Url As String Dim Sh As Worksheet Set Sh = ActiveSheet Application.DisplayAlerts = False Sh.Range("2:3").Clear yar Продолжить чтение Парсинг: выгрузить все выходные дни в году
Парсинг (получить рабочие дни с консультатнта)
Sub Расписание() Set doc = CreateObject("htmlfile") doc.Open ‘ Dim sl As String, Url As String Dim Sh As Worksheet Set Sh = ActiveSheet Application.DisplayAlerts = False Sh.Range("2:3").Clear yar = Range("F1").Value ‘ Url = "http://www.consultant.ru/law/ref/calendar/proizvodstvennye/2017/" Url Продолжить чтение Парсинг (получить рабочие дни с консультатнта)
Поиск уникальных значений (массив)
‘Еще один хороший вариант поиска Sub Extract_Unique() Dim vItem, avArr, li As Long Dim Count As Integer Count = 0 ReDim avArr(1 To Rows.Count, 1 To 2) With New Collection On Error Resume Next For Each vItem In Range("C1:C" Продолжить чтение Поиск уникальных значений (массив)
Получить данные с сайта
Sub Расписание() Set doc = CreateObject("htmlfile") doc.Open ‘ Dim sl As String, Url As String Dim Sh As Worksheet Set Sh = ActiveSheet Sh.UsedRange.Clear Url = "http://31.2dr.ru/registratu/4/starooskolskiy_gorodskoy_okrug/poliklinika_gorodskoy_bolnitsy_2/1010/1" sl = "" ss = Продолжить чтение Получить данные с сайта
https://yadi.sk/i/T36mTDSDioow4
http://www.e-reading.by/bookreader.php/132415/AJAX_i_PHP._Razrabotka_dinamicheskih_veb-prilozheniii.pdf https://yadi.sk/i/T36mTDSDioow4
Удалить
Все чаще и чаще в новостях публикуют информацию об отзыве лицензии того или иного банка. Причина, на которую обычно ссылается ЦБ – это неадекватная оценка принимаемых рисков, размещение активов в низкокачественные активы. Как правильно оценить риски связанные с кредитованием и Продолжить чтение Удалить