办公软件学习技巧：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

最新烈火英雄观后感100字01-01

共青团入团第一课观后感1000字01-01

最有名的牡丹诗句01-01

熊妈妈的生日礼物01-01

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