|
获得Excel文件的sheet名称和数量 |
|
|
|
www.nanhushi.com 佚名 不详 |
|
Dim ex As Excel.Application
Dim exwbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Dim x As String
Dim shetcounts As Integer
shetcounts = 0
Set ex = CreateObject("Excel.Application")
Set exwbook = ex.Workbooks.Open(ThisWorkbook.Path & "\Book1.xls")
For Each ws In Worksheets
MsgBox ws.Name
Next ws
'别忘了加上关闭EXCEL的代码与释放变量
|
|
|
|
| 文章录入：杜斌 责任编辑：杜斌 |
|
上一篇文章： 如何删除ACCESS表中重复记录
下一篇文章： access操作excel数据并保存预览打印并退出 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
| |
|
