Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как скачать файл из Интернета через Excel?, На сайте есть кнопка, нажимая на которую скачивается файл, но у нее нет URL т.к. ссылка генерируется через нажатие на кнопку
 
Всем привет! На сайте есть кнопка, нажимая на которую скачивается файл, но у нее нет URL т.к. ссылка генерируется через нажатие на кнопку. Не знаете как скачать такой файл через vba? Я узнал что так можно сделать через Python но вдруг есть для vba код. Надеюсь на вашу помощь т.к. я ничего не нашел  
Выбрать книгу в которой есть лист "Солнце", Выбрать ту книгу в которой существует лист "Солнце"
 
Доброго времени суток, господа! У меня возникла проблема с тем чтобы выбрать нужную мне книгу. Так как имя книги всегда меняется, но при этом имя листа в этой книге всегда неизменно и оно уникально, то есть ни в одной из других открытых книг больше такого листа нет. Как мне с помощью макроса выбрать такую книгу в которой есть лист "Солнце"? Я попытался и вот что получилось.
Код
Sub WorksheetExists() '(shtName As String, Optional wb As Workbook) As Boolean
'

Dim sht As Worksheet
Dim wb As Workbook

For Each wb In Application.Workbooks
    For Each sht In wb.Sheets
        If sht.name = "Солнце" Then
            sht.Activate
            Range("A1").Value = "bbb"
        End If
    Next sht
Next wb

End Sub
Изменено: Anton_Kozlov - 27.01.2021 19:15:50
Запустить макрос если получен Email в папке Outlook, Outlook как запустить макрос если в папку под названием "Задачи" пришло письмо
 
Доброго времени суток, господа. Как у вас дела?

Появилась задача: Нужно чтобы когда в Outlook  приходило новое сообщение в папку под названием "Задачи" outlook запускал макрос. Нашел код в интернете, но как обычно не получается. поможете?  
Переменная с нарастающим итогом, сделать так чтобы переменная увеличивалась на 1
 
Здравствуйте! Как сделать так чтобы в макросе переменная увеличивалась на 1? То есть первый раз я макрос запускаю и переменная = 1 , второй раз = 2 , третий раз =3
Как сохранить/открыть скачанный файл в Internet Explorer, Вы хотите открыть или сохранить файл?
 
Здравствуйте! При скачивании файла из Internet Explorer он выдает диалоговое окно "Вы хотите Открыть/Сохранить/Отмена". Как мне через код макроса:
1) Нажать кнопку "открыть"
2) Нажать кнопку "Сохранить" (чтобы он сохранял с определенным названием и в определенную папку на компьютере)

Буду благодарен, если поможете. Я попытался сам сделать, но что то выходит у меня какая то дичь, что даже прикладывать не хочу свой код.
Заранее огромное спасибо!!! Если поможете, то вы будете моим героем!
Как кликнуть кнопку в internet explorer через vba?, нажать на кнопку "Скачать" для скачивания таблицы
 
Здравствуйте! Хочу скачать файл excel из сайта, для этого нужно кликнуть кнопку "скачать". Зашел на сайт, но не могу кликнуть кнопку. Вот мой код, но выдает ошибку

Можете еще помочь с тем, чтобы скачанный файл не сохраняясь просто открывался?

Огромное спасибо!
Код
НАЗВАНИЕ КНОПКИ НА САЙТЕ HTML
<button class="button2 button2_theme_action button2_size_m button2_role_download button2_view_classic f-answers-export__button i-bem button2_js_inited" 
data-bem="{"button2":{}}" type="button" autocomplete="off" aria-disabled="false" tabindex="0"><span class="button2__text">Скачать</span></button>

button2_role_download (определяющий класс)
Код
Sub IE()

Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("https://forms.yandex.ru/admin/6007198fdfc5ae138636cf68/answers")
   
    IE.document.getelementbyclassname("button2_role_download").Submit (Ошибка: method document of object iwebbrowser2 failed)

End Sub
Как обновить связи в Word из Excel?
 
Всем здравствуйте!
У меня с помощью этого кода не получается обновить связи в открывшемся документе из Excel в Word файле. Помогите пожалуйста! Заранее огромное спасибо)
Код
Application.AskToUpdateLinks = True
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If Err Then
            Err.Clear
            Set objWrdApp = CreateObject("Word.Application")
            If Err Then MsgBox "Íåò Âîðäà íà ìàøèíå!": Exit Sub
        End If
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("C:\Users\KLC Team\Desktop\6_TESTs\Shablon_6_tests-Connect.docx")
 ActiveDocument.Selection.Fields.Update
Изменить название файла, если найден определенный текст в файле
 
Всем доброго времени суток! Помогите пожалуйста с одной проблемой. Нужен макрос для Excel с помощью которого можно открыть Word файл и поменять его название, если в этом файле есть определенный текст. Код для открытия ворда не нужен. Вот такой алгоритм должен быть:
Код
Если в файле word найден "Определенный текст", То
Сохранить его под названием: "Название1",
Если не найден, то закрыть ворд (не изменять файл)
Я попытался написать код, но он почему-то не работает. Вот:
Код
With objWrdDoc.Content.Find
        .Text = "Яблоко"
        End With
If objWrdDoc.Content.Find.Execute Then
objWrdDoc.SaveAs2 Filename:= _
       "C:\Users\KLC Team\Desktop\6_TESTs\Название1.docx"
        End If
'Закрыть ворд



Заранее огромное спасибо!
Изменено: Anton_Kozlov - 25.09.2020 10:55:38
Как переименовать файл, если найден текст
 
Здравствуйте! В общем нужно чтобы макрос искал определенное слово и если он его находил, то сохранял файл с названием "Название1" и если же не находил этого слова в файле, то сохранял его с названием другим "Название2"
Я попытался доработать код сегодня, но он почему-то не работает. Он сохраняет файл, но всегда с названием "Название2" вне зависимости нашел он текст или нет.
Код
With objWrdDoc.Content.Find
        .Text = "Яблоко"
        End With
If objWrdDoc.Content.Find.Execute Then
objWrdDoc.SaveAs2 Filename:= _
       "C:\Users\KLC Team\Desktop\6_TESTs\Название1.docx"
       Else
objWrdDoc.SaveAs2 Filename:= _
       "C:\Users\KLC Team\Desktop\6_TESTs\Название2.docx"
        End If
Изменено: Anton_Kozlov - 21.09.2020 11:43:43
Как сохранить Word в формате PDF из Excel?, Как сохранить Word в формате PDF из Excel?
 
Здравствуйте! Не получается сохранить вордовский файл в формате ПДФ из эксель. Я написал код, но почему-то он не работает! Я даже не знаю в чем тут ошибка. Нужна помощь профессионалов. Заранее спасибо!
Код
Sub ToPDF()

Dim i
For i = 3 To Worksheets("settings").Range("G3") + 2

Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If Err Then
            Err.Clear
            Set objWrdApp = CreateObject("Word.Application")
            If Err Then MsgBox "Нет Ворда на машине!": Exit Sub
        End If
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open(ThisWorkbook.Worksheets("SURVEY").Range("IA" & i) & ThisWorkbook.Worksheets("SURVEY").Range("HZ" & i) & ".docx")
      
            
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        ThisWorkbook.Worksheets("SURVEY").Range("IB" & i) & ThisWorkbook.Worksheets("SURVEY").Range("IC" & i) & ".pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
        
   
objWrdDoc.Close SaveChanges:=True
objWrdApp.Quit
Set objWrdDoc = Nothing
Set objWrdApp = Nothing

Next i

End Sub
Изменено: Anton_Kozlov - 18.09.2020 15:55:23
Как макросом из excel найти и заменить текст в word и заменить его на " (кавычку)
 
Всем здравствуйте! Знаю, что тут не задают вопросы, которые связаны с вордом, но мой вопрос связан в большей степени с excel и его макросом.
Задача следующая:  Я попытался  вставить из excel в word текст(что получилось) с помощью макроса и Нужно через макрос эксель найти и заменить в ворде текст один на другой. Я приложил файлы excel и word которые я сделал. И в тех конкретных файлах я хочу заменить "йцуф" на " (Кавычку).
Заранее огромное спасибо!!! Мне кажется я все перепробовал, но безрезультатно.
Перенести таблицы из Excel в Word, При использовании макроса в excel, в ворд переносится таблица с неправильным форматированием
 
Всем здравствуйте! знаю, что тут не задают вопросы, которые связаны с вордом, но мой вопрос связан в большей степени с excel и его макросом.
Задача следующая: У меня есть в excel листе несколько таблиц, которые нужно перенести в ворд, Макрос, который я сделал переносит эти таблицы в ворд, но проблема в том, что таблица становится слишком высокой из-за появившегося высоко интервала в словах этой таблицы. Самое интересное, что если вручную вставлять таблицу в ворд, то он вставляет как надо. Я прикрепил файл excel и word. Вопрос, собственно, в том как это исправить?
Заранее огромное спасибо!!! А то уже мозг сломал из-за этой задачей

файл word (как должно быть, как получилось и шаблон для макроса)
файл excel (таблицы и макрос)
Изменено: Anton_Kozlov - 10.08.2020 21:52:46
Как соединить 2 переменные, чтобы получилась 3-яя
 
Добрый вечер!
   
Код
Sub  Kod()
Dim Priv
Dim Text
Dim Rng As Range: Set Rng = Range("A14")
   Text3 = "Красное яблоко"
   i = 3
   Priv = InStr(Rng, Text & i)

   MsgBox (Priv)

Я хочу чтобы, можно было сложить Text и i, чтобы полуилась переменная Text3. Уже долго голову ломаю и никак не могу найти информацию именно по такому случаю.

Заранее большое спасибо!
Как отформатировать в ячейке из всего текста определенные слова?
 
Здравствуйте! Поздравлвяю всех с Рождеством! Всего вам наилучшего!

Собственно в ячейке A1 есть текст. Например: Сегодня наступило 7 января.  
Как макросом "7 января" выделить курсивом и размер шрифта сделать 15px?

Заранее большое спасибо!)
Как выделить жирным в ячейке заголовок
 
Здрвствуйте!
В ячейке находится следующий текст:

Яблоко
Растет яблоко на деревьях
Малина
Растет малина на кустах
Ананас
Растет ананас под землей

Нужно чтобы макрос выделил яблоко, малину и ананас, которые находятся в заголовке, жирным, и при этом не выделял те же слова в остальном тексте.
Заранее, огромное спасибо!
Макрос. Изменить цвет ячейки, если значение больше других ячеек
 
Нужен макрос. Если значение ячейки больше значения других ячеек в в диапазоне ( Например B2:F2), то поменять цвет ячейки на желтый.
Знаю, что можно сделать это в условном форматировании, но нужно именно макросом. Спасибо большое!
Если ячейка желтого цвета, то значение другой = 1
 
Как сделать так, чтобы значение ячейки было равно 1, если другая ячейка зеленого желтого цвета?
Грубо говоря, надо сделать обратное условное форматирование
Изменено: Anton_Kozlov - 26.12.2019 14:56:07
Как из excel в шаблон ворд вставить диаграммы?
 
Здравствуйте! Задача следующая: В Excel есть много диаграмм, которые надо вставить в ворд на определенные позиции. Как сделать, чтобы все это дело прошло автоматически?  
Слияние Word из Excel
 
Здравствуйте! Есть проблема, которая тут уже обсуждалась, но решения не нашлось. Вот ссылка на эту тему https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=52727. Попытаюсь описать проблему понятно. Собственно тоже самое, что и слияние Word и Excel, только надо, чтобы можно было в шаблон вставлять по такому же принципу графики вместо текста.  
[ Закрыто] Кавычки
 
Есть 200 ячеек в одном столбце (просто 200 вертикально выстроенных ячеек) . И в каждой из них есть небольшой текст. И мне надо, чтобы из этого текста осталось лишь содержимое , которое находилось между кавычками.
Пример:

1 ячейка:  Голова, поезд мчится "зеленый" шершень; Надо чтобы получилось: зеленый
2 ячейка: Красный журавль "съел горький" баклажан; Надо чтобы получилось: съел горький
...
И тд.

Заранее огромное спасибо. Ну и Ооочень надо))
Как сделать, чтобы формула применялась к прерывистому диапазону
 
Есть ячейка с формулой СчетЕсли(A2:A80; "Успешно"). Мне надо чтобы диапазон был не A2:A80,  а A5,A17,A29, ..., A77(пробел в 12 клеток) . И чтобы в этих ячейках (прерывистом диапазоне) он искал где есть "Успех", и считал если  есть.
Заранее Спасибо большое!!!))
Срочно желательно
Изменено: Anton_Kozlov - 06.11.2019 14:22:35
Ссылка на строку через определенный шаг
 
В ячейке я пишу формулу =$L5, в ячеку ниже формула =$L17 и еще ниже ячейка с формулой =$L29. Как мне растянуть это вниз так чтобы компьютер сам логически продолжил ряд $L41, $L53, $L65 ... $L305 и тд.? Заранее большое спасибо) И это срочно надо  
Страницы: 1
Наверх