Question

我试图在excel 2010中导入文本文件（其内容粘贴在此处）。

样品
0.000336179308182416 0.0003623072328649 0.000330580466347818 0.000328403140930966 0.000326536860231208 0.000316583362896417 0.000331824654826285 0.000376926431150615 0.000359196764802228 0.00035110955014428 0.000340222914920751 0.00038594678488213 0.000374438054920212 0.00038719097133022 0.000356708390252258 0.000355464204180755 0.000362307232454562 0.000408031102693052 0.00042793809249897 0.000361685139135481 =AVERAGE(B2:U2) =MEDIAN(B2:U2) =STDEV.P(B2:U2) 0.000317516503116533 0.000324670578360742 0.000343644429001611 0.00031720545739935 0.000316272316168398 0.000322182204319699 0.000319071737757159 =AVERAGE(B2:AE2) =MEDIAN(B2:AE2) =STDEV.P(B2:AE2)

导入工作正常。在excel中打开文本文件后，我编写了以下VBA代码来删除以_开头的范围名称。

Private Sub Workbook_Open()
 For Each n In ActiveWorkbook.Names
  If Mid$(n.Name, 1, 1) = "_" Then
    MsgBox ("The file being deleted is " + n.Name)
     n.Delete
  End If
 Next n
End Sub

并保存文件。现在我再次打开这个保存的xlsm文件，我显示的信息“正在删除的文件是_xlfn.STDEV.P”。

即使我的文本文件中指定了STDEV.P函数，我也不知道该范围名称已添加到ActiveWorkBook.Names集合的哪个位置。并且随后的删除操作也会引发错误，因为范围名称是excel功能名称。请帮我纠正这个问题。

Answer 1

以_xlfn开头的范围名称由excel创建，因此删除这些范围名称的任何尝试都将引发错误。所以我避免删除以_xlfn开头的范围名称。

For Each n In ActiveWorkbook.Names
    If Mid$(n.Name, 1, 5) = "_xlfn" Then
        continue
    Else  
        n.Delete
    End If
Next n

导入文本文件并删除以_开头的范围名称时出错

1 个答案: