1 20 50 150 500
欢迎来到瑞博软件站,找素材,搜软件,就上瑞博软件站!
当前位置 >首页 >软件下载 >电脑软件 >应用软件 >办公软件

Excel自动遍历工具 v1.0 免费版

软件信息
  • 分类:办公软件
  • 大小:24KB
  • 语言: 中文
  • 环境: WinAll
  • 更新:2024-07-14
  • 评级:
  • 系统: Windows Linux Mac Ubuntu
  • 软件类别: 国产软件 / 免费软件 / 办公软件
  • 插件情况:

Excel自动遍历工具是一款免费的文件遍历工具,这款软件通过excle宏命令开发,能够自动遍历指定文件夹下的所有文件,可生成超链接直接打开文件,非常的实用!

软件介绍:

写了一个Excel宏命令,可以遍历文件夹下的所有文件,包括文件名、位置、创建日期、修改日期、文件类型、文件大小等信息。

有需要可以在 位置 列生成超链接直接打开文件。

遍历工作表六种方法:

1.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    sh.Select
    Call 设置A1格式
Next
End Sub
--------------------------------------
2.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    if sh.name <> 表名1 and sh.name <>表名 2 then
            sh.Select
            Call 设置A1格式
    end if
Next
End Sub
--------------------------------------
3.Sub 循环工作表()
    For Each sh In Worksheets
        If sh.Index > 2 Then    '限定工作表范围
       sh.Select
              Call 设置A1格式
        End If
    Next
End Sub
--------------------------------------
4.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    If sh.Name Like "*" & "表" & "*" Then     '如果工作表名称包含“表”
        sh.Select
        Call 设置A1格式
    End If
Next
End Sub
5.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    If Not sh.Name Like "*" & "表" & "*" Then     '如果工作表名称不包含“表”
        sh.Select
        Call 设置A1格式
    End If
Next
End Sub
6.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    If sh.Name <> "价格表" And sh.Name <> "人员表" Then    '指定不参与循环的工作表名称,可一个或多个,自行增减
        sh.Select
        Call 设置A1格式
    End If
Next
End Sub

下载地址

热门软件

Top