|
这是一个简单的遍历当前文件所在文件夹下其他所有表格文件并处理的程序,要求该文件夹下只能有表格文件,该程序只有遍历并生成文件名单的部分,主功能块实现请自行设计。
因为工作原因经常需要给同事领导设计程序,但是基本上周围的人都是太白金星大仙,那是白得一塌糊涂,所以我写程序要照顾到完全不懂编程的人,因此极少使用事件、函数体,这样可以让小白通过我留下的注释简单的修改程序,避免骚扰我的清净。请大侠们不要鄙视我。。。。
这个程序涉及到一些很简单但新手常常不会用的文件操作语句,请大家指教。
Sub zz()
Dim A As String '文件完整地址
Dim M '文件地址
Dim N '文件名
Dim L '文件地址字符数
Dim K
'Dim weizhi
Dim wenjian(100) '文件完整路径列表
Dim i
Dim j
Dim Keys
Application.ScreenUpdating = False
'1------------------------------------------------获取文件地址的功能块开始
N = ThisWorkbook.Name '获取文件名称
A = ThisWorkbook.Path & "\" '获取文件地址
L = Len(A) '文件地址字符数
'For i = 1 To L Step 1 '<确定最后一个“\”的位置
' k = InStr(i, A, "\", 0)
' If k <> 0 Then
' weizhi = k
' End If
'Next '>确定最后一个“\”的位置
'M = Left(A, weizhi) '获取文件地址
'MsgBox (A) '该部分屏蔽了的代码为获得上一层目录名称的功能
'1-------------------------------------------------获取文件地址的功能块结束
'2-------------------------------------------------获得当前文件夹下所有文件完整路径列表wenjian(100)开始
j = 1
i = Dir(A & "*.*") '根据函数要求首先Dir("")一次
If i <> "" And i <> N Then
wenjian(j) = A & i
j = j + 1
End If
'----------
line1: '重复Dir直到遍历文件
i = Dir
If i <> "" And i <> N Then
wenjian(j) = A & i
j = j + 1
GoTo line1
End If
j = j - 1 '文件个数
'2-------------------------------------------------获得当前文件夹下所有文件完整路径列表wenjian(100)结束
'3-------------------------------------------------主功能块开始
Keys = InputBox("请输入表格密码")
If Keys <> "" Then
For i = 1 To j Step 1
Workbooks.Open (wenjian(i))
' ActiveSheet.Unprotect Password:=1234 '解锁表格密码
'..........................详细功能
'ActiveSheet.Protect Password:=1234 '重新锁定
Next
End If
'3-------------------------------------------------主功能块结束
Application.ScreenUpdating = True
End Sub |
|