关于access数据 导出到excel报表 什么方法比较快！

Question

如果你安装了OFFICE的话：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 Long
Private 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

Answer 1

感觉不错，想问一下 是不是excel不受版本的限制

Answer 2

你装的如果是高版本的excel，可以用低版本的，如果装的是低版本的，那么就不可以用高版本的
例如：Excel 8.0 得装excel2000了，
如果装的是excel97,只能用Excel 5.0