办公软件学习技巧：excel VBA基本操作：遍历当前文件夹下的excel文件

时间：2023-04-02 15:53:14 阅读：最新文章文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

excel VBA基本操作：遍历当前文件夹下的

excel文件

常常用到excel以下是遍历当前文件夹下的excel表。

Sub bl() Dim myPath As String, myFile As String Dim i As Integer Dim Arr() As String i 0 myPath ThisWorkbook.Path *.xls* myFile Dir(myPath) If myFile ThisWorkbook.Name Then 假如不是本文件取出放入数组2021年2月28日修改 ReDim Preserve Ar(i) 不清空数组 Ar(i) myFile i i 1 End If Do While myFile myFile Dir If myFile Then Exit Do End If ReDim Preserve Ar(i) 不清空数组 Ar(i) myFile i

i 1 Loop MsgBox 共 i 个excel文件 End sub

— 1 —

本文来源：https://www.wddqw.com/doc/fc3c28b0d3d233d4b14e852458fb770bf78a3bb0.html

相关文章：

古诗文阅读新选精练-古诗文阅读《永遇乐次稼轩北固楼词韵》题目及答案01-01

《蒹葭》教学设计与反思01-01

职工联谊活动专题方案01-01

三角函数所有求导公式初中数学常见公式整理01-01

最好看的植树节手抄报01-01

幼儿抗疫情数学手抄报01-01

初一的随笔作文(精选)01-01

高考阅卷最劲爆花絮学生写古文作文邀专家翻译01-01

上一篇：办公软件学习技巧：Excel VBA读取其它excel单元格内容详细案例下一篇：辽源电大招生简章