帮我看看这个有选择的将EXCEL导入Access例子？

roych

把1078句改成：
Set b = DBEngine.Workspaces(0).OpenDatabase(Me![文件], False, False, "Excel 12.0")
之后没发现什么问题。