Задача следующая:
При запуске макроса в всплывающем окне требуется ввести "имя нужной папки". Как только вводим это имя
на локальном диске 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 |
