Note: The other languages of the website are Google-translated. Back to English

Как запустить макрос одновременно в нескольких файлах книги?

В этой статье я расскажу о том, как запустить макрос для нескольких файлов книги одновременно, не открывая их. Следующий метод может помочь вам решить эту задачу в Excel.

Запустить макрос одновременно в нескольких книгах с кодом VBA


Запустить макрос одновременно в нескольких книгах с кодом VBA

Чтобы запустить макрос в нескольких книгах, не открывая их, примените следующий код VBA:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.

Код VBA: запускать один и тот же макрос в нескольких книгах одновременно:

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
            End With
            xFileName = Dir
        Loop
    End If
End Sub

Внимание: В приведенном выше коде скопируйте и вставьте свой собственный код без ниже заголовок и End Sub нижний колонтитул между С Workbooks.Open (xFdItem & xFileName) и Конец с скрипты. Смотрите скриншот:

doc запустить макрос несколько файлов 1

3, Затем нажмите F5 ключ для выполнения этого кода и Приложения отображается окно, выберите папку, содержащую книги, к которым вы хотите применить этот макрос, см. снимок экрана:

doc запустить макрос несколько файлов 2

4. Затем нажмите OK кнопка, нужный макрос будет выполнен сразу из одной книги в другую.

 


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно

 

Сортировать комментарии по
Комментарии (43)
Номинальный 4.5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Очень полезный макрос, и он отлично работает, но я хотел бы иметь возможность выбирать, какие файлы из этой папки я хочу использовать для запуска макроса? Файлы не создаются автоматически в отдельной папке, и мне нужно запускать разные макросы для каждого набора файлов из этой папки, а затем перемещать их обратно в исходную папку.
Этот комментарий был сведен к минимуму модератором на сайте
Я следовал инструкциям, но получил ошибку компиляции «Цикл без выполнения». Что мне не хватает? Мой код макроса очень прост, просто измените размер шрифта указанных строк. Работает само собой. Вот что у меня есть ... пожалуйста, помогите

Sub LoopThroughFiles()
Dim xFd как FileDialog
Dim xFdItem как вариант
Dim xFileName как строка
Установите xFd = Application.FileDialog (msoFileDialogFolderPicker)
Если xFd.Show = -1 Тогда
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Делать, пока xFileName <> ""
С Workbooks.Open (xFdItem & xFileName)
'Ваш код здесь
Строки("2:8").Выбрать
С Selection.Font
.Имя = "Ариал"
.Размер = 12
.Зачеркнутый = Ложь
. Надстрочный индекс = Ложь
.Подстрочный индекс = Ложь
.OutlineFont = Ложь
.Тень = Ложь
.Underline = xlUnderlineStyleNone
.Цвет = -11518420
.TintAndShade = 0
.ThemeFont = кслтемефонтноне
Конец с
xFileName = Каталог
Петля
End If
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Ярто,
Вы пропустили скрипт «Конец с» в конце вашего кода, правильный должен быть таким:
Sub LoopThroughFiles()
Dim xFd как FileDialog
Dim xFdItem как вариант
Dim xFileName как строка
Установите xFd = Application.FileDialog (msoFileDialogFolderPicker)
Если xFd.Show = -1 Тогда
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Делать, пока xFileName <> ""
С Workbooks.Open (xFdItem & xFileName)
'Ваш код здесь
Строки("2:8").Выбрать
С Selection.Font
.Имя = "Ариал"
.Размер = 16
.Зачеркнутый = Ложь
. Надстрочный индекс = Ложь
.Подстрочный индекс = Ложь
.OutlineFont = Ложь
.Тень = Ложь
.Underline = xlUnderlineStyleNone
.Цвет = -11518420
.TintAndShade = 0
.ThemeFont = кслтемефонтноне
Конец с
Конец с
xFileName = Каталог
Петля
End If
End Sub

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Очень полезный макрос, и он отлично работает, но я хотел бы иметь возможность выбирать, какие файлы из этой папки я хочу использовать для запуска макроса? Например, у меня есть 4 файла в папке с другими файлами Excel, и я хочу, чтобы он работал только с этими 4 конкретными файлами. Как я могу настроить ваш макрос, чтобы я мог выбрать эти 4 файла из этой папки?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Джоэл,
Чтобы вызвать один и тот же код в определенных книгах, вы должны применить следующий код:

Sub LoopThroughFiles()
Dim xFd как FileDialog
Dim xFdItem как вариант
Dim xFileName как строка
Dim xFB как строка
С Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = Истина
.Фильтры.Очистить
.Фильтры.Добавить "excel", "*.xls*"
.Показать
Если .SelectedItems.Count < 1, то выйдите из подпрограммы
Для lngCount = 1 для .SelectedItems.Count
xFileName = .SelectedItems(lngCount)
Если xFileName <> "" Тогда
С Workbooks.Open (имя файла: = xFileName)
'ваш код
Конец с
End If
Next lngCount
Конец с
End Sub

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
спасибо, было действительно полезно
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуй!

Я пытаюсь вставить свой код в ваш, и когда я запускаю макрос, он выдает следующее сообщение: Ошибка времени выполнения «429»: ActiveX не может создать объект. Посоветуйте, как это можно исправить. Благодарю вас!

Мой код:

Установите RInput = Диапазон («A2: A21»)
Установите ROutput = Диапазон («D2: D22»)

Dim A () как вариант
ReDim A (1 в RInput.Rows.Count, 0)
A = RInput.Value2

Set d = CreateObject("Сценарий.Словарь")

Для i = 1 до UBound(A)
Если d.Exists(A(i, 1)) Тогда
d(A(i, 1)) = d(A(i, 1)) + 1
Еще
г.Добавить A(i, 1), 1
End If
Далее
Для i = 1 до UBound(A)
А (я, 1) = d (А (я, 1))
Далее

Выход = А
Этот комментарий был сведен к минимуму модератором на сайте
Привет, во-первых спасибо за этот макрос, это было именно то, что я искал. Однако у меня есть одна проблема: есть ли способ закрыть и сохранить каждое окно по мере его завершения. У меня большое количество файлов, и мне не хватает оперативной памяти до завершения выполнения.
Этот комментарий был сведен к минимуму модератором на сайте
Да, просто добавьте приведенный ниже код, если вы хотите сохранить файл с тем же именем:

'Сохранение книги
ActiveWorkbook.Save
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Кейтлин,
Возможно, приведенный ниже код может помочь вам, каждый раз после запуска вашего конкретного кода появляется всплывающее окно с запросом на сохранение файла, напоминающее вам о сохранении книги.

Sub LoopThroughFiles()
Dim xFd как FileDialog
Dim xFdItem как вариант
Dim xFileName как строка
Dim xWB как рабочая книга
Установите xFd = Application.FileDialog (msoFileDialogFolderPicker)
Если xFd.Show = -1 Тогда
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
On Error Resume Next
Делать, пока xFileName <> ""
Установите xWB = Workbooks.Open(xFdItem & xFileName)
С xWB
'Ваш код здесь
Конец с
xWB.Закрыть
xFileName = Каталог
Петля
End If
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуй!

Я пытаюсь вставить свой код в ваш, и когда я запускаю макрос, он выдает следующее сообщение: Ошибка времени выполнения «429»: ActiveX не может создать объект. Посоветуйте, как это можно исправить. Благодарю вас!

Мой код:

Установите RInput = Диапазон («A2: A21»)
Установите ROutput = Диапазон («D2: D22»)

Dim A () как вариант
ReDim A (1 в RInput.Rows.Count, 0)
A = RInput.Value2

Set d = CreateObject("Сценарий.Словарь")

Для i = 1 до UBound(A)
Если d.Exists(A(i, 1)) Тогда
d(A(i, 1)) = d(A(i, 1)) + 1
Еще
г.Добавить A(i, 1), 1
End If
Далее
Для i = 1 до UBound(A)
А (я, 1) = d (А (я, 1))
Далее

Выход = А
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,

Я успешно использовал этот макрос для форматирования файлов NBA для 30 команд, каждая из которых имеет свою собственную книгу. Вчера я получил сообщение об ошибке, что Модуль (макрос) не может быть завершен или удален или отредактирован (для сохранения). Он испортил мою личную книгу макросов и сделал Excel практически непригодным для меня. Приложение вылетает каждый раз, когда я пытаюсь получить доступ к макросу из любого файла. Поддержка Excel и поддержка Windows не в состоянии что-то исправить. Вы можете помочь?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, есть ли способ определить место назначения файла в самом скрипте. Я хочу пропустить процесс 3, где мы должны просматривать определенную папку.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, спасибо за этот код. подскажите, пожалуйста, как я могу получить результат своего макроса, для которого я открыл все книги на одном листе (результат каждой книги подряд)? и есть ли способ добавить имя каждой книги в строку с данными из предыдущего шага?
Этот комментарий был сведен к минимуму модератором на сайте
Hi

Я получил ошибку времени выполнения 1004: синтаксис неверен, когда я запустил следующий код, который представляет собой расширение Office VBA для «запуска макроса одновременно в нескольких книгах с кодом VBA» с расширением Office VBA «удалить все именованные диапазоны». с кодом VBA» в слот для кода:

Sub LoopThroughFiles()

Dim xFd как FileDialog

Dim xFdItem как вариант

Dim xFileName как строка

Установите xFd = Application.FileDialog (msoFileDialogFolderPicker)

Если xFd.Show = -1 Тогда

xFdItem = xFd.SelectedItems(1) & Application.PathSeparator

xFileName = Dir(xFdItem & "*.xls*")

Делать, пока xFileName <> ""

С Workbooks.Open (xFdItem & xFileName)

'Подраздел УдалитьИмена()

'Обновление 20140314

Dim xName как имя

Для каждого xName в Application.ActiveWorkbook.Names

xName.Удалить

Далее


Конец с

xFileName = Каталог

Петля

End If

End Sub

Что я пытаюсь сделать, так это запустить макрос, который удаляет именованные диапазоны в восьми книгах, содержащихся в одной папке.

Кстати, это первый раз, когда я использовал что-то из Extend Office, и это не сработало. Этот сайт был очень полезен для меня.

Предложения/комментарии будут весьма признательны.

альдк
Этот комментарий был сведен к минимуму модератором на сайте
Привет, альдк,
Ваш код хорошо работает в моей книге, какую версию Excel вы используете?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, этот код так хорош и полезен. Я использую это много!

В настоящее время в моей организации мы используем SharePoint для хранения наших файлов. Есть ли способ заставить этот код работать со всеми файлами в папке sharepoint?
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, спасибо за этот код.
Есть ли способ перебрать подпапки? Допустим, у меня есть одна папка, а внутри папки еще десять папок, каждая из которых содержит файл Excel.

Есть ли способ просто выбрать основную папку, чтобы код выполнялся во всех ее подпапках?

Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Дарко. Чтобы запустить код из папки с подпапками, примените следующий код: Sub LoopThroughFiles_Subfolders (xStrPath как строка)
Dim xSFolderName
Dim xFileName
Dim xArrSFPath() как строка
Dim xI как целое число
Если xStrPath = "", то выйдите из Sub
xFileName = Dir(xStrPath & "*.xls*")
Делать, пока xFileName <> ""
С Workbooks.Open(xStrPath и xFileName)
'Ваш код здесь
Конец с
xFileName = Каталог
Петля
xSFolderName = Dir(xStrPath, vbDirectory)
хI = 0
ReDim xArrSFPath(0)
Делать, пока xSFolderName <> ""
Если xSFolderName <> "." И xSFolderName <> ".." Тогда
Если (GetAttr(xStrPath & xSFolderName) And vbDirectory) = vbDirectory Тогда
хI = хI + 1
ReDim сохранить xArrSFPath(xI)
xArrSFPath(xI - 1) = xStrPath & xSFolderName & "\"
End If
End If
xSFolderName = Каталог
Петля
Если UBound(xArrSFPath) > 0 Тогда
Для xI = 0 в UBound(xArrSFPath)
LoopThroughFiles_Subfolders (xArrSFPath(xI))
Следующий хI
End If
End Sub
Sub LoopThroughFiles()
Dim xFd как FileDialog
Dim xFdItem как вариант
Dim xFileName как строка
Установите xFd = Application.FileDialog (msoFileDialogFolderPicker)
Если xFd.Show = -1 Тогда
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
LoopThroughFiles_Subfolders (xFdItem)
End If
End SubПожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
В дополнение к приведенному выше коду, возможно ли открывать файлы Excel в желаемом хронологическом порядке?
Этот комментарий был сведен к минимуму модератором на сайте
Привет во первых большое спасибо за макрос с которым очень удобно работать. Мне просто интересно, есть ли у нас способ обновить папку на одном диске с помощью макроса. Если да, не могли бы вы сообщить мне, что я могу сделать, чтобы обновить файлы в onedrive с помощью макроскрипта?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, большое спасибо за этот сценарий, у меня он работает очень хорошо, но у меня есть особые потребности: есть ли способ изменить сценарий, чтобы применить мой код с условиями имени файла И во вложенных папках?
Я объясняю: я учитель, и я создал решение Excel для сохранения результатов учащихся и предоставления учителям возможности сверяться с ними. Для этого у меня есть файл для каждого школьного предмета и один для ответственного класса, все в папке для каждого класса.
Поэтому, когда я нахожу ошибку или оптимизацию, я должен сообщить об изменениях во всех файлах во всех подпапках.
Но поскольку все файлы не одинаковы (различная организация подпрограмм), мне нужен способ применить мой код в качестве примера ко всем файлам с именем «математический класс» во всех подпапках или, наоборот, применить мой код ко всем файлам во вложенных папках, кроме всех файлов с именем «xyz». Спасибо! Фабрис
Этот комментарий был сведен к минимуму модератором на сайте
Ваш код не работает со следующим VBA, не могли бы вы помочь Sub Bundles ()

Dim vWS как рабочий лист
Дим vA, vA2()
Dim vR As Long, vSum As Long, vC As Long
Dim vN такой же длины, vN2 такой же длины, vN3 такой же длины

Установите vWS = ActiveSheet
С vWS
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
ReDim Preserve vA2 (от 1 до vSum, от 1 до 4)
vA = .Range("A2:D" и vR)
Для vN = 1 Для vR - 1
Для vN2 = 1 К vA(vN, 4)
VC = VC + 1
Для vN3 = от 1 до 4
vA2(vC, vN3) = vA(vN, vN3)
Следующий vN3
Следующий vN2
Следующий ВН
Конец с
VC = 1
Для vN = 1 Для vSum - 2
vA2(vN, 4) = vC
Если vA2(vN + 1, 2) = vA2(vN, 2), то
VC = VC + 1
vA2(vN + 1, 4) = vC
Еще
vA2(vN + 1, 4) = 1
VC = 1
End If
Следующий ВН
Приложение.ScreenUpdating = False
Sheets.Add
С ActiveSheet
vWS.Range("A1:D1").Копировать .Range("A1:D1")
.Cells(2, 1).Resize(vSum, 4) = vA2
Конец с
Application.ScreenUpdating = True

End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу запустить этот VBA на несколько листов в папке за раз, не могли бы вы помочьSub Bundles()

Dim vWS как рабочий лист
Дим vA, vA2()
Dim vR As Long, vSum As Long, vC As Long
Dim vN такой же длины, vN2 такой же длины, vN3 такой же длины

Установите vWS = ActiveSheet
С vWS
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
ReDim Preserve vA2 (от 1 до vSum, от 1 до 4)
vA = .Range("A2:D" и vR)
Для vN = 1 Для vR - 1
Для vN2 = 1 К vA(vN, 4)
VC = VC + 1
Для vN3 = от 1 до 4
vA2(vC, vN3) = vA(vN, vN3)
Следующий vN3
Следующий vN2
Следующий ВН
Конец с
VC = 1
Для vN = 1 Для vSum - 2
vA2(vN, 4) = vC
Если vA2(vN + 1, 2) = vA2(vN, 2), то
VC = VC + 1
vA2(vN + 1, 4) = vC
Еще
vA2(vN + 1, 4) = 1
VC = 1
End If
Следующий ВН
Приложение.ScreenUpdating = False
Sheets.Add
С ActiveSheet
vWS.Range("A1:D1").Копировать .Range("A1:D1")
.Cells(2, 1).Resize(vSum, 4) = vA2
Конец с
Application.ScreenUpdating = True

End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Я попытался запустить код, но ошибка «424: требуется объект» появляется в строке «With Workbooks.Open (xFdItem & xFileName)». Глядя глубже, кажется, что рабочие книги Excel, хранящиеся в интересующей папке, не отображаются / не существуют (когда окно открывается с отображением кода, если я пытаюсь открыть папку и не выбирать ее, она пуста). Как так?
Sub LoopThroughFiles()
Dim xFd как FileDialog
Dim xFdItem как вариант
Dim xFileName как строка
Установите xFd = Application.FileDialog (msoFileDialogFolderPicker)
Если xFd.Show = -1 Тогда
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Делать, пока xFileName <> ""
С Workbooks.Open (xFdItem & xFileName)
Sheets.Add After:=ActiveSheet
Таблицы ("Лист2"). Выберите
Листы("Лист2").Имя = "Мастер"
Листы("Мастер").Выбрать
Листы ("Мастер"). Переместить до: = Листы (1)
Конец с
xFileName = Каталог
Петля
End If
End Sub


Не могли бы вы помочь мне решить эту проблему?
Этот комментарий был сведен к минимуму модератором на сайте
Это мой любимый веб-сайт с самыми четкими инструкциями (более четкими, чем любое видео на YouTube), и я продолжаю возвращаться к нему снова и снова. Большое спасибо за эти уроки - вы спасаете печального аспиранта.
Этот комментарий был сведен к минимуму модератором на сайте
Sub LoopThroughFiles()
Dim xFd как FileDialog
Dim xFdItem как вариант
Dim xFileName как строка
Установите xFd = Application.FileDialog (msoFileDialogFolderPicker)
Если xFd.Show = -1 Тогда
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Делать, пока xFileName <> ""
С Workbooks.Open (xFdItem & xFileName)
' ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.Select
Конец с
xFileName = Каталог
Петля
End If
End Sub, помогите пожалуйста. Кстати, расширение моих файлов Excel (.csv - "с разделителями-запятыми"). и у меня есть 500 файлов Excel в папке, в каждой строке в среднем около 500000 строк. Пожалуйста, помогите. Я просто хочу вставить столбец в каждую книгу
Этот комментарий был сведен к минимуму модератором на сайте
вы когда-нибудь получали ответ на свой вопрос? Я пытаюсь сделать то же самое с более чем 3700 CSV-файлами. Мне просто нужно добавить 1 столбец (A).
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Нуждающийся и Карли! Чтобы решить вашу проблему, чтобы запустить код для нескольких файлов CSV, вам просто нужно изменить расширение файла .xls на .csv, как показано ниже: Sub LoopThroughFiles()
Dim xFd как FileDialog
Dim xFdItem как вариант
Dim xFileName как строка
Установите xFd = Application.FileDialog (msoFileDialogFolderPicker)
Если xFd.Show = -1 Тогда
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.csv*")
Делать, пока xFileName <> ""
С Workbooks.Open (xFdItem & xFileName)
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.Select
Конец с
xFileName = Каталог
Петля
End If
End SubПожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, можно ли запускать макрос только на листах разных книг с определенным именем? Спасибо!!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Сара,
К сожалению, нет хорошего решения проблемы, которую вы подняли.
Спасибо!
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL