Excel VB, чтобы обойти папку и запустить макрос

Question

Я пробовал этот код и кажется, что он не работает. Может ли кто-нибудь сказать мне, почему?

Sub ProcessFiles() 
    Dim Filename, Pathname As String 
    Dim wb As Workbook 

    Pathname = ActiveWorkbook.Path & "C:\Macro\" 
    Filename = Dir(Pathname & "*.xls") 
    Do While Filename <> "" 
     Set wb = Workbooks.Open(Pathname & Filename) 
     DoWork wb 
     wb.Close SaveChanges:=True 
     Filename = Dir() 
    Loop 
End Sub 

Sub DoWork(wb As Workbook) 
    With wb 
     Range("A1").Select 
     ActiveCell.FormulaR1C1 = "Name" 
     Range("B1").Select 
     ActiveCell.FormulaR1C1 = "Anil" 
     Range("A2").Select 
    End With 
End Sub 

Answer 1

Я нашел 2 области, вызывающих озабоченность. Во-первых,

Pathname = ActiveWorkbook.Path & "C: \ Macro \"

Это будет возвращать что-то похожее на «C: \ Users \ [имя пользователя] \ [FILELOCATION] C: \ Макрос \ "(Это был мой выход C: \ Users \ Developer \ DesktopC: \ Macro \")

простой способ проверить это, чтобы разместить

MsgBox Pathname

после

Pathname = ActiveWorkbook.Path & "C: \ Macro \"

как

Pathname = ActiveWorkbook.Path & "C: \ Macro \"

MsgBox Путь

и запустить код. Это покажет вам Pathname, которое является основной проблемой. Если файлы Excel вы планируете открыть/изменить в том же каталоге, что и ActiveWorkbook, это будет работать нормально

PathName = ActiveWorkbook.Path & «\»

(удалить MsgBox PathName, когда вы сделали .)

Вторая область, вызывающая озабоченность, - это Do While Loop. В настоящее время у вас установлен только цикл, если имя файла не равно "". Однако, когда вы вводите цикл, вы устанавливаете Filename в «" с Filename = Dir(). Если вы не планируете выполнять итерацию по папке, вы можете использовать один оператор IF. Если вы планируете выполнять итерацию по папке, продолжайте работу с инструкцией Do While, но в конечном итоге необходимо будет изменить имя файла = Dir().

Надеюсь, что это поможет.

Answer 2

Это, вероятно, ваш вопрос:

Pathname = ActiveWorkbook.Path & "C:\Macro\"

ActiveWorkbook.Path уже возвращает C:\YourPathToWorkbook так что ваш Pathname, вероятно, что-то вроде:

C:\yourpathtoworkbookC:\Macro\

Вы должны пройти через код с F8 и зависать над переменными, когда они выделены желтым цветом.