Цикл Countif на внешних листах excel

Question

В настоящее время я пытаюсь консолидировать информацию из 3000 разных листов xls в один файл.

Мастер-файл выглядит следующим образом http://i.imgur.com/lQWxQxO.png

Все остальные козыри содержатся в 1 папке, как это. Они всего по 1 листу. http://i.imgur.com/VxmaLCf.png

и, наконец, будет то, что информация в файлах, как этого

HTTP: // i.imgur.com/w3erGgN.png

Я пытаюсь подсчитать количество " pos "," neg "и" neu "внутри файлов и консолидировать на главном листе, а текущий способ, который я делаю, - вручную вводить countif-коды, оставляя документ открытым. Есть ли другой способ сделать это быстрее? Я пробовал sumproduct, но он никогда не работает. он возвращает только 0, поскольку я думаю, что это может быть проблема с подстановочными знаками.

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

Пожалуйста, помогите.

Answer 1

  Sub Merge() 
      Path = "C:\path to the folder\" 
      Filename = Dir(Path & "*.xls") 
       Do While Filename <> "" 
       Workbooks.Open Filename:=Path & Filename, ReadOnly:=True 
       For Each Sheet In ActiveWorkbook.Sheets 
       Sheet.Copy After:=ThisWorkbook.Sheets(1) 
       Next Sheet 
       Workbooks(Filename).Close 
       Filename = Dir() 
       Loop 
      End Sub 

Найдено здесь: http://www.extendoffice.com/documents/excel/456-combine-multiple-workbooks.html