这段时间看了点python方面的东西，据说是种比vba更容易上手的语言，于是下载了python然后鼓捣鼓捣，然而最大的困扰是不知道它能干什么？网抓什么？认知限制了想象力。
整理是种态度，当电脑桌面堆满文件的时候，当来回寻找文件，不时地在我的电脑中按下ctrl+f寻找的时候，也许你需要这段代码。
遍历文件名函数dir在excelvba中是个十分实用的功能，它与hyperlinks超链接的结合运用十分接地气。
dir的参数很直接，给我个路径，我帮你找到路径里的所有文件，确实能找到所有文件类型的文件名，但打不打的开是你的事。于是结合超链接能打开一部分文件，这些文件都是微软的文件，word ppt excel…但基本够用了吧。
程序的最大好处是将人从重复性的劳作中解放出来，不管是体力上还是脑力上的，作为底层统计人员，最大的痛苦莫过于核对数据，一遍一遍地对相差不多的数据核对，几百个数据足够让人崩溃，学点vba能让电脑出力，毕竟电脑的基础功能就是计算。
(12月小诗摘自网上)
Option Explicit
Sub 遍历()
Dim sr$, n%, srr$
On Error Resume Next
sr = Dir("E:\工作记录\2018注塑车间数据\" & [a2] & "月\" & [b2] & "\" & [c2])
Range("a3:b999").ClearContents
Do
n = n + 1
Cells(n + 2, 1) = n
Cells(n + 2, 2) = sr
Sheet1.Hyperlinks.Add Cells(n + 2, 2), "E:\工作记录\2018注塑车间数据\" & [a2] & "月\" & [b2] & "\" & sr
sr = Dir
Loop Until sr = ""
If [a2] = 1 Then
[a16] = "去追赶时间的急流，" & Chr(10) & _
"尽管是那样地用力，" & Chr(10) & _
"还是被远远地抛在了后头?" & Chr(10) & _
"我那日记的小船，" & Chr(10) & _
"为什么比白云还要缓慢？" & Chr(10) & _
"因为它喜欢在遗忘的沙洲上停搁，" & Chr(10) & _
"或是在冥想的旋涡中打转?" & Chr(10) & _
"——顾城《一月四日日记》"
'
ElseIf [a2] = 2 Then
[a16] = "我把天空和大地打扫干干净净" & Chr(10) & _
"归还给一个陌不相识的人" & Chr(10) & _
"我寂寞地等，我阴沉地等" & Chr(10) & _
"二月的雪，二月的雨" & Chr(10) & _
"——海子《黎明》"
ElseIf [a2] = 3 Then
[a16] = "人生恰如三月花，倾我一生一世念。" & Chr(10) & _
"来如飞花散似烟，醉里不知年华限。" & Chr(10) & _
"——纳兰性德《纳兰词》"
ElseIf [a2] = 4 Then
[a16] = "我说你是人间的四月天；" & Chr(10) & _
"笑响点亮了四面风；" & Chr(10) & _
"轻灵在春的光艳中交舞着变?" & Chr(10) & _
"你是四月早天里的云烟，" & Chr(10) & _
"黄昏吹着风的软，" & Chr(10) & _
"星子在无意中闪，" & Chr(10) & _
"细雨点洒在花前?" & Chr(10) & _
"——林徽因《你是人间的四月天》"
ElseIf [a2] = 5 Then
[a16] = "你在我旁边" & Chr(10) & _
"只打了个照面" & Chr(10) & _
"五月的晴天" & Chr(10) & _
"闪了电" & Chr(10) & _
"——林夕《流年》"
ElseIf [a2] = 6 Then
[a16] = "一川风露荷花晓，" & Chr(10) & _
"六月蓬瀛燕望凉?" & Chr(10) & _
"何须辛苦求人外，" & Chr(10) & _
"自有仙乡在水乡" & Chr(10) & _
"——曾巩《西湖》"
ElseIf [a2] = 7 Then
[a16] = "我的一生 本来可以有" & Chr(10) & _
"不同的遭逢 如果" & Chr(10) & _
"在新雨的荷前" & Chr(10) & _
"你只是静静地走过" & Chr(10) & _
"在那个七月的午后 如果" & Chr(10) & _
"如果你没有 回头" & Chr(10) & _
"——席慕蓉《无怨的青春》"
ElseIf [a2] = 8 Then
[a16] = "八月就是八月" & Chr(10) & _
"八月我守口如瓶" & Chr(10) & _
"八月里我是瓶中的水" & Chr(10) & _
"你是青天的云" & Chr(10) & _
"——林白《过程》"
ElseIf [a2] = 9 Then
[a16] = "九月西风兴，月冷霜华凝。" & Chr(10) & _
"思君秋夜长，一夜魂九升。" & Chr(10) & _
"——白居易《长相思》"
ElseIf [a2] = 10 Then
[a16] = "羡慕我们吗 二月还是十月" & Chr(10) & _
"嫉妒我们吗 大地还是天空" & Chr(10) & _
"我们为这个季节的烂漫深深感动" & Chr(10) & _
"年轻真好 真好年轻" & Chr(10) & _
"——汪国真《年轻真好》"
ElseIf [a2] = 11 Then
[a16] = "十一月中旬，" & Chr(10) & _
"晴暖如春，" & Chr(10) & _
"明明指的是爱情?" & Chr(10) & _
"——木心"
ElseIf [a2] = 12 Then
[a16] = "雪睡了" & Chr(10) & _
"夜有一个白色的枕头" & Chr(10) & _
"寒风吹亮了月光" & Chr(10) & _
"十二月默默地站在街上" & Chr(10) & _
"有些甜蜜 有些辛酸 有些茫然" & Chr(10) & _
"——于坚《作品第16号》"
End If
Range("a3:b999").Font.Size = 20
Range("a3:b999").Font.ThemeColor = 1
End Sub
网友评论