У меня есть скрипт MATLAB, который анализирует экспериментальные результаты по ряду виджетов, созданных моей компанией, и, наконец, экспортирует обобщенные данные в файл CSV. Я хочу импортировать все эти CSV-файлы в книгу Excel, чтобы я мог сравнить сводные результаты с помощью сводной таблицы.
Каждый виджет в настоящее время имеет свой собственный каталог с подкаталогом наборов данных, который содержит файл pivotData.csv . Структура каталогов выглядит примерно так:
- 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
Кто-нибудь может дать мне представление о том, что я здесь делаю неправильно?