Excel利用用VBA获取指定工作簿中的工作表名称
发布时间：2023-07-01 01:51:33
如果需要用VBA的方法获得某个工作簿中工作表的名称，可以使用下面的代码，其中使用了 Microsoft ActiveX Data Objects (ADO)，可以将指定工作簿中的工作簿名称显示在A列中，在使用时需将代码中的工作簿名称及路径进行更改。
Sub GetSheetNames()
Dim objConn As Object
Dim objCat As Object
Dim tbl As Object
Dim iRow As Long
Dim sWorkbook As String
Dim sConnString As String
Dim sTableName As String
Dim cLength As Integer
Dim iTestPos As Integer
Dim iStartpos As Integer
'在此输入工作簿名称及路径.
sWorkbook = "G:Excel文件book2.xls"
sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sWorkbook & ";" & _
"Extended Properties=Excel 8.0;"
Set objConn = CreateObject("ADODB.Connection")
objConn.Open sConnString
Set objCat = CreateObject("ADOX.Catalog")
Set objCat.ActiveConnection = objConn
iRow = 1
For Each tbl In objCat.Tables
sTableName = tbl.Name
cLength = Len(sTableName)
iTestPos = 0
iStartpos = 1
If Left(sTableName, 1) = "'" And Right(sTableName, 1) = "'" Then
iTestPos = 1
iStartpos = 2
End If
If Mid$(sTableName, cLength - iTestPos, 1) = "$" Then
Cells(iRow, 1) = Mid$(sTableName, iStartpos, cLength - _
(iStartpos + iTestPos))
iRow = iRow + 1
End If
Next tbl
objConn.Close
Set objCat = Nothing
Set objConn = Nothing
End Sub
0
投稿猜你喜欢
word多级列表可以将编号的层次关系进行多级缩进排列，如一个列表下还包含下一级列表，而下级列表中又包含子列表时，就需要用到word多级列表，- excel折线图怎么显示数值？该折线添加数据标签则可。1、以excel2010版本为例，如下图，要在该折线图上显示折点数值，首先点击该折线图
- 在Word制表中有哪些值得我们学习的小技巧呢？今天教大家word移动表格位置的操作方法，帮助新手提高效率。1、移动表格位置在设置标的时候，使
- 对于Word，掌握技巧和不会技巧差距真的是很大，比如，同样的工作量别人半天就可以完成，而有的小伙小伙伴却需要一天，这就是差距。所以，赶紧学起
- Excel表格的行高与列宽与字号有关，字号不一样，行高与列宽就不一样。设置合适的行高与列宽传统的方法是拖拽，因为要试多次，所以效率低下。在这
- 我们在使用Excel2007编辑工作表格时经常要输入大量数据，如何设置才能使Excel公式让数据不再重复?有时要求输入的这些数据是不允许重复
- 现在重装系统的方式有很多种也很简单，很多用户都会自己重装 系统，最近有用户反映在重装系统过程中，系统弹出错误提示“当前账户是受限用户”的相关
- Word停止工作怎么?word停止工作解决办法一、可能是normal.dot模板损坏了。normal.dot是一个自动保存模板，比如写着wo
- Excel合并单元格快速汇总求和
- 那是拼写的语法检查，系统认为是错误的提示标志，若不想让其显示，可以通过下列设置来并实现。1、单击窗口左上角office按钮，在下拉菜单中选择
- 如何在excel表格中画斜线并上下打字?我们利用excel做表格时，很多时候会要求做到做表头要划斜线，并且上下打上字，比如姓名，月份做的表格
- 大家都希望能把电脑调优，能优化的地方都给它优化好来，尽量让电脑保存在最佳状态。那win10的电池使用模式就有个最佳性能的设置，能让电池长久耐
- 许多使用win10系统的合作伙伴问，在使用输入法和切换输入法后，如何弹出悬挂输入法的小图标/按钮，即在桌面上显示语言栏。如何设置此变化？今天
- 我们常常在Excel中查看规模比较大的工作表时，都比较难比较表中的不同部分的数据，这时候我们就可以利用工作表中的冻结窗口功能来固定窗口，将某
- 一篇好的文档不仅要有统一性，更需要有条理性和逻辑性，所以小编今天讲解的Word编号的设置很重要哦。一起来学习吧一、快速插入编号 在
- 表格是大家常用的，有时候用电脑多眼睛会比较累，不过现在呢有个表格护眼模式，今天，小编就教大家在Excel中进行表格设置护眼模式的操作方法。E
- Excel如何成批插入多行？使用EXCEL时，会遇到这样一个问题——，即插入行，右击插入，如图所示：有些人可能认为这条插入线太简单了。只是每
- word怎么复制页眉页脚？想复制一整片文章，包括页眉页脚也一起复制，该怎么复制呢？下面我们来看看word复制整页文档的技巧，图文很详细，需要
- excel表格是一款我们比较常用的办公软件，Excel中的表格具体该如何从兼容模式改到正常模式呢?下面是小编带来的关于excel表格兼容模式
- Word无法执行语言识别怎么办？某一天打开 word ,突然提示“microsoft office word 无法执行语言识别”，单击确定后
