Option Explicit
Sub search()
'完成对表格单元格中关键字的匹配查找
'Debug.Print "~~~~~~~~~~~~~~~~~~~~~~~~"
'变量声明
Dim column_num, row_num, File_sum, Sum_Workbook, search_file, _
temp_Workbook, sheet_num, key_word, record_num, File_Dir, i
' column_num, 列数标识; row_num,行数标识
' File_sum,汇总文件
' Sum_Workbook, 汇总工作薄
' search_file, 待处理的文件
' temp_Workbook, 处理中的工作薄
' sheet_num, 处理中工作薄的表格数
'key_word, 查询的关键字
'record_num,匹配记录数目
' File_Dir, 路径
'i, 循环控制
'-----------------------------------------------------------------
'打开文件
'打开汇总表格 '^^^^^^
File_sum = "E:\code\关键字.xls" '后期施工:如何自行创建excel文件,如creatobject()
Set Sum_Workbook = GetObject(File_sum)
'计算待处理的文件数
'搜寻待工作薄所在路径下的给定xls文件
File_Dir = ThisWorkbook.Path
'search_file = ""
'search_file = Dir(File_Dir & "\*第*天*.xls*"
VBA 关键字匹配查找
最新推荐文章于 2023-04-13 13:53:33 发布