VBA 循环遍历某一个excel文件的sheet名

最新推荐文章于 2024-08-10 14:59:16 发布

頑張ろう！

最新推荐文章于 2024-08-10 14:59:16 发布

阅读量6.5k

点赞数 1

分类专栏： VBA 文章标签：开发语言

本文链接：https://blog.csdn.net/m0_37823115/article/details/125320831

版权

VBA 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

1、创建一个宏

2、编辑遍历代码

Sub sheetName()

    Dim wbook As Workbook
    Dim startSheetNum As Integer

    'test.xlsx : 要遍历的目标文件
    'ThisWorkbook.Path : 如果目标文件和创建的宏文件地址一样的话，即可用此函数获取文件路径
    '       如果目标文件和创建的宏文件地址不一样的话，直接写具体路径即可
    Set wbook = Workbooks.Open(ThisWorkbook.Path & "\test.xlsx")
    
    '循环遍历目标文件的sheet名
    For startSheetNum = 1 To wbook.Sheets.Count
        Debug.Print wbook.Sheets(startSheetNum).Name
    Next startSheetNum
    wbook.Close savechanges:=True
End Sub

3、运行该方法即可遍历出目标文件的sheet名

如下图所示