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

Страницы: 1
PQ. Вернуть результат запроса в макрос., PQ. Вернуть результат запроса в макрос.
 
Добрый день! Есть запрос PQ, который возвращает text. Хотелось бы исполнить его в макросе и получить результат для его дальнейшей обработки макросом.  
Код
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=HtmPath;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [HtmPath]")
Вот так запрос PQ возвращает данные на лист.
Попытался использовать ADODB, не получилось.  Какие есть варианты?
Power bi. Обрезаются длинные текстовые строки
 
Добрый день! При работе с xml файлом, полученным из Интернета, используется  Xml.Tables  и Table.ExpandTableColumn. Один из полученных столбцов содержит длинные строки, которые автоматически подрезаются. Но для работы нужна вся строка, это символов 200.. или даже больше.  Если ли возможность это сделать? Или, как вариант, иные способы извлечения данных, хотя, конечно, Xml.Tables очень удобна.
power bi парсить сайт с рекламой
 
Добрый день! Существует необходимость получить данные с сайта, для чего успешно используется power bi. Однако часть информации в Web.BrowserContents просто не попадает, вместо нужной таблицы стоит <div *** Отключите блокировщик рекламы</div>. Обычный браузер (на котором нет блокировщиков) все видит.
Существует ли возможность, не нарушая права владельцев сайта, скачать закрытую информацию?
Select Case: бездействие при определенном значении, Exit Select
 
Добрый день! Если при определенном значении переменной в Select Case не нужно ничего делать, что писать в опции? Exit Select не работает, в хелпе ничего пока не нашел, пока пишу оператор типа x=x, который ничего не делает..
ADODB.RecordSet.UpdateBatch отследить изменения
 
ADODB.RecordSet.UpdateBatch обновляет данные на sql сервере. Все работает, но нужна аналитика - сколько строк изменено, сколько добавлено, сколько удалено. Есть ли способ это выяснить? Можно ли использовать запускаемые vba процедуры sql, чтобы прочитать данные об изменениях с самого сервера? В общем, любые идеи..
Пользовательский шаблон, Создание книги Excel на основании пользовательского шаблона "по умолчанию"
 
Добрый день! Существует ли возможность создать книгу Excel на основании пользовательского шаблона "по умолчанию"? Т.е., там, где программно не предлагается выбрать нужный шаблон из списка, например - создать книгу непосредственно из Windows правой кнопкой мыши или из приложения, которое само создает такую книгу и использует стандартный шаблон и т.п.? Или пользователю просто лень лишний раз мышкой щелкнуть..
Изменено: lucas - 17.10.2016 10:52:32
Промежуточные итоги с векторным аргументом, Суммировать округленные значения элементов столбца, исключив подытоги.
 
Добрый день!

Необходимо суммировать округленные значения каждой из ячеек в столбце, кроме подытогов, вычисляемых через ПРОМЕЖУТОЧНЫЕ.ИТОГИ().
{=СУММ(ОКРУГЛ(C57:C63;0))} работает.
{ =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;ОКРУГЛ(C57:C63;0))} - уже нет.
В чем проблема? Синтаксическая ошибка? Эксель не может применить к "внутренним" подытогам ОКРУГЛ()? Есть ли варианты решения, желательно - без добавления промежуточных столбцов.
Изменено: lucas - 24.04.2016 12:52:15
Определить имена, влияющие на ячейку
 
Добрый день!
Существует ячейка с хитрой формулой. Она ссылается на другие ячейки, что легко определить через Precedents. Но, если с целью упростить формулу, ссылки на ячейки заменить на имена, предыдущий вариант не работает. Возникает вопрос, как определить, на какие имена ссылается формула (чтобы потом перейти к ячейкам из этих имен)? Тупо парсить формулу, сопоставляя ее со списком всех имен на предмет их вхождения, неохота.
Передача таблицы в качестве аргумента процедуры
 
Добрый день!
На Vba пишется процедура-обертка для соответствующей  sql хранимой процедуры (ms sql 2014). SQL вполне себе такие аргументы (table) принимает, а вот как его передать через vba - неясно. По крайнем мере, я не нашел пока ничего сложнее adInteger.. А хотелось бы видеть что-то вроде
.Parameters.Append cmd.CreateParameter("@x", adMyTableType, adParamInput)
Конечно, можно просто залить дополнительную таблицу и незаморачиваться, но, возможно, есть более красивые варианты?
Отследить обращение к книге из другой программы
 
К одному из листов книге xl 2016 через связанный сервер идет запрос из внешней программы (например, из студии sql). Можно ли это отследить программно, в этой книге?
Excel и связанный сервер sql
 
Добрый день! Подключил книгу Excel 2016 к ms sql 2014 через N'Microsoft.ACE.OLEDB.12.0 Все прекрасно работает. Но - только при закрытой книге. Если подключаться к открытой, то дает ошибку Сообщение 7303, уровень 16, состояние 1, строка 20
Не удалось проинициализировать объект источника данных поставщика OLE DB "Microsoft.ACE.OLEDB.12.0" для связанного сервера ...
А работать необходимо на открытой книге.
Нет ли у кого-нибудь светлых мыслей?
 
Как из формулы перейти к ее аргументу-столбцу
 
Добрый день!

Существует формула вида {=СУММ((f_1[Sect]=C6)*f_1[Sum])}, где аргументами, в том числе, являются столбцы таблицы (ListObject). Использование именно этой
конструкции дает простой и понятный синтаксис формулы, но есть один вопрос. Можно легко увидеть, какие ячейки влияют (т. е. являются аргументами) заданной в ячейке формулы. Но как увидеть аргумент - столбец и/или перейти к нему? Есть ли стандартные средства или, хотя бы, доступные макросы? Либо что-то вроде vba-парсера произвольной формулы, выделяющего все ее аргументы, в том числе, и векторные?
Запустить закачку файла из Excel
 
Доброго времени суток!

Существует ссылка на закачку файла mp3,""Download this file 1""
созданная в Excel. Хотелось бы и запустить ее отсюда. Однако не получается, попытка запуска нижеуказанным макросом ведет к открытию данной ссылка в браузере и ее воспроизведению, а не закачке. Попытки пристроить внутрь ссылки download="file.mp3" успехов не принесли. Можно ли в принципе решить вопрос топика, или Excel умеет только открывать страницы по гиперссылке?
Код
Public Sub QWE()

ActiveSheet.Cells(1, 1).Delete
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), _
Address:="[URL=http://*.mp3]http://*.mp3[/URL]", _
TextToDisplay:="Ссылка на загрузку."
ActiveSheet.Hyperlinks(ActiveSheet.Hyperlinks.Count).Follow NewWindow:=False, AddHistory:=True
End Sub


Извините за корявость оформления, долго добавлял гиперссылку как текст.
Изменено: lucas - 01.11.2015 21:48:51
Сравнить две версии одного листа
 
Существуют ли способы понять, были ли внесены изменения хотя бы одной ячейки листа книги, не сравнивая все ячейки "старой" и "новой" версии этого листа последовательно? А всех листов книги?
К какому типу относится объект на листе, Определить тип элемента ActiveX, который содержится в заданном шейпе
 
Добрый день
На листе размещены элементы ActiveX: ComboBox и Label. Как программно определить, к какому типу относится конкретный объект
, т. е. какое именно свойство это определяет. Сейчас пока делаю так:
Код
  Set sh = ActiveSheet.Shapes(i)
  Set ole = sh.OLEFormat.Object
  Select Case Split(ole.progID, ".")(1)
  Case "ComboBox"
      Debug.Print ("Здесь в шейпе комбобокс " & sh.Name & ".")
  Case "Label"
      Debug.Print ("Здесь в шейпе лейбл " & sh.Name & ".")
  Case Else
     Debug.Print ("Здесь в шейпе непонятно что" & sh.Name & ".")
  End Select
Ссылка на множественное скачивание в excel, Как из Excel инициировать скачивание нескольких файлов по гиперссылке
 
Добрый день,
Собственно, тема пограничная, не совсем Excel, но если кто-то ответит, буду признателен.
Мне надо запустить из Excel скачивание нескольких выбранных пользователем файлов из Интернета. Насколько я понимаю, самый простой способ это осуществить - гиперссылка, сформированная в vba. Хотя, вероятно, можно просто запускать отдельные закачки последовательно. Но хотелось бы начать с первого варианта.

Вопрос - как должна выглядеть такая гиперссылка, что- то вроде http://*.MP3" download="file.mp3">Download these files, чтобы клик по ней приводит к закачке нескольких файлов, желательно - без доп. вопросов типа "Будем скачивать?" Ну и, ессно, она должна работать из Excel. Ну а если можно указать еще папку для закачки, счастье будет полным.
Клик по Shape, Как определить, по какой именно Shape кликнули?
 
Добрый день!
На листе находится много надписей (Shapes), по щелчку цепляю макрос, один на всех. Хотелось бы программно определить, по какому конкретно шейпу кликнули, чтобы общим макросом обработать именно этот шейп. Т.е. не хочу писать отдельные макросы для каждого шейпа, их много и вообще получается не красиво.
Неагрегируемая ячейка
 
Существует объемная таблица с итогами и подытогами, рассчитанными с помощью функции ПромежуточныеИтоги. В этой таблице есть несколько видимых контрольных ячеек, содержащих формулы и/или ссылки. Необходимо исключить контрольные ячейки из любых итогов, т. е. пометить, как неагрегируемые. Сейчас делаю тупо - просто пририсовываю в ячейку формулу с функцией Промежуточные итого, которая всегда возвращает ноль.
Но нет ли иных вариантов, в т.ч. - с vba?
Изменено: lucas - 22.08.2015 22:52:31 (А вот и пример..)
Проблема при связывании таблицы excel в word
 
При вставке таблицы excel в word через Вставить- спец вставка - формат html (связать) возникает проблема с форматированием чисел. Некоторые "визуально короткие" числа не вмещаются в ячейке на одну строку и в итоге размещаются на две строки. После нажатия клавиши "Отобразить все знаки" выяснилось, что проблемные числа выглядят примерно так .......... 3 224. Символ - точка, но не  внизу строки, а посередине. Вообщем, какой-то  символ форматирования, который возник, исходя из представлений о прекрасном у разработчиков программы.

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

Да, и еще, нужен именно html.
Высота выпадающего списка при проверке вводимых значений
 
Собственно, вопрос в названии темы. Данный список имеет фиксированную высоту, ее желательно увеличить. Я не нашел ответа на данный вопрос, хотя он задавался на форуме и ранее. Буду благодарен за любой ответ по теме.
Страницы: 1
Наверх