VBA в Excel 2013, цикл по файлам, где подкаталог применяется к подкаталогу

Question

У меня есть скрипт MATLAB, который анализирует экспериментальные результаты по ряду виджетов, созданных моей компанией, и, наконец, экспортирует обобщенные данные в файл CSV. Я хочу импортировать все эти CSV-файлы в книгу Excel, чтобы я мог сравнить сводные результаты с помощью сводной таблицы.

Каждый виджет в настоящее время имеет свой собственный каталог с подкаталогом наборов данных, который содержит файл pivotData.csv . Структура каталогов выглядит примерно так:

1. C:\ Путь \ К \ Widgets
   • Widget_1 \ Datasets \ pivotData.csv
   • Widget_2 \ Datasets \ pivotData.csv
   • Widget_3 \ Datasets \ pivotData.csv
   • Widget_3b \ Datasets \ pivotData.csv
   • Widget_4 \ Datasets \ pivotData.csv

Основная рабочая книга, pivotMaster.xlsm, находится в главном каталоге: C:\Path\To\Widgets\pivotMaster.xlsm.

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

До сих пор я был в состоянии собрать этот код вместе, который был вдохновлен кем-то, перебирающим различные csv-файлы в одном каталоге. В настоящее время у меня проблемы с использованием подстановочного знака для имени каталога. Ошибка заключается в том, что я пытаюсь инициализировать имя файла, объединяя подстановочные знаки пути и подкаталога.

Sub test()
'DECLARE AND SET VARIABLES
Dim wbk As Workbook
Dim Filename As String
Dim Path As String
Path = "C:\Path\To\Widgets\"
Filename = Dir(Path & "Widget_*\Datasets\pivotData.csv")  %%% <-- I get an error on this line &&&
'--------------------------------------------
'OPEN EXCEL FILES

'Clear all the previous contents
Application.Run ("clearContents")

'Loop over all "pivotData.csv" files in Filename
 Do While Len(Filename) > 0  'IF NEXT FILE EXISTS THEN
    Set wbk = Workbooks.Open(Path & Filename)

'Notify User that Filename has opened
    MsgBox Filename & " has opened"  'OPTIONAL- CAN COMMENT OUT

'Move to first empty row below "A1"
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.FormulaR1C1 = "=R[1]C[0]"

'Import Data from Text file "Filename"
    With ActiveSheet.QueryTables.Add(Connection:= _
        wbk, Destination:= _
        ActiveCell)
        .CommandType = 0
        .Name = "pivotData_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 4, 4, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("A1").Select
    wbk.Close True
    Filename = Dir
Loop
End Sub

Sub clearContents()
'
' clearContents Macro clears everything below the headers
'

'
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.clearContents
End Sub

Кто-нибудь может дать мне представление о том, что я здесь делаю неправильно?

Answer 1

Это даст вам папки в папке, просто продолжайте детализацию, пока не найдете свои рабочие книги.

Sub DrillDown()

Dim path As String
path = "C:\path\to"

Dim FileSystem As Object
Set FileSystem = CreateObject("Scripting.FileSystemObject")

Dim SubFolder
For Each SubFolder In FileSystem.GetFolder(path).subfolders
 Debug.Print SubFolder

Next

End Sub

Чтобы пройти поиск файлов -

Sub LookForFiles()
Dim filename As Variant
filename = Dir("C:\path\to\" & "*.csv")
    Do While filename <> ""
        Debug.Print filename
        filename = Dir
    Loop
End Sub

Таким образом, вы можете просматривать каталоги до тех пор, пока не найдете нужное имя каталога, а затем искать файлы CSV и делать то, что вы хотите.