1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 导入数据库() With ActiveSheet.QueryTabl髫潋啜缅es.Add(Connection:="TEXT;" & ThisWorkbook.Path & "\0.mdb", Destination:=Range("$A$1")) .FieldNames=True '返回数据的列标题显示 .TextFileTabDelimiter=True '以tab为分割符.Refresh BackgroundQuery:=False '不更新外部数据区域End WithEnd Sub
5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，数据库中的数据已导入工作表
