社区
数据库(包含打印,安装,报表)
帖子详情
在vb中,如何通过代码获取一个excel文件中有多少个工作表(sheet),各个工作表的名字???
1ssp
2006-03-15 03:03:46
急急急!!!
解决了马上结帖!!!
...全文
1767
8
打赏
收藏
在vb中,如何通过代码获取一个excel文件中有多少个工作表(sheet),各个工作表的名字???
急急急!!! 解决了马上结帖!!!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
1ssp
2006-03-16
打赏
举报
回复
谢谢of123!
也谢谢各位捧场!
给分了.
of123
2006-03-16
打赏
举报
回复
Dim rstSchema As ADODB.Recordset
cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & excel文件名及路径& ";Extended Properties=Excel 8.0"
Set rstSchema = cnExcel.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close
changechange
2006-03-16
打赏
举报
回复
为什么一定要调用 EXCEL.APPLICATION 呢?不调用不行吗?
ZOU_SEAFARER
2006-03-15
打赏
举报
回复
For i = 1 To xlBook.Sheets.Count
Debug.Print xlBook.Sheets(i).Name '打印各个Sheet的名称
Next
可以在这个地方接入比如:
rsE.Open "select * from [" & xlBook.Sheets(i).Name & "$]", cnExcel, adOpenDynamic, adLockPessimistic
现在我要分多次打开每一个工作表,写入数据库.能不能用数据库的方法知道每个工作表的情况?
再次感谢!!
Do While Not rsE.EOF
If Not IsNumeric(rsE(2)) Then Exit Do
Cnn.Execute " insert into 客户资料(年份,月份,日期,姓名,省份,区域,手机,固话,传真,邮编,通讯地址,意向,网络,客户类型,备注) " _
& "values('" & rsE(1) & "'," & rsE(2) & ",'" & rsE(3) & "','" & rsE(4) & "','" & rsE(5) & "','" & rsE(6) _
& "','" & rsE(7) & "','" & rsE(8) & "','" & rsE(9) & "','" & rsE(10) & "','" & rsE(11) & "','" _
& rsE(12) & "','" & rsE(13) & "','" & rsE(14) & "','" & rsE(15) & "')"
1ssp
2006-03-15
打赏
举报
回复
问题还没有解决,欢迎参与!!!
1ssp
2006-03-15
打赏
举报
回复
谢谢!faysky2
我是在数据库要实现该功能,
'打开excel文件
cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & excel文件名及路径& ";Extended Properties=Excel 8.0"
rsE.CursorLocation = adUseClient
'打开Excel的Sheet1表,准备导入数据
rsE.Open "select * from [芜湖市$]", cnExcel, adOpenDynamic, adLockPessimistic
现在我要分多次打开每一个工作表,写入数据库.能不能用数据库的方法知道每个工作表的情况?
再次感谢!!
Do While Not rsE.EOF
If Not IsNumeric(rsE(2)) Then Exit Do
Cnn.Execute " insert into 客户资料(年份,月份,日期,姓名,省份,区域,手机,固话,传真,邮编,通讯地址,意向,网络,客户类型,备注) " _
& "values('" & rsE(1) & "'," & rsE(2) & ",'" & rsE(3) & "','" & rsE(4) & "','" & rsE(5) & "','" & rsE(6) _
& "','" & rsE(7) & "','" & rsE(8) & "','" & rsE(9) & "','" & rsE(10) & "','" & rsE(11) & "','" _
& rsE(12) & "','" & rsE(13) & "','" & rsE(14) & "','" & rsE(15) & "')"
faysky2
2006-03-15
打赏
举报
回复
Private Sub Command1_Click()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
Dim xlBook As Object
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls") '打开Excel文件
Debug.Print "Sheet的个数为:" & xlBook.Sheets.Count
For i = 1 To xlBook.Sheets.Count
Debug.Print xlBook.Sheets(i).Name '打印各个Sheet的名称
Next
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
faysky2
2006-03-15
打赏
举报
回复
用Excel对象来做
VB
控制
EXCEL
工作
薄删除
一个
表
VB
控制
EXCEL
工作
薄删除
一个
表
不错的
代码
我使用的
vb
6.0 获得
excel
表
名和数量
该程序可以检查
excel
工作
簿里
工作
表
的名称和数量,本人第一次上传资源,绝对能用 ,
VB
.net实现无需安装
Excel
由
代码
创建
Excel
文件
纯
代码
创建
Excel
文件
VB
.NET纯
代码
实现
Excel
文件
的创建 有
代码
完全模拟
Excel
文件
写法,最终实现无需
Excel
程序即可自动创建
Excel
文件
用
VB
script指定打开
Excel
的第三个
sheet
NULL 博文链接:https://cgd123.iteye.com/blog/380228
vb
6读取
excel
文件
vb
6读取
excel
文件
内容 如何连接sql数据库 读取里面的数据
excel
2003
数据库(包含打印,安装,报表)
1,217
社区成员
55,952
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章