Откройте несколько файлов Excel и добавьте новые ячейки

Question

Я пытаюсь открыть несколько файлов Excel и добавить одну и ту же новую ячейку с одинаковым именем к каждому.Они находятся в папке ... / desktop / excel с именем workbook1, workbook2 и т. Д.

Я уже пробовал эту статью , но я получаю ошибку во время выполнения 76 'Путь не найден'.

Я супер новичок в VBA, любая помощь приветствуется!Это скрипт, который я запускаю:

Sub LoopThroughFolder()

Dim MyFile As String, Str As String, MyDir As String, Wb As Workbook
Dim Rws As Long, Rng As Range
Set Wb = ThisWorkbook
'change the address to suite
MyDir = "C:\Users\shaye\Desktop\excel" 'Your Directory
MyFile = Dir(MyDir & "*.xlsx")    'Your excel file extension
ChDir MyDir
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0

Do While MyFile <> ""
    Workbooks.Open (MyFile)
        Range("G1").Value = "NewColumn" 'New Column Name
        ActiveWorkbook.Save
        ActiveWorkbook.Close True
    MyFile = Dir()
Loop

End Sub

[

Answer 1

попробуйте этот код.Я думаю, что вам нужно это "\" в вашем каталоге и "??"в вашем расширении файла, чтобы найти несколько типов Excel

Sub LoopThroughFolder()

Dim MyFile As String, Str As String, MyDir As String, Wb As Workbook
Dim Rws As Long, Rng As Range
Set Wb = ThisWorkbook
'change the address to suite
MyDir = "C:\Users\shaye\Desktop\excel\" 'Your Directory need this "\"
MyFile = Dir(MyDir & "*.xl??")    'Your excel file extension
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0

Do While MyFile <> ""
    Workbooks.Open (MyFile)
        Range("G1").Value = "NewColumn" 'New Column Name
        ActiveWorkbook.Save
        ActiveWorkbook.Close True
    MyFile = Dir()
Loop

End Sub