ipo 子公司核查:用VB将access导入excel中的问题？

来源：百度文库编辑：杭州交通信息网时间：2024/04/25 08:28:46

参考代码：
Dim dbs As Database
Set dbs = OpenDatabase(App.Path & "\db1.mdb")
If Dir(App.Path & "\MyExcel.xls") <> "" Then Kill App.Path & "\MyExcel.xls"
dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] FROM tabelname
dbs.Close
Set dbs = Nothing
这段代码只能操作到excel的sheet，当我有多个表都要写到一个sheet里，就不行了，请问有没有办法解决？

用VB将access导入excel中的问题？怎样利用VB将EXCEL中的数据导入ACCESS 用C#或VB.net如何将Excel中的sheet导入Access中？怎样利用VB将EXCEL中的数据导入ACCESS 这里给20分如何将access数据库中的每个表一次导入EXCEL 如何将Access导入Excel问题？如何将Access导入Excel问题？ excel中的数据导入到access 如何很快的将一个EXCEL工作簿中的多个工作表导入ACCESS? Excel表导入access