发文章
发文工具
撰写
网文摘手
文档
视频
思维导图
随笔
相册
原创同步助手
其他工具
图片转文字
文件清理
AI助手
留言交流
set db=OpenDatabase("资料库")只能开mdb,*.xls档要如何开启呢?
Option Explicit
Dim Db As Database
Dim Rs As Recordset
Private Sub Form_Load()
Set Db = OpenDatabase("c:\temp\book1.xls", False, False, "Excel 8.0;")
Set Rs = Db.OpenRecordset("sheet1$")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Db.Close
这是最简单的办法,详细的使用方法及限制请参看 VB OnLineHelp ,资料存取物件手册、取得外部资料、使用试算表一章。
来自: 网络摘记 > 《VB-EXCEL知识》
0条评论
发表
请遵守用户 评论公约
计算机二级VB辅导:VB通过DAO访问Access数据库 - 育路网
Excel VBA(宏)精简(二)
VB调用Excel简化表格处理
Path + "cngl.mdb") Set rs1 = db1.OpenRecordset(sql1, dbOpenDynaset) Sheet1.Range("h41").Value = rs1.Fields("代码字典名称") Exit Sub error:
在VB中动态创建数据库
以下为引用的内容:Private Sub Command2_Click()Dim myDB As DAO.Database''Set myDB = DAO.OpenDatabase("d:\mydb3.mdb")Set myDB = DAO.OpenDatabase(App.Path "/mydb.mdb&q...
EXCEL打开和读取ACCESS的几个方法
用VB创建Access表格
在VB中用DAO实现数据库编程(1)
3) 删除记录 Private Sub cmd_del_Click()On Error GoTo handleDim msg as string msg = "是否要删除记录"& Chr$(10) msg = msg &label(0) /把删除记录的代号加入msg中If Msgbox(ms...
VB打开EXCEL的方法
VB打开EXCEL的方法。再定义对象及其类型Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject("Excel.Application") ...
vba excel编程三日谈(1)
[vb] view plaincopySub testfor1() Dim i&, total& total = 0 For i = 1 To 1000 Step 1 total = tot...
微信扫码,在手机上查看选中内容