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

Страницы: 1 2 3 4 5 6 7 След.
Vba установка "только для чтения" для файла
 
В строке дописал и работает.
Спасибо.
Код
ActiveWorkbook.SaveAs Filename:="Z:\IM\Отчет.xlsb", FileFormat:=xlExcel12, CreateBackup:=False, ReadOnlyRecommended:=True
Vba установка "только для чтения" для файла
 
New, вот такой макрос получился.
Почему-то после его запуска сохраненный файл без параметра "Рекомендовать доступ только для чтения". :(
Код
Sub Copy()
    ChDir "Z:\IM"
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
    ActiveWorkbook.SaveAs Filename:="Z:\IM\Отчет.xlsb", _
        FileFormat:=xlExcel12, CreateBackup:=False
End Sub
Sub Копия()

End Sub
Изменено: Viper25 - 18.09.2022 09:35:56
Vba установка "только для чтения" для файла
 
Подскажите, как в vba установить свойство "только для чтения" для екселевского файла.
Пробовал записать через макроридер.
Не фиксирует данную опцию. :(
Изменено: Viper25 - 16.09.2022 13:59:04
Подключение к модели данных Excel Power Pivot, Подключение Power Query к модели данных Excel Power Pivot
 
Цитата
написал:
В Dax Studio есть же  выгрузка  в текстовые файлы
Спасибо за вариант.
Но при данном способе потом много ручных правок (разделить по столбцам, изменить формат...)
Подключение к модели данных Excel Power Pivot, Подключение Power Query к модели данных Excel Power Pivot
 
Расскажу как я делаю.
Большую модель данных на ~ 2 млн строк делю запросами на куски с помощью PQ и выгружаю их на отдельные листы.
Открываю рабочий маленький файл и забираю инфо с этих листов.
Может кто-то знает другой способ.
Подключение к модели данных Excel Power Pivot, Подключение Power Query к модели данных Excel Power Pivot
 
Тогда какой смысл в таком импорте, если его обновлять нельзя?
Наверное, как-то обновлять можно раз способ описали.
Подключение к модели данных Excel Power Pivot, Подключение Power Query к модели данных Excel Power Pivot
 
Есть файл-источник, в котором создна большая модель данных - почти 2 млн. строк.
В другом файле №2 через PQ создаю подключение к модели данных файла-источника через DAX Studio как описано в статье Подключение Power Query к модели данных Excel Power Pivot

В файле №2 строю красивую сводную.
Не могу понять, как эту сводную обновлять, чтобы тянулись данные из файла-источника.
Если просто выбрать обновить, появляется ошибка.
Заранее спасибо за помощь.
Изменено: Viper25 - 07.06.2022 13:09:29
Обновление запроса PQ через макрос или горячие клавиши
 
Цитата
написал:
Появляется вот такая функция - Selection.ListObject.QueryTable.Refresh BackgroundQuery:=FalseИ если запускать макрос, то обновляет только ТОТ запрос, который выделен
Цитата
написал:
Sub auto()Worksheets("Лист7").ListObjects("Лист1").QueryTable.RefreshEnd Sub
Я использую макрос по обновлению всех файлов в выбранной папке.
Но запросы PQ данный макрос не обновляет. :(
Код
Sub OtkritVseKnigi()
    Dim MyFiles As String, sFolder As String
  
    sFolder = ShowFolderDialog() & Application.PathSeparator
    MyFiles = Dir(sFolder & "*.xls*")
    Application.ScreenUpdating = False
    Do While MyFiles <> ""
        Workbooks.Open sFolder & MyFiles
        ActiveWorkbook.RefreshAll
        ActiveWorkbook.Close SaveChanges:=True
        MyFiles = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Файлы обновлены!", vbInformation, "Конец"
End Sub
 
Function ShowFolderDialog() As String
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    With oFD 'используем короткое обращение к объекту
        'так же можно без oFD
        'With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выбрать папку с отчетами" '"заголовок окна диалога
        .ButtonName = "Выбрать папку"
        .Filters.Clear 'очищаем установленные ранее типы файлов
        '.InitialFileName = "C:\Temp\" 'назначаем первую папку отображения
        .InitialView = msoFileDialogViewLargeIcons 'вид диалогового окна(доступно 9 вариантов)
        If oFD.Show = 0 Then Exit Function 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        x = .SelectedItems(1) 'считываем путь к папке
        ShowFolderDialog = x
    End With
End Function

В файлах разное количество запросов PQ и по-разному они называются.
Подскажите, можно ли какую-то универсальную команду использовать для обновления всех запросов PQ.
Заранее спасибо.
Изменено: Viper25 - 18.04.2022 20:02:44
Команда "Обновить всё" во всех файлах с выбором папки, Команда "Обновить всё" во всех файлах с выбором папки
 
New, спасибо.
Команда "Обновить всё" во всех файлах с выбором папки, Команда "Обновить всё" во всех файлах с выбором папки
 
Если честно, для меня это дремучий лес. :(
Можно ли сделать, чтобы файлы обновлялись в фоне?
Изменено: Viper25 - 17.04.2022 16:57:43
Команда "Обновить всё" во всех файлах с выбором папки, Команда "Обновить всё" во всех файлах с выбором папки
 
Нашел такой блок для выбора папки.
Но как прикрутить его к макросу не знаю.
Код
Function ShowFolderDialog() As String
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выбрать папку с отчетами" '"заголовок окна диалога
        .ButtonName = "Выбрать папку"
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .InitialFileName = "C:\Temp\" '"назначаем первую папку отображения
        .InitialView = msoFileDialogViewLargeIcons 'вид диалогового окна(доступно 9 вариантов)
        If oFD.Show = 0 Then Exit Function 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        x = .SelectedItems(1) 'считываем путь к папке
        ShowFolderDialog = x
    End With
End Function
Команда "Обновить всё" во всех файлах с выбором папки, Команда "Обновить всё" во всех файлах с выбором папки
 
Добрый день.
Есть макрос, который выполняет команду "Обновить всё" во всех файлах указанной папки.
Код
Sub OtkritVseKnigi()
'Шаг 1:Объявляем переменные
Dim MyFiles As String

'Шаг 2: Укажите нужную папку
MyFiles = Dir("C:\temp\*.xlx*")
Do While MyFiles <> ""

'Шаг 3: Открываем файлы один за другим
Workbooks.Open "C:\temp\" & MyFiles

'Код макроса с действиями
ActiveWorkbook.RefreshAll
ActiveWorkbook.Close SaveChanges:=True

'Шаг 4: Следующий файл в папке
MyFiles = Dir
Loop
End Sub
Подскажите, пожалуйста, как этот макрос изменить, чтобы папка выбиралась при запуске макроса и файлы обновлялись в фоне.

Заранее спасибо.
Изменено: Viper25 - 17.04.2022 11:22:40
Вставить копированный объект в определенное место листа
 
Спасибо.
Работает.
Вставить копированный объект в определенное место листа
 
На одном листе книги есть несколько картинок.
С помощью макроса данные картинки вставляются на все выделенные листы книги в начало (ячейка А1).
Код
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=147677&TITLE_SEO=147677-vstavka-obekta-na-vse-vydelennye-listy-aktivnoy-knigi

Подскажите, можно ли вставить картинки в то же место, как на листе, с которого копируются.

Заранее спасибо.
Изменено: vikttur - 18.02.2022 19:14:36
Вставка объекта на все выделенные листы активной книги
 
Если картинок две и их по очереди выделять и запускать макрос, то вставляется только первая.
Вставка объекта на все выделенные листы активной книги
 
Спасибо, работает.
Вставляет в начало выделенных листов.
А можно вставить сразу два объекта? Если по очереди выделять объекты и запускать макрос, то вставляется только первый.
Вставка объекта на все выделенные листы активной книги
 
Макрос выдает ошибку. :(
Подскажите, плиз, где ошибка.
Код
Sub CopyPicture()
Dim ws As Worksheet
  For Each ws In ActiveWindow.SelectedSheets
    ws.Paste
  Next ws
End Sub
Вставка объекта на все выделенные листы активной книги
 
На одном листе книги есть картинка.
Подскажите, можно ли с помощью макроса данную картинку вставить на все выделенные листы книги?

Заранее спасибо.
Установить фильтр в шапке выделенных листов активной книги
 
Работает.
Спасибо.
Установить фильтр в шапке выделенных листов активной книги
 
Всем форумчанам добрый день.
Есть файл, в котором 4 листа.
Подскажите, пожалуйста, как макросом установить фильтр в шапке выделенных листов (январь, февраль, март) активной книги.
Количество колонок в листах разное и листов может быть много!

Заранее благодарю.
Рейтинг в PowerPivot
 
, спасибо.
Работает.
Рейтинг в PowerPivot
 
Цитата
написал: Ранг+:=RANKX(ALLSELECTED('Товар'[Номенклатура]);'Товар'[Продажа])
Если значения одинаковые, то и ранг один.
Подскажите, как настроить, чтобы ранг не повторялся.

Файл для примера прилагаю.
Изменено: vikttur - 23.12.2021 21:37:30
Разделение таблицу на листы по фамилиям
 
Цитата
написал:
создайте необходимое количесво копий
Таких копий может быть больше 100.
Вручную их создавать, мягко говоря, тяжело.
Разделение таблицу на листы по фамилиям
 
Супер.
Спасибо.
Разделение таблицу на листы по фамилиям
 
, можно, чтобы на каждом листе была шапка как в исходнике?
Еще количество колонок может изменяться.
Разделение таблицу на листы по фамилиям
 
Здравствуйте.
Есть таблица, в первой колонке которой указаны фамилии.
Можно ли разделить таблицу, например, с помощью Power Query, на листы по фамилиям?
Будет лист "Иванов", лист "Петров" и лист "Сидоров".
Изменено: vikttur - 14.11.2021 13:46:25
Задать масштаб всех листов книги
 
Спасибо.
Задать масштаб всех листов книги
 
Макроридер перечисляет название листов.
Листы в книге называются по-разному. Сейчас только 3 листа. Потом будет 10.
Можно, чтобы их вручную не прописывать?
Код
Sheets(Array("Лист1", "Лист2", "Лист3")).Select
Задать масштаб всех листов книги
 
Всем доброго дня.
Если файл, в котором у всех листов свой масштаб.
Можно ли макросом задать сразу всем листам один масштаб, например, 75%?
Удаление груп листов книги Excel по маске
 
МатросНаЗебре, работает.
Спасибо.
Страницы: 1 2 3 4 5 6 7 След.
Наверх