Добрый день!
Подскажите, пожалуйста.
Загружаю данные из txt на лист excel макросом.
Часть макроса:
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range("данные!$A$2"))
.Name = "ЗагруженныеДанные"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 2, 1, 1, 1, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
После загрузки данных создается именнованный диапазон .Name = "ЗагруженныеДанные"
Как можно отключить в данном макросе создание именнованного диапазона?
В инструменте импорт TXT данных - это просто: "Свойство" => "Определение запроса" => снять чекбокс с "Сохранить определение запроса". Но это действие, к сожалению, не поддается записи макрорекордером.
Пробовал просто закоментировать .Name = "ЗагруженныеДанные", но тогда диапазон все равно создается, но уже с техническими именами (вроде ExternalData_6 и тп)
Подскажите, пожалуйста.
Загружаю данные из txt на лист excel макросом.
Часть макроса:
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range("данные!$A$2"))
.Name = "ЗагруженныеДанные"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 2, 1, 1, 1, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
После загрузки данных создается именнованный диапазон .Name = "ЗагруженныеДанные"
Как можно отключить в данном макросе создание именнованного диапазона?
В инструменте импорт TXT данных - это просто: "Свойство" => "Определение запроса" => снять чекбокс с "Сохранить определение запроса". Но это действие, к сожалению, не поддается записи макрорекордером.
Пробовал просто закоментировать .Name = "ЗагруженныеДанные", но тогда диапазон все равно создается, но уже с техническими именами (вроде ExternalData_6 и тп)
