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

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

У цій статті я розповім про те, як одночасно запускати макрос у кількох файлах книги, не відкриваючи їх. Наступний спосіб може допомогти вам вирішити це завдання в Excel.

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


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

Щоб запустити макрос у кількох книгах, не відкриваючи їх, застосуйте такий код VBA:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний макрос у Модулі Вікно

Код 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 нижній колонтитул між З робочими книгами. Відкрити (xFdItem & xFileName) і Кінець з сценарії. Дивіться знімок екрана:

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

3. Потім натисніть F5 ключ для виконання цього коду, і a перегорнути Відобразиться вікно, виберіть папку, яка містить книги, до яких ви хочете застосувати цей макрос, див. знімок екрана:

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

4. А потім клацніть OK кнопка, бажаний макрос буде виконаний відразу з однієї книги в іншу.

 


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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 <> ""
З робочими книгами. Відкрити (xFdItem & xFileName)
'Ваш код тут
Рядки("2:8").Виберіть
З Selection.Font
.Name = "Arial"
.Розмір = 12
.Закреслення = хибно
.Надрядковий = хибний
.Індекс = False
.OutlineFont = False
.Тінь = Неправда
.Підкреслення = xlUnderlineStyleNone
.Колір = -11518420
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Кінець з
xFileName = Dir
Петля
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 <> ""
З робочими книгами. Відкрити (xFdItem & xFileName)
'Ваш код тут
Рядки("2:8").Виберіть
З Selection.Font
.Name = "Arial"
.Розмір = 16
.Закреслення = хибно
.Надрядковий = хибний
.Індекс = False
.OutlineFont = False
.Тінь = Неправда
.Підкреслення = xlUnderlineStyleNone
.Колір = -11518420
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Кінець з
Кінець з
xFileName = Dir
Петля
End If
End Sub

Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Дуже корисний макрос, і він чудово працює, але я хотів би мати можливість вибрати, які файли з цієї папки я хочу, щоб макрос запускався? Наприклад, у мене є 4 файли в папці з іншими файлами Excel, і я хочу, щоб він працював лише для цих 4 конкретних файлів. Як я можу налаштувати ваш макрос, щоб дозволити мені вибрати ці 4 файли з цієї папки?
Цей коментар був мінімізований модератором на сайті
Привіт, Джоел,
Щоб запустити той самий код у певних робочих книгах, слід застосувати наведений нижче код:

Sub LoopThroughFiles()
Dim xFd як FileDialog
Dim xFdItem як варіант
Dim xFileName як рядок
Dim xFB як рядок
З Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Фільтри.Очистити
.Filters.Додати "excel", "*.xls*"
.Показати
Якщо .SelectedItems.Count < 1, то вийдіть із під
Для lngCount = 1 До .SelectedItems.Count
xFileName = .SelectedItems(lngCount)
Якщо xFileName <> "" Тоді
З Workbooks.Open(Назва файлу:=xFileName)
'твій код
Кінець з
End If
Наступний lngCount
Кінець з
End Sub

Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
дякую, було дуже корисно
Цей коментар був мінімізований модератором на сайті
Привіт!

Я намагаюся вставити свій код у ваш, і коли я запускаю макрос, він видає таке повідомлення: Помилка під час виконання '429': ActiveX не може створити об'єкт. Підкажіть, будь ласка, як це можна виправити. Дякую!

Мій код:

Встановити RInput = діапазон ("A2:A21")
Встановити ROoutput = діапазон ("D2:D22")

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

Установіть d = CreateObject("Scripting.Dictionary")

Для i = 1 до UBbound(A)
Якщо d.Існує(A(i, 1)) Тоді
d(A(i, 1)) = d(A(i, 1)) + 1
Ще
г. Додайте A(i, 1), 1
End If
Далі
Для i = 1 до UBbound(A)
A(i, 1) = d(A(i, 1))
Далі

ROВихід = A
Цей коментар був мінімізований модератором на сайті
Привіт, по-перше, дякую за цей макрос, це було саме те, що я шукав. Однак у мене є одна проблема: чи є спосіб закрити та зберегти кожне вікно після його завершення. У мене є велика кількість файлів, і у мене закінчується оперативна пам’ять до завершення виконання.
Цей коментар був мінімізований модератором на сайті
Так, просто додайте нижче наступний код, якщо ви хочете, щоб він зберігав файл з тим самим ім’ям:

«Збереження робочого зошита
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 = Dir
Петля
End If
End Sub
Цей коментар був мінімізований модератором на сайті
Привіт!

Я намагаюся вставити свій код у ваш, і коли я запускаю макрос, він видає таке повідомлення: Помилка під час виконання '429': ActiveX не може створити об'єкт. Підкажіть, будь ласка, як це можна виправити. Дякую!

Мій код:

Встановити RInput = діапазон ("A2:A21")
Встановити ROoutput = діапазон ("D2:D22")

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

Установіть d = CreateObject("Scripting.Dictionary")

Для i = 1 до UBbound(A)
Якщо d.Існує(A(i, 1)) Тоді
d(A(i, 1)) = d(A(i, 1)) + 1
Ще
г. Додайте A(i, 1), 1
End If
Далі
Для i = 1 до UBbound(A)
A(i, 1) = d(A(i, 1))
Далі

ROВихід = A
Цей коментар був мінімізований модератором на сайті
Здравствуйте,

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

Я отримав помилку під час виконання 1004: синтаксис неправильний, коли я запустив наступний код, який є Extend Office VBA, щоб «Виконати макрос одночасно в кількох книгах із кодом VBA» з Extend 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 <> ""

З робочими книгами. Відкрити (xFdItem & xFileName)

' Sub DeleteNames()

'Оновлення 20140314

Dim xName як ім'я

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

xName.Delete

Далі


Кінець з

xFileName = Dir

Петля

End If

End Sub

Я намагаюся запустити макрос, який видаляє названі діапазони у восьми книгах, які містяться в одній папці.

До речі, це перший раз, коли я використовував щось із Extend Office, і це не спрацювало. Цей веб-сайт був для мене надзвичайно корисним.

Будемо вдячні за пропозиції/коментарі.

aldc
Цей коментар був мінімізований модератором на сайті
Привіт, aldc,
Ваш код добре працює в моїй книзі, яку версію Excel ви використовуєте?
Цей коментар був мінімізований модератором на сайті
Привіт, цей код дуже хороший і корисний. Я багато ним користуюся!

Зараз у моїй організації ми використовуємо SharePoint для зберігання наших файлів. Чи є спосіб змусити цей код працювати з усіма файлами в папці Sharepoint?
Цей коментар був мінімізований модератором на сайті
Привіт, дякую за цей код.
Чи також є спосіб перебирати підпапки? Скажімо, у мене є одна папка і в ній ще десять папок, кожна з яких містить файл Excel.

Чи є спосіб просто вибрати основну папку, щоб код проходив через усі її підпапки?

Дякую.
Цей коментар був мінімізований модератором на сайті
Привіт, Дарко! Щоб запустити код із папки з підпапками, застосуйте такий код: Sub LoopThroughFiles_Subfolders(xStrPath як рядок)
Зменшити ім’я папки xSFolder
Dim xFileName
Dim xArrSFPath() як рядок
Dim xI як ціле число
Якщо xStrPath = "" Вийдіть із Sub
xFileName = Dir(xStrPath & "*.xls*")
Робити, поки xFileName <> ""
З Workbooks.Open(xStrPath & xFileName)
'Ваш код тут
Кінець з
xFileName = Dir
Петля
xSFolderName = Dir(xStrPath, vbDirectory)
xI = 0
ReDim xArrSFPath(0)
Робити, поки xSFolderName <> ""
Якщо xSFolderName <> "." І xSFolderName <> ".." Потім
Якщо (GetAttr(xStrPath & xSFolderName) і vbDirectory) = vbDirectory Тоді
xI = xI + 1
ReDim, збереження xArrSFPath(xI)
xArrSFPath(xI - 1) = xStrPath & xSFolderName & "\"
End If
End If
xSFolderName = Dir
Петля
Якщо UBound(xArrSFPath) > 0, то
Для xI = 0 до UBound(xArrSFPath)
LoopThroughFiles_Subfolders (xArrSFPath(xI))
Далі xI
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 за допомогою макросу. Якщо так, не могли б ви повідомити мені, що я можу зробити тут, щоб оновити файли на onedrive за допомогою макроскрипту?
Цей коментар був мінімізований модератором на сайті
Привіт, велике спасибі за цей сценарій, я працюю дуже добре для мене, але я маю особливі потреби: чи є спосіб змінити сценарій, щоб застосувати мій код з умовами назви файлу І у підпапках?
Я пояснюю: я вчитель, і я створив рішення Excel, щоб зберегти результати учнів і дозволити вчителям консультуватися з ними. Для цього у мене є файл для кожного навчального предмета і один для відповідального класу, все в папці для кожного класу.
Тому, коли я виявляю помилку чи оптимізацію, я повинен повідомити про зміни в усіх файлах у всіх підпапках.
Але оскільки всі файли не однакові (різна організація суб'єктів), я хотів би застосувати мій код, наприклад, до всіх файлів з назвою "maths class" у всіх підпапках, або, навпаки, застосувати мій код до всіх файлів у підпапках, окрім усіх файлів з іменем "xyz". Дякую !Fabrice
Цей коментар був мінімізований модератором на сайті
Ваш код не працює з наступним VBA, будь ласка, допоможіть Sub Bundles()

Dim vWS як робочий лист
Дим vA, vA2()
Dim vR As Long, vSum As Long, vC As Long
Dim vN As Long, vN2 As Long, vN3 As Long

Встановіть 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
Далі vN
Кінець з
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
Далі vN
Application.ScreenUpdating = Невірний
Аркуші.Додати
За допомогою ActiveSheet
vWS.Range("A1:D1").Копіювати .Range("A1:D1")
.Cells(2, 1).Resize(vSum, 4) = vA2
Кінець з
Application.ScreenUpdating = True

End Sub
Цей коментар був мінімізований модератором на сайті
Я хочу запустити цей VBA на декілька аркушів у папці одночасно, чи можете ви допоможіть, будь ласка, Sub Bundle()

Dim vWS як робочий лист
Дим vA, vA2()
Dim vR As Long, vSum As Long, vC As Long
Dim vN As Long, vN2 As Long, vN3 As Long

Встановіть 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
Далі vN
Кінець з
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
Далі vN
Application.ScreenUpdating = Невірний
Аркуші.Додати
За допомогою ActiveSheet
vWS.Range("A1:D1").Копіювати .Range("A1:D1")
.Cells(2, 1).Resize(vSum, 4) = vA2
Кінець з
Application.ScreenUpdating = True

End Sub
Цей коментар був мінімізований модератором на сайті
Я спробував запустити код, але в рядку "With Workbooks.Open(xFdItem & xFileName)" з'являється помилка "424: Object Required". Якщо подивитися глибше, здається, що книги excels, що зберігаються в папці, що цікавить, не відображаються/існують (коли відкривається вікно з відображенням коду, якщо я намагаюся відкрити папку і не вибирати її, вона порожня). Як так?
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 <> ""
З робочими книгами. Відкрити (xFdItem & xFileName)
Sheets.Add After:=ActiveSheet
Листи("Аркуш2").Виберіть
Sheets("Sheet2").Name = "Master"
Листи("Майстер").Виберіть
Таблиці("Master").Перемістити перед:=Аркуші(1)
Кінець з
xFileName = Dir
Петля
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 <> ""
З робочими книгами. Відкрити (xFdItem & xFileName)
' ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.Select
Кінець з
xFileName = Dir
Петля
End If
End Sub, будь ласка, допоможіть. До речі, моє розширення файлів Excel (.csv - "розділені комами") . і у мене є 500 файлів Excel у папці, середня кількість яких у кожному рядку становить приблизно 500000 XNUMX рядків. Будь ласка, допоможіть. Я просто хочу вставити стовпець у кожну робочу книгу
Цей коментар був мінімізований модератором на сайті
ти коли-небудь отримував відповідь на своє запитання? Я намагаюся зробити те ж саме з понад 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 <> ""
З робочими книгами. Відкрити (xFdItem & xFileName)
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
ActiveCell.Select
Кінець з
xFileName = Dir
Петля
End If
End Sub. Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Привіт, чи можна запустити макрос лише на аркушах різних робочих книг із певним ім’ям? Спасибі!!
Цей коментар був мінімізований модератором на сайті
Привіт, Сара,
Вибачте, немає хорошого вирішення проблеми, яку ви підняли.
Дякую!
There are no comments posted here yet
Load More
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL