Как удалить часть запроса?

Question

[Nighmer]

При создании нескольких запросов и последующей выгрузке их в лист Exel требуется удалить один из запросов.
Запрос и его выгрузка осуществляется следующим образом

ActiveWorkbook.Worksheets.add
Sheets("IN").Select
With Sheets("IN").QueryTables.add(Connection:= _
"TEXT;" & PathFile _
, Destination:=Range("$A$5"))
'.CommandType = 0
.Name = FName
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 866
.TextFileStartRow = StartImportIndex + 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False

Как осуществить удаление одного из запросов?

Comments

[h8nor]

Для кода есть отдельный тег.