Задача следующая:
При запуске макроса в всплывающем окне требуется ввести "имя нужной папки". Как только вводим это имя
на локальном диске D:\Temp_\var_par" \
попадаем в нужную нам папку и читаем в ней файл "par.txt" и заносим его результат в excel в ячейку А1
Далее в зависимости что введено ссылаемся на файл
Вот что сделал.
При запуске макроса в всплывающем окне требуется ввести "имя нужной папки". Как только вводим это имя
на локальном диске D:\Temp_\var_par" \
попадаем в нужную нам папку и читаем в ней файл "par.txt" и заносим его результат в excel в ячейку А1
Далее в зависимости что введено ссылаемся на файл
Вот что сделал.
Код |
---|
Sub Param() Dim Par As String Par = Application.InputBox("Input folder name") With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;D:\Temp_\var_par" \ Par \ "par.txt", Destination:=Range( _ "$A$1")) .Name = "Par" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 1251 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Columns("A:A").EntireColumn.AutoFit End Sub |