Question

一个文件夹里面有400多个excel文件，我想读取每一个文件的Sheet1的A1的数据

我是新手，工作上遇到了麻烦，请大家不吝赐教！！谢谢了！
一个文件夹里面有400多个excel文件，我想在不打开文件的前提下，读取每一个文件的Sheet1的A1的数据。并且按照文件名收集到一个新建的excel表格里。不知通过VBA能不能实现啊！！谢谢大家了啊！
谢谢csbtz的答案，已经很好了，但是不知道能不能在不打开文件的前提下读取呢？

Answer 1

'关闭所有的Excel文档
'新建一个工作薄，运行粗悄核下面运差的宏
Sub hebin()
On Error Resume Next
Dim fs, f, f1, fc, s

Set fs = CreateObject("Scripting.FileSystemObject")
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Show
s = fd.SelectedItems(1)

Set f = fs.GetFolder(s)
Set fc = f.Files
For Each f1 In fc
If Right(f1.Name, 3) <> "xls" Then GoTo nt:
x = x + 1
Workbooks.Open f1.Name
Workbooks(1).Activate
Sheets(1).Activate
Cells(x, 1) = f1.Name
Cells(x, 2) = Workbooks(2).Sheets("Sheet1").Range("A1"岩掘)
Workbooks(2).Close SaveChanges:=False
nt:
Next
End Sub

Answer 2

后台打开 与关闭就行了