VBA Object required при сохранении книгиКоллеги, добрый день!
Подскажите, пожалуйста, при работе с книгой Excel средствами VBA Access возникает проблема при сохранении документа, а именно не удается приказать конкретной книге (единственная используемая в наст. время) сохраниться с новым именем, ниже сам код (ошибка во второй строке):
Dim Filename As Object
ActiveWorkbook.SaveAs Filename:="\Шаблоны\" & DateField & "Шаблон -...https://www.cyberforum.ru/ vba/ thread1493716.html
VBA Как нажать программно кнопку в WebBrowser На сайте имеются две одинаковых кнопки без id, как нажать вторую кнопку по счету
Первая кнопка
<a href="/search?c=0&c=people&c=-1">Русский</a>
Вторая кнопка
<a class="bnav_lang" onclick="showBox('lang.php', {act: 'lang_dialog'}, {params: {dark: true, bodyStyle: 'padding: 0px'}, noreload: true})">Русский</a>
Через javascript выдает , в обычном браузере (google chrome) все норм работает.
...
VBA Поиск таблиц на листе ExcelДрузья, кто-нибудь задавался вопросом поиска таблиц на листе Excel?
Под таблицами я подразумеваю те таблицы, которые вручную начерчены с использованием границ – Borders, а не те которые создаются комбинацией клавиш Ctrl+ «T» (Вставка - Таблица).
Т.е. имею в виду макрос, которой находил-бы все адреса диапазонов таблиц (ограниченных замкнутыми границами) на листе при этом на листе может быть...https://www.cyberforum.ru/ vba/ thread1493666.html
VBA Экспорт из Access 10 средствами VBA в файл xlsx и xlsmКоллеги, добрый день!
Подскажите, пожалуйста, в возникшей проблеме при организации экспорта данных из запросов Access в файлы Excel.
Думаю поступательней вопрос задать немного издалека:
1. Что есть: Код VBA + SQL запросы, которые формируют итоговый отчет, который я и переношу в подготовленные шаблоны Excel
2. Что работает: Код открывает книгу эксель, формата xlsx, переходит...https://www.cyberforum.ru/ vba/ thread1493558.html
VBA Разбить таблицу ориентируясь на группы в отсортированном столбце Добрый день,
подскажите с макросом
есть таблица отсортированная по одному из столбцов, нужно разбить таблицу ориентируясь на группы получившиеся в отсортированном столбце.
чтоб было понятнее привел примеры того как есть и что должно получится,
файл там
Добавлено через 1 час 5 минут
забыл уточнить, это в Word.
VBA SaveCopyAs & hyperlinkЗдравствуйте.
При использовании
ThisWorkbook.SaveCopyAs FileNameXls
все гиперссылки на папки в сетевом окружении в текущем файле изменяют своё значение с
Папка1\Папка2 на ..\Папка1\Папка2
Причем количество "..\" зависит от места копирования, прописанного в FileNameXls (чем глубже папка сохранения относительно текущего файла, тем больше "..\").
Соответственно, все ссылки в текущем файле...https://www.cyberforum.ru/ vba/ thread1492866.html
VBA Очистить поле раскрывающегося спискаhttps://www.cyberforum.ru/ vba/ thread1492651.html Всем доброе!
При загрузке формы поле со списком у меня заполняется так:
Private Sub Userform_initialize()
With ComboBox1
.AddItem "Первое значение"
.AddItem "Второе значение"
.AddItem "Третье значение"
Парсинг файлов в каталоге по маске VBA В документе Excel макросом необходимо реализовать такую фитчу:
В каталоге, прописаном в переменной MyPath нужно отобрать документы по ключу: "символы латиницы" + "-" + "цифры", занести в таблицу название файла + в отдельную ячейку код по ключу.
Например если файл называется:"КрЛ_Приложение_SUPP-1660497_ФФСТ(OETS)" в таблицу заносится:
| Наименование файла | №...
VBA Сделать выборку значений из массива типа RangeЗдравствсуйте! Помогите доделать функцию, которая принимает массив ячеек, выбирает из него только непустые ячейки и возвращает их.
Пробовал так:
Private Function IgnorEmptyCell(a As Range) As Range
Dim j As Integer, aa As Range
For i = 1 To a.Count
If IsEmpty(a(i)) Then GoTo end1
j = j + 1
Set aa(j) = a(i)https://www.cyberforum.ru/ vba/ thread1492436.html
VBA Как передать "" через formulalocal?Добрый день! мне нужно записать в ячейку ЕСЛИ(A1<>"";A1*2;#Н/Д), записываю через макрос
ActiveCell.FormulaLocal= "=ЕСЛИ(A1<>"";A1*2;#Н/Д)"
Возникает ошибка, из-за того, что нельзя передавать "" через FormulaLocal. Как тогда проверить, если ли данные в A1?https://www.cyberforum.ru/ vba/ thread1492434.html
VBA Как проверить результат фильтрации данных на <пусто> Фильтрую количество строк N по столбцу IDcol (номер столбца) ,используя массив аргументов отбора Array(pol2)
ActiveSheet.Range("$A$1:$w$" & CStr(N)).AutoFilter Field:=IDcol, Criteria1:=Array(pol2), Operator:=xlFilterValues
Фильтрация дает пустышку (как вариант отбора).
В окне Watches значение Range("A2:A" & N).SpecialCells(xlCellTypeVisible) равно <Не найдено ни одной ячейки,...
VBA Установка полужирного шрифта на знаки препинания рядом со словомЗдравствуйте!
Есть огромный текст, много слов в полужирно
Работает с выделенным диапазоном. Можно выделять целые столбцы, строки, весь лист.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Oriss()
Dim i&, j&, c As Range
ForEach c In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
For i = c.Characters.Count To 1 Step -1
If c.Characters(i, 1).Font.Color = vbRed ThenIf j = 0 Then j = i
ElseIf j Then
c.Characters(i + 1, j - i).Delete
j = 0
EndIfNextIf j Then c.Characters(i + 1, j - 1).Delete: j = 0
NextEndSub
Сообщение было отмечено oriss как решение
