Применяя решение по ссылке, приведенной в комментарии к вопросу (необходимо добавить ссылку на Microsoft Scripting Runtime (Инструменты> Ссылки в IDE):
ыло интересно, есть ли способ взять выбранный файл .csv и поместить имя в ячейку на листе «Сводка». Вот код для загрузки файла .csv:
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Input Raw Data") 'set to current worksheet name
strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please select text file...")
With ws.QueryTables.Add(Connection:="TEXT;" & strFile,
Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
Я не уверен, есть ли способ сделать это, заранее спасибо.