Exit Function '路径不存在不运行
c = 1 '默认1,表不存在时默认用第一行决定填充公式行数
If Right(fp, Len(fp) - InStrRev(fp, ".")) = "...c = Application.Match(v1, [1:1], 0)
If IsError(c) Then
导入表 = "找不到对应标题列"...c = Application.Match(v1, [1:1], 0)
If IsError(c) Then
导入表 = "找不到对应标题列"...Dir(fp, 16) = Empty Then Exit Sub '路径不存在不运行
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fp...readline(fp, 2), ",")
ReDim arr(UBound(tl))
rg.Resize(1048576, UBound(tl) + 1).ClearContents '清除原数据列2017