求助：我需要从三千多个工作簿中提取规定数据到新表

鄂龙蒙

liucf 发表于 2018-3-21 10:29
文件多时不打开文件更快一些

学习您的代码，测试中为什么第1个单元格取数总是不对【教育ID】？谢谢！

鄂龙蒙

liucf 发表于 2018-3-21 10:29
文件多时不打开文件更快一些

学习代码.rar (57.35 KB, 下载次数: 18)

2018-3-22 09:33 上传

点击文件名下载附件

liucf

鄂龙蒙 发表于 2018-3-22 09:31
学习您的代码，测试中为什么第1个单元格取数总是不对【教育ID】？谢谢！

那是因为你的A列是文本格式导致的,把VI函数加上一句即可:
Function Vi(T$, G$)
  With Range(G)
    .NumberFormatLocal = ""
    .Formula = T
    Vi = .Value
  End With
End Function

鄂龙蒙

liucf 发表于 2018-3-22 10:02
那是因为你的A列是文本格式导致的,把VI函数加上一句即可:
Function Vi(T$, G$)
  With Range(G)

再请教： If File.Name <> ThisWorkbook.Name And Left(File.Name, 1) <> "~" And File.Name Like "*.xls*" Then
中的
Left(File.Name, 1) <> "~"

是什么意思？谢谢!

liucf

文件打开时会产生一个隐藏的临时文件,第一个字母是"~",后缀是一样的,应该排除