vba可以从access指定单元格获取数据吗？

可以。那边不叫单元格，数据库里，sql查询语句中，用字段名取列，用where条件取条例条件的行，二者交叉点的值就取出来了。

select 学号，姓名，成绩 from 学生信息表 where 学号=‘12345’

是这样写的。vba里可以调用ADO对象执行SQL语句。

'从楼上的改一下，使用集合提高效率，其他优化。

Sub MeThee()

Application.ScreenUpdating = False

     Dim aFileName$,myPath$

     Dim aCollection As New Collection

     Dim bCollection As New Collection

     myPath = "d:\xxx\"  '设置路径

     aFileName = Dir(myPath & "*.xls*")   '从myPath指定的目录查找excel文件     

     While aFileName <> "" And Instr(1,aFileName,"$") = 0 Then

        With Workbooks.Open(Filename:=myPath & aFileName, ReadOnly:=True)   '以只读方式打开工作簿

            aCollection.Add .Sheets1.Range("B5")    '假如姓名在B5

            bCollection.Add .Sheets1.Range("F5")    '假如姓名在B5

            .Close False   '关闭工作簿

        End With         

        f = Dir    '查找下一个

     Wend

Application.ScreenUpdating = True

End Sub

---