Excel 2010 VBA在导入分隔文本数据时会创build奇怪的命名数据范围
我正在使用我在网上find的查询方法将pipe道分隔的文本文件导入到Excel电子表格中。 代码运行得非常快速,但是每次运行时都会创build一个奇怪的命名范围。 问题是我似乎无法find使用VBA删除范围的有效方法,我只能使用名称pipe理器删除。 这是我的代码:
Function doFileQuery(fileName As String, outSheet As String) As Boolean Dim rootDir As String rootDir = "W:\Development" Dim connectionName As String connectionName = "TEXT;" + rootDir + "\" + fileName With Worksheets(outSheet).QueryTables.Add(Connection:=connectionName, Destination:=Worksheets(outSheet).Range("A5")) .Name = fileName .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileOtherDelimiter = "|" .Refresh BackgroundQuery:=False End With doFileQuery = True End Function
这里是创build的奇怪命名范围:_11r_3_Eastdata_FrankLaRoccaMonths_c_4
这是我如何删除它:ThisWorkbook.Names(“_ 11r_3_Eastdata_FrankLaRoccaMonths_c_4”)。删除
当VB击中上面的声明,它给了我一个
运行时错误“1004”:
应用程序定义或对象定义错误。
任何帮助将不胜感激!
也许这是一个工作表级别的名称。 尝试:
ActiveSheet.Names("_11r_3_Eastdata_FrankLaRoccaMonths_c_4").Delete