不用vba如何快速导出mdb数据到Excel报表当中

Question

就用access中的导出就可以把table里的数据存为Excel表格形势

Answer 1

当然使用Excel读写控件了
www.cellsoft.cc上下载并且还有演示呢

Answer 2

可以用Adodb的Recordset对象的方法,快速导出数据,代码如下
  Dim Pw_Conn             As ADODB.Connection        ''連接
  Dim Pw_RstMdb           As ADODB.Recordset         ''レコードセツト
  Dim Pw_MdbFname         As String                  ''MDBファイル名
  Dim Pw_WmdbFname        As String                  ''WMDBファイル名
  Dim Pw_Ret              As String
  Dim Pw_loop             As Long                    ''明細項目数
  Dim Pw_Row              As Long                    ''レコード数
  Dim Pw_FName            As String
  
  On Error GoTo ERR_RTN  ''** 処理開始 **
  ''Accessのパスの取得
  If Not Gf_Get_Inifile("Path", "KAIINMDB", Pw_Ret) Then GoTo ERR_RTN
  Pw_MdbFname = Pw_Ret
  Pw_WmdbFname = Replace(Pw_MdbFname, "\mdb", "\wmdb")
  FileCopy Pw_MdbFname, Pw_WmdbFname  Set Pw_Conn = New ADODB.Connection
  With Pw_Conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Open Pw_WmdbFname
  End With
  Set Pw_RstMdb = New ADODB.Recordset
  Call Pw_RstMdb.Open _
   ("FB0020", Pw_Conn, adOpenDynamic, adLockOptimistic, adCmdTable)
  Pw_RstMdb.Close
  
  Pw_RstMdb.Open "select * into [Excel 8.0;database=" & Pw_FName & "].FB0020 from FB0020"
  Pw_RstMdb.Close