如题!

解决方案 »

  1.   

    选 择表,导出,选 择execl类型,保存
      

  2.   

    http://www.csdn.net/develop/read_article.asp?id=18623
      

  3.   

    谢谢strongfisher(Haiwolf) 不过没有从access到excel阿
      

  4.   

    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False"
        cn.Open
        cn.Execute ("select * into [excel 5.0;database=d:\1.xls].[sheet5] from Table")
    End Sub
      

  5.   

    to :sxs69()
    提示错误:from子句语法错误
      

  6.   

    Table要换成数据库中表的实际名称啊