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
投稿猜你喜欢
随着电脑的普及程度变高，我们使用win10系统的频率也越来越多了，那么当我们遇到了win10系统崩溃蓝屏时，我们该怎么办呢，一起往下看。1、- 很多朋友都知道安全模式可以在电脑不受干扰的情况下进行修复工作，一般维修人员都会进入安全模式再进行修复的操作，这样才能把电脑系统给恢复，但是有
- “后PC时代”这个词用了有十年，但是仍不过时。对于微软来说，不论是PC时代，互联网时代，还是移动互联时代，Windows都是其不可剥离的主营
- win11任务栏图标没了怎么办？在最新的win11系统更新后，很多用户发现自己的win11任务栏图标没了，那要怎么解决这个问题呢？来看看具体
- 一、EXCEL要用颜色点缀，但是也不能使用太多的颜色 在文档中使用太
- 如何防止做过数据有效性的下拉菜单被复制黏贴功能破坏掉？大家可能不太懂这个问题是什么意思，举例来说就是下面这个问题：
- Excel怎么快速删除工作表中空白行1、启动Excel 2013并打开工作表，这张工作表中存在一些空行。在工作表中选择数据区域，
- PPT2010为用户新增了很多文字特效，本教程就为大家介绍在PowerPoint2010中简单制作文字闪烁特效方法，感兴趣的朋友可以参考本文
- 在Excel工作簿中对大量数据进行分析检查的时候，往往会发现有大量重复相同的数据，如果数据不是很多，我们可以通过肉眼判断出来，并且删除，但如
- 先来看看效果吧： ①首先打开WPS演示，插入一张卷轴主题的图片。 ②插入之后，双击图片，
- 如何向wps表添加密码：从该办公软件打开WPS，进入WPS操作界面，如图所示：在该界面的顶部，找到WPS表后面的三角形箭头，如图所示：点击该
- 从设计角度，不是只有静态的可视化元素需要具有某种一致的对齐方式，以便让内容之间产生视觉关联，动画也需要某种“对齐”方式，但这应该是动画过程的
- win10麦克风怎么设置？打开win10麦克风，发现声音要不很大，要不很多小，没办法设置到正常的分贝，该怎么办呢？下马面分享win10中麦克
- cpx插件怎么安装? fcpx插件怎么解压安装？fcpx插件怎么卸载？fcpx插件怎么添加？fcpx lut插件安装？这是我们在使用Fina
- 在平时的工作中，我们常常需要关闭一些系统服务，不过很多人不懂怎么关闭，因此这时候就需要技术人员远程帮助你了，那么他怎么使用远程关闭你的Win
- excel怎么筛选内容Q：如下所示，一个名为“InputFile.csv”文件，每行有6个数字，每个数字使用空格分隔开。现在，我要将以6 至
- 根据微软计划，向Win7/Win8.1用户推送Win10正式版升级的工作需要分期分批进行。首批推送工作已经在7月29日Windows10正式
- 有时候在使用Win10电脑深入使用的时候，进行某项操作或下载软件是会提示禁止访问或下载，这正是系统自带防火墙导致的，那么该怎么去解决呢，？今
- 我们打印文档的时候通常会遇到一种情况，就是在打印文档后，出来的纸张总是有两页，有时候第一张纸并没有完全填满整个纸张，却出现了第二页多余的表格
- 很多win7系统用户在使用网络时候，会出win7ipv6无网络访问权限的问题导致用户无法上网，很多用户不知道这一问题的解决方法，下面一起来看
