try:      ado

解决方案 »

  1.   

    先引用excel,再创建excel对象然后对其操作。
      

  2.   

    用DAO,RDO,ADO都可以的啊,注意的就是
    连接时数据库是EXcle文件,表为Excel中的表加“$”
    如 sheet1$
      

  3.   

    '连接数据库
    '---------
    Public Function StartConnection(ByVal strDataBaseName As String, ByRef strErrMsg As String) As Boolean
    On Error GoTo ConnectError:    Set objWorkSpace = DBEngine.CreateWorkspace("No1", "admin", "", dbUseJet)
        'Set objDataBase = objWorkSpace.OpenDatabase(strDataBaseName, False, False, "Excel 5.0;")    
        StartConnection = True
        
        strErrMsg = "连接Excel数据库成功!"
        Exit Function
        
    ConnectError:
        MsgBox Err.Description
        strErrMsg = "连接Excel数据库失败!请检查数据库文件!"
        StartConnection = FalseEnd Function