100 求助 access 数据导入excel。

从数据库中导出到excel，你可以看一下这个帮助vbaxl10.chm,它在哪里，你自己搜索一下把（前提是你装office了）

access中有导出这一项功能啊?先选择一个表，然后选择导出，不就可以了吗？
或者编个程序，也可以。access文件发给我，我给你做。
[email protected]
如果你安装有 EXCEL.EXE 的话：Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click()

  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 在校学生"
  dbs.Close
  Set dbs = Nothing
  Shell "C:\Program Files\Microsoft Office\Office\EXCEL.EXE " & App.Path & "\MyExcel.xls", vbMaximizedFocusEnd Sub

100 求助 access 数据 导入excel。