【VBA(十):使用Dir函數合併多個文件的數據】【對象賦值到變量(Set)+認識Dir函數+小結】

下一篇:【VBA(九):自定義函數和帶參數的過程】【創建自定義函數+創建帶參數的過程+使用加載宏工具+小結】

對象賦值到變量(Set)

原數據
在這裏插入圖片描述

目標:新建多個表
代碼
在這裏插入圖片描述
效果圖
在這裏插入圖片描述

認識Dir函數

判斷數據是否存在

原數據
在這裏插入圖片描述
目標:判斷新疆.xlsx是否存在

代碼
在這裏插入圖片描述
效果圖
不存在返回一個空值
在這裏插入圖片描述

目標:判斷北京.xlsx是否存在

代碼
在這裏插入圖片描述
效果圖
存在即顯示文件名
在這裏插入圖片描述

支持通配符

原數據
在這裏插入圖片描述
在這裏插入圖片描述
代碼
在這裏插入圖片描述
效果圖
在這裏插入圖片描述

相同文件名不同類型

原數據
在這裏插入圖片描述
代碼
在這裏插入圖片描述
效果圖
在這裏插入圖片描述

如果再嘗試搜索新疆文件則返回空值,再搜索則報錯。

遍歷所有Excel文件

原數據
在這裏插入圖片描述
代碼
在這裏插入圖片描述
效果圖
在這裏插入圖片描述

多文件合併1

原數據
在這裏插入圖片描述
代碼
在這裏插入圖片描述
效果圖
在這裏插入圖片描述

多文件合併2

原數據
每個工作薄中都有多個工作表,類似1考場2考場等,每個工作薄有不同數量的工作表
在這裏插入圖片描述
在這裏插入圖片描述
代碼
在這裏插入圖片描述
效果圖
在這裏插入圖片描述

小結

概念

Set sht = sheet1
Dir(“d:\data*.xlsx”)
Range(“a:a”).find(“張三”)

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章