Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » darkgosu
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Как вставить рисунок/картинку, чтобы она была в рамке
 
#
07.05.2020 09:22:58
Обычная вставка картинки, надо получить так как в примере т.е. с рамкой - как это сделать?
Возможно есть инструмент внутри Excel, который может отформатировать такой рамкой рисунок вставленный в Excel.
Изменено: darkgosu - 07.05.2020 13:11:59
 
Перейти    
Как вставить рисунок/картинку, чтобы она была в рамке
 
#
07.05.2020 00:34:57
Друзья, всем привет!

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

Спасибо!
 
Перейти    
Копирование данных с URL, Связываем Excel с Google, IE, Mozilla и т.д. (Срочно нужен макрос)
 
#
13.08.2017 23:49:15
JeyCi, Огромное спасибо, только ругается файл на синтаксис! И почему такой большой мне не нужны переходы по страницам. Только как и писал Открыть IE, выделить всю страницу ctrl+c оставить в буфере закрыть ИЕ выбрать активный лист ексель и вставить ctrl+v все)  
 
Перейти    
Копирование данных с URL, Связываем Excel с Google, IE, Mozilla и т.д. (Срочно нужен макрос)
 
#
13.08.2017 23:47:53
Кто нибудь отредактируйте макрос сверху под мои нужды буду очень признателен
Код
Sub GetHTML()

Set Web1 = CreateObject("InternetExplorer.Application")
    Web1.Visible = True
    Web1.navigate "Ваш сайт"
 
Application.Wait (Now() + TimeValue("00:00:03"))
SendKeys "^a"
SendKeys "^c"

Workbooks("Имя книги куда вставить.xlsm").Activate
Sheets("Имя листа куда вставить").Select
Range("Имя ячейки куда вставить").Select
ActiveSheet.Paste
   'SendKeys "^v"
    Application.Wait (Now() + TimeValue("00:00:03"))

Web1.Quit
Application.CutCopyMode = True
End Sub
Сам сделал - точно все правильно? Проверьте кто умеет, а я дилетант((
Изменено: darkgosu - 14.08.2017 01:48:08
 
Перейти    
Копирование данных с URL, Связываем Excel с Google, IE, Mozilla и т.д. (Срочно нужен макрос)
 
#
13.08.2017 22:27:05
Код
SendKeys "~", 10DoEvents: DoEvents
Изменено: darkgosu - 13.08.2017 23:50:42
 
Перейти    
Сортировка диапазона дат
 
#
13.08.2017 22:20:24
Если не макросом))


Можно добавить в ячейку J3 формулу, ну и протянуть... Выделяйте столбец - ставьте текстовый формат и сортируйте на здоровье))
Код
=ЕСЛИОШИБКА(РАБДЕНЬ.МЕЖД(ЛЕВСИМВ(E3;ПОИСК(" ";E3;1)-1);ПРАВСИМВ(E3;ПОИСК(" ";E3;1)-1));РАБДЕНЬ.МЕЖД(ЛЕВСИМВ(E3;ПОИСК("-";E3;1)-1);ПРАВСИМВ(E3;ПОИСК("-";E3;1)-1)))
Изменено: darkgosu - 13.08.2017 22:58:59
 
Перейти    
Копирование данных с URL, Связываем Excel с Google, IE, Mozilla и т.д. (Срочно нужен макрос)
 
#
13.08.2017 19:53:26
Добрый вечер всем.

Не могу скопировать данные с определенного URL макросом. Вставляется только начало страницы и конец или только текст. Что мне как раз не нужно.
Пользовался вот этим макросом из Интернета...
Код
Sub GetPageText() Dim sAnswer As String, IE As Object,avArr, li as long

On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application") 
IE.Navigate "Мой сайт"; 
While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
sAnswer = IE.Document.body.innerText

sAnswer = Replace(Replace(sAnswer, Replace(Replace(sAnswer, vbCrLf, Chr(10)), vbNewLine, Chr(10)), Chr(10)), vbLf, Chr(10))
avArr = Split(sAnswer, Chr(10))
for li = 0 to Ubound(avArr)
Cells(li + 1, 1).Value = avArr(li)
Next li
IE.Quit: Set IE = Nothing
End Sub
А мне нужно как "дурачку". Открыть IE - перейти на определенный URL - ctrl+a, ctrl+c - перейти в Excel - ctrl+v в ячейку А1 - закрыть браузер.
Кто поможет?
Изменено: darkgosu - 13.08.2017 21:11:11
 
Перейти    
Страницы: 1
Наверх