没有合适的资源?快使用搜索试试~ 我知道了~
VB实现不需要安装Excel而操作Excel
4星 · 超过85%的资源 需积分: 49 227 下载量 89 浏览量
2014-07-12
20:32:51
上传
评论 6
收藏 1KB TXT 举报
温馨提示
试读
2页
您还在为服务器上由于客户不愿意安装Excel,而您又要部署一款程序,需要导出到Excel,或者需要把Excel中的数据导入到数据库中而犯愁吗?本例代码,帮您实现不需要安装Excl,而用VB可以操作Excel的样例,希望,给你启示,带了些帮助。
资源推荐
资源详情
资源评论
Dim Str001 As String
Dim Str002 As String
Dim Str003 As String
Dim Str004 As String
Dim Str005 As String
Dim Str006 As String
Dim XlsCon As ADODB.Connection
Dim TxtCon As ADODB.Connection
Dim SqlCon As ADODB.Connection
Dim OraCon As ADODB.Connection
Dim MysCon As ADODB.Connection
Dim AcsCon As ADODB.Connection
Dim Rst001 As ADODB.Recordset
Dim Rst002 As ADODB.Recordset
Dim Rst003 As ADODB.Recordset
Dim Rst004 As ADODB.Recordset
Dim Rst005 As ADODB.Recordset
Str001 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Administrator\Desktop\BMS\base_data\BMSID and Name.xlsx" & _
";Extended Properties='Excel 8.0;hdr=yes;imex=0'"
Set XlsCon = New ADODB.Connection
Set Rst001 = New ADODB.Recordset
XlsCon.Open Str001
Rst001.Open "select * from [sheet1$];", XlsCon, 1, 1
a01 = Rst001.Fields(0)
Dim Str002 As String
Dim Str003 As String
Dim Str004 As String
Dim Str005 As String
Dim Str006 As String
Dim XlsCon As ADODB.Connection
Dim TxtCon As ADODB.Connection
Dim SqlCon As ADODB.Connection
Dim OraCon As ADODB.Connection
Dim MysCon As ADODB.Connection
Dim AcsCon As ADODB.Connection
Dim Rst001 As ADODB.Recordset
Dim Rst002 As ADODB.Recordset
Dim Rst003 As ADODB.Recordset
Dim Rst004 As ADODB.Recordset
Dim Rst005 As ADODB.Recordset
Str001 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Administrator\Desktop\BMS\base_data\BMSID and Name.xlsx" & _
";Extended Properties='Excel 8.0;hdr=yes;imex=0'"
Set XlsCon = New ADODB.Connection
Set Rst001 = New ADODB.Recordset
XlsCon.Open Str001
Rst001.Open "select * from [sheet1$];", XlsCon, 1, 1
a01 = Rst001.Fields(0)
shccr
- 粉丝: 2
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
- 1
- 2
前往页