谁用VB连接过EXCEL文件?请教 try: ado 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 先引用excel,再创建excel对象然后对其操作。 用DAO,RDO,ADO都可以的啊,注意的就是连接时数据库是EXcle文件,表为Excel中的表加“$”如 sheet1$ '连接数据库'---------Public Function StartConnection(ByVal strDataBaseName As String, ByRef strErrMsg As String) As BooleanOn 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 如何读写一个*.bin文件 VB新手问题,结构数组里的元素赋值是引用传递还是值传递? 删除数据问题 在不改变打印机进纸方向的前提下如何让打印的字旋转90度? 急!求助!excel生成word报表的问题 关于WebBrowser控件打开Word时候不能获得光标的问题 我是初学者,希望各位高手帮忙,是VB做的考试系统中的问题 我是一个VB-HOOK的初学者,大家推荐我一些资料吧!^-^ 用了AutoFilter,Select后,怎样对结果集进行遍历,并选择其中的最大值的行号? 大哥,谢谢您! 如何屏蔽掉shockwave(flash控件)的鼠标右键事件?? 技术资料查询
连接时数据库是EXcle文件,表为Excel中的表加“$”
如 sheet1$
'---------
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